"Bagaimana cara menghindari Menjalankan Banyak contoh makro"
Sub CallBot()
If Activesheet.Range("A1").Value = 1 Then
Call Bot
ElseIf Activesheet.Range("B1").Value = 1 Then
Call BotTwo
End If
Application OnTime + TimeValue("00:01:00")
End Sub
Ini mengarah ke beberapa contoh CallBot Running (perulangan), tetapi saya ingin menjalankannya setiap satu menit saja, tolong bantu
Juga mencoba kode berikut
Sub CallBot()
Dim TimeToRun
If Activesheet.Range("A1").Value = 1 Then
Call Bot
ElseIf Activesheet.Range("B1").Value = 1 Then
Call BotTwo
End If
Application OnTime + TimeValue("00:01:00")
End Sub
Sub Repeat()
If TimeToRun > 0 Then
Application.OnTime TimeToRun, "CallBot", False
End If
TimeToRun = Now + TimeValue("00:00:20")
Application.OnTime TimeToRun, "CallBot"
End Sub