Pak Samsudin
Coba seperti ini.
Public Sub JamDigital()
Dim waktu As String
Ulangi:
DoEvents
waktu = Now
Sheets("Sheet1").Range("B5").Value = Format(waktu, "h:mm:ss AM/PM")
GoTo Ulangi
End SubSalam Yono From: [email protected] [mailto:[email protected]] Sent: Monday, October 26, 2015 4:30 PM To: [email protected] Subject: [belajar-excel] membuat jam digital [1 Attachment] [cid:[email protected]] Dear Master Excel, Bagaimana caranya script untuk menampilkan jam digital pada excel bisa berfungsi, karena saya sudah mencobanya tetapi tidak berhasil, masalahnya dimana? Berikut script : Script : Dim TampilkanWaktu Sub JamDigital() Set Sh = ThisWorkbook.Sheets(1) Sh.Calculate With Sh.Range("B5") .FormulaR1C1 = "=Now()" .NumberFormat = "hh:mm:ss AM/PM" End With TampilkanWaktu = Now + TimeValue("00:00:01") Application.OnTime TampilkanWaktu, "Jamdigital" End Sub Terima kasih Samsudin --------------------------------------------------------------------------------------------------- This message (including any attachments) contains confidential information intended for a specific individual and purpose, and is protected by law. If you are not the intended recipient, you should delete this message and hereby notified that any disclosure, copying, or distribution of this message (or any part thereof), or the taking of any action based on it, is strictly prohibited. No liability or responsibility is accepted if information or data is, for whatever reason corrupted or does not reach its intended recipient. No warranty is given that this email is free of viruses. The views expressed in this email are, unless otherwise stated, those of the author and not those of the Company or its management. The Company reserves the right to monitor, intercept and block emails addressed to its users or take any other action in accordance with its email use policy.
Membuat Jam Digital.xlsm
Description: Membuat Jam Digital.xlsm
