※ 引述《appledavid (新三宝:香蕉 鹿茸 太阳饼)》之铭言:
: 软件:Office 365
: =====================程式码=====================
: Sub tesyt()
: For i = 1 To 100
: sheet1.Cells(i, A) = sheet2.Cells(3, D)
: Next
: Application.OnTime Now + TimeValue("00:00:03"), "tesyt" 'Counter
: End Sub
: =========================================================
: 我想做的功能
: 我想将Sheet2 D3位置的数字
: 每三秒放入Sheet1 A Column 放一百个
: 我哪里做错了? Orz
S大的建议程式我改正了
不过要执行时跑出 "无法执行宏, 该宏可能无法使用, 或者已停用所有宏"
何解?
谢谢