Pak Samsudin Karena script tersebut terus berjalan sejak file dibuka, jadi tidak bisa membuka file lain. Bisanya script jam diletakkan di form dan diset modalnya False. Form1.Show False, Kalau seperti itu bisa buka file lain.
Terima kasih Yono From: [email protected] [mailto:[email protected]] Sent: Tuesday, October 27, 2015 5:57 AM To: [email protected] Subject: RE: [belajar-excel] membuat jam digital [1 Attachment] Pak Yono, Terima kasih atas pencerahannya tetapi kenapa jika file ini sedang posisi terbuka dan saya akan membuka file lain yang ada makronya tidak bisa kebuka. Terima kasih Samsudin From: [email protected] [mailto:[email protected]] Sent: Monday, October 26, 2015 6:44 PM To: [email protected] Subject: RE: [belajar-excel] membuat jam digital [1 Attachment] 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 Sub Salam Yono From: [email protected]<mailto:[email protected]> [mailto:[email protected]] Sent: Monday, October 26, 2015 4:30 PM To: [email protected]<mailto:[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. --------------------------------------------------------------------------------------------------- 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.
