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.

Attachment: Jam Berdetak setiap detik di Excel.xlsb
Description: Jam Berdetak setiap detik di Excel.xlsb

Kirim email ke