Pak Herri,
Terima kasih infonya dan kalau boleh tahu bapak menggunakan Microsoft office
berapa, sebagai informasi saya menggunakan computer perusahaan (semua program
berlisensi resmi) dan munculnya seperti :
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
Dan jika makro di run maka : Compile error: Variable not defined dan crusor
mengarah ke Sh.
Terima kasih
Samsudin
From: [email protected] [mailto:[email protected]]
Sent: Monday, October 26, 2015 9:24 PM
To: [email protected]
Subject: Re: [belajar-excel] membuat jam digital
السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Semangat pagi,.
Alhamdulillah di komputer saya
Script bapak berjalan lancar kok.
وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Warm Regards,
On 26/10/2015 16:30, Samsudin
[email protected]<mailto:[email protected]> [belajar-excel] wrote:
[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.
