- 帖子
- 231
- 主題
- 55
- 精華
- 0
- 積分
- 293
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- KEELUNG
- 註冊時間
- 2010-7-24
- 最後登錄
- 2018-8-28
|
改成下列語法不知是否合適
請試試
Sub macro()
Machine1 = 100
Machine2 = 200
Machine3 = 300
x = Array(Machine1, Machine2, Machine3)
For n = 0 To 2
Cells(n + 1, 1) = x(n)
Next
End Sub |
|
發表於 2011-3-18 06:53
| 