返回列表 上一主題 發帖

無法帶入想要的值

dechiuan999

帖子
231 
主題
55 
精華
0 
積分
293 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
KEELUNG 
註冊時間
2010-7-24 
最後登錄
2018-8-28 
1# 跳轉到 »
發表於 2011-3-18 06:53 | 顯示全部帖子
改成下列語法不知是否合適
請試試

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

TOP

        靜思自在 : 天上最美是星星，人生最美是溫情。
返回列表 上一主題