Membuat Schedule Task

Ini adalah contoh penerapan sederhana dari Application.ontime dimana fungsi ini digunakan untuk menjalankan sebuah prosedur pada jam tertentu.

Sintak utamanya adalah

Application.OnTime Waktu, Nama Subrutine

Untuk script lengkapnya:

Sub JalanAlarm()
Call Next_Update_Alarm
Application.OnTime Sheet1.Range("F3").Value, "JalanAksi"

MsgBox "Schedule telah di Set!"
End Sub

Sub JalanAksi()
Beep
MsgBox "Pesan Ini dijalankan pada waktu " & Format(Time, "HH:MM:SS"), vbOKOnly, "Pengumuman"
'----------------
'aksi yang ingin dijalankan tulis disini,
'apakah itu mengirim email otomatis, copy data, kirim whatsapp dll
'---------------
Call Next_Update_Alarm
Application.OnTime Sheet1.Range("F3").Value, "JalanAksi"
End Sub

Sub Next_Update_Alarm()
Dim I As Integer
For I = 3 To 9
    If Time < Sheet1.Range("C" & I).Value Then
        Sheet1.Range("F3").Value = Sheet1.Range("C" & I).Value
        Exit For
    End If
Next
End Sub