Coba gunakan perintah:
Option Explicit
Sub etung()
Dim hour As Boolean
Dim jam As Date
jam = Range("B1")
hour = Not (hour)
Do While hour = True
DoEvents
jam = jam + 1 / 24 / 60 / 60
Range("F1") = jam
Range("F3") = TimeValue(Now)
Range("F5") = (Range("F1") - Range("b1")) * Range("b5") * 60 * 60 * 24
Loop
End Sub
regard
Agus
On 10/13/2018 06:58, Hendry Mahmud [email protected]
[belajar-excel] wrote:
Dear Temen-Temen,
Mohon Bantuannya Untuk Membuat VBA / Macro “JAM BERDETAK DENGAN
HITUNGAN JARAK” , Berikut Saya Lampirkan Filenya.
Terima Kasih Atas Supportnya.
Regards,
HENDRY MAHMUD
Mobile : +62 813 4373 8898
Sent from Mail for Windows 10
