創建在Excel宏其執行其他宏觀每2秒

Question

我有一個名爲UpdateMacro宏從更新我的數據庫我的Excel

我想創建一個宏名爲RepeatMacro它會自動執行UpdateMacro每2秒並且僅提供啓動和停止按鈕來啓動和停止執行RepeatMacro。

怎麼辦？

Answer 1

谷歌爲Application.OnTime

例如

Dim dtNextRunTime As Date 
dtNextRunTime = Now + TimeSerial(0,0,2) 
Application.OnTime dtNextRunTime, "MyProcedure", True 

要清除以前設置的過程，您需要保存調度的時間） dtNextRunTime以上），然後用：

Application.OnTime dtNextRunTime, "MyProcedure", False 

下面是一個示例VB模塊方法StartSchedule/StopSchedule讓你去：

Private m_dtScheduledTime As Date 
Private m_lDelaySeconds As Long 
Private m_bIsScheduled As Boolean 

Private Sub DoWork() 

    m_bIsScheduled = False 

    ' ... do your work 

    ' Reschedule at the same frequency once completed 
    StartSchedule m_lDelaySeconds, "DoWork" 

End Sub 

Public Sub StartSchedule(ByVal DelaySeconds As Long) 
    StopSchedule 
    m_lDelaySeconds = DelaySeconds 
    m_dtScheduledTime = Now + TimeSerial(0, 0, m_lDelaySeconds) 
    Application.OnTime m_dtScheduledTime, "DoWork", True 
    m_bIsScheduled = True 
End Sub 

Public Sub StopSchedule() 
    If m_bIsScheduled Then 
     Application.OnTime m_dtScheduledTime, "DoWork", False 
     m_bIsScheduled = False 
    End If 
End Sub 

Answer 2

這將運行UpdateMacro每兩秒鐘，假設UpdateMacro花費不到兩運行幾秒鐘。

Sub RepeatMacro() 
    Dim lastRunTime 
    Do 
     lastRunTime = Now 
     Range("A1") = "Last run: " & Format(lastRunTime, "hh:nn:ss") 
     Call UpdateMacro 
     DoEvents 
     Application.Wait lastRunTime + TimeValue("00:00:02") 
    Loop 
End Sub 

Sub UpdateMacro() 
    Debug.Print "running UpdateMacro" 
End Sub 

編輯啓動並從您的薄片停止RepeatMacro，使一個啓動按鈕和停止按鈕，並把下面的代碼你的表模塊中。另外請注意，我在上面的RepeatMacro中添加了一個DoEvents。

Private Sub StartButton_Click() 
    Call RepeatMacro 
End Sub 

Private Sub StopButton_Click() 
    MsgBox "Stopped." 
    End 
End Sub 

現在只是說End是不好的做法，但你明白了。