JAM BERDETAK SETIAP DETIK DI EXCEL 8

JAM BERDETAK SETIAP DETIK DI EXCEL 8

aku ingin membuat jam yang selalu terupdate setiap detiknya di excel... sebenarnya metode ini sangat cetek sekali... tapi yach... namanya juga lagi belajar jadi yach... mohon maklum... dan mohon pencerahannya.

Langsung saja deh... buka dulu excel...jangan lupa securitynya pindah ke medium... lalu masuk ke jendela makro dan tulis kode berikut...

dim waktu
sub jam()
ThisWorkbook.Sheets(1).Calculate 'update waktu hanya di sheet dan workbook yang aktif
With Range("A1")'memilih cell A1 dengan kondisi dibawah
.NumberFormat = "hh:mm:ss AM/PM" 'format menjadi hh:mm:ss AM/PM
.FormulaR1C1 = "=now()"'memasukkan rumus =now(), utk update waktu saat ini
.Interior.colorindex = 1 'warna cel hitam
.Font.colorindex = 4 'warna huruf hijau
End With

waktu = now + timevalue("00:00:01")'menjabarkan waktu dengan bentuk nilai jam yang update tiap detik

application.ontime waktu, "jam" 'kode untuk aplikasi ontime, dengan prosedur jam

end sub

sub mandeg()
range("A1").clear 'menghapus data yang ada di cell a1
on error resume next 'bila ada error ke proses selanjutnya
application.ontime waktu, "jam", ,false 'schedule waktunya di hentikan
end sub

sub mulai()
call jam 'memulai jam
end sub

sub berhenti()
call mandeg 'berhenti
end sub

Setelah selesai simpan dach.... nach selanjutnya membuat tombol untuk mulai jamnya dan memberhentikan jamnya caranya masuk ke workbook di sheet 1... gambar objek atau kotak atau apalah...sebanyak dua buah... lalu tambahkan text, klik kanan add text, dan tulislah untuk di objek pertama kata mulai dan obyek kedua berhenti...

Klik kanan lagi di obyek dengan tulisan mulai lalu pilih assign macro dan pada kotak pilihan pilih mulai... begitu juga untuk kotak kedua prosesnya sama tapi pada assign macro pilih berhenti.

Selesai... tinggal di klik aja tombol mulai... dan kalo mo berhenti tinggal di klik tombol berhenti... simpan lagi