返回列表 上一主題 發帖

[發問] Application.OnTime 無法終止 ?

回復 1# t8899


     Application.OnTime Now + TimeValue("00:03:00"), "123"

TOP

回復 8# t8899
例(放置在sheet1)
Sub a123()
Cells(1 + a, 1) = Time '您要做的動作
Application.OnTime Now + TimeValue("00:03:00"), "Sheet1.a123"
End Sub

TOP

回復 10# t8899

text版已寄到信箱

TOP

        靜思自在 : 人要自愛,才能愛普天下的人。
返回列表 上一主題