使VBA宏自動運行/不斷

Question

我在使用VBA代碼時遇到了一些麻煩。我有一些實時數據與彭博社相關聯，我希望每次單元格的值高於特定閾值時都會彈出一個窗口。要做到這一點，我需要找到一種方式來不斷地經營我的宏來檢查，如果我的條件被驗證..但我不知道該怎麼做..我目前的VBA代碼：

Private Sub Worksheet_Activate() 
Dim i As Long 
For i = 2 To 99 
    If Cells(i, 11).Value > 25000 Then 
     MsgBox "Last trade on " & Cells(i, 1).Value & " is higher than 25 000" 
    End If 
Next i 
End Sub 

如果你可以用這段代碼來幫助我，這會很棒！在此先感謝

Answer 1

你可以嘗試這樣的事情：

Private Sub Worksheet_Activate() 
    Dim i As Long 
    Do while (true) 
    For i = 2 To 99 
     If Cells(i, 11).Value > 25000 Then 
     MsgBox "Last trade on " & Cells(i, 1).Value & " is higher than 25 000" 
     End If 
    Next i 
    Application.Wait (Now + TimeValue("0:00:10")) 'wait 10 seconds 
    Loop 
End Sub 

編輯：讓它再出現，如果是相同的，使用的細胞（如10列飛）來存儲當前值和比較。

Private Sub Worksheet_Activate() 
    Dim i As Long 
    Do while (true) 
    For i = 2 To 99 
     If Cells(i, 11).Value > 25000 Then 
     If Cells(i, 11).Value <> Cells(i, 1).ValueThen 
      MsgBox "xxxxx" 
      Cells(i, 11).Value = Cells(i, 1).Value 'setting value 
     End If 
     End If 
    Next i 
    Application.Wait (Now + TimeValue("0:00:10")) 'wait 10 seconds 
    Loop 
End Sub