EXCEL 設定經過幾秒再執行下一個動作??

Question

我想製作一個按鈕讓經過 \"所設定的秒數\" 後再跳到 A02的工作表！！
請問該怎麼寫 ??

範例如下:

？？？？？？？？？？？？？
Sheets(\"A02\").Select

感謝抽空解答問題解決了!!

Answer 1

'利用Wait方法;但是此法會暫停Excel的所有作業，並且可能禁止您對電腦做其他作業。不過，背景作業如列印和重新計算將繼續進行。Private Sub CommandButton1_Click()    Dim T As Date, N As Single        N = 2 '延遲2秒    T = DateAdd("s", N, Now)    Application.Wait T    If Application.Wait(T) Then Sheets("A02").SelectEnd Sub'另外一種方法Private Sub CommandButton2_Click()    Dim T1  As Single, T2 As Single, N As Single        N = 2 '延遲2秒    T1 = Timer    Do      T2 = Timer      If T2 < T1 Then T2 = T2 + 86400      '加Doevents可以在等待時還能執行其他事情      DoEvents    Loop Until T2 - T1 > N    Sheets("A02").SelectEnd Sub