السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Semangat pagi,.
Alhamdulillah di komputer saya
Script bapak berjalan lancar kok.
وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Warm Regards,
On 26/10/2015 16:30, Samsudin [email protected] [belajar-excel] wrote:
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.
