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
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
