Tahapan cara menciptakan jam digital pada Ms. Excel dengan memakai script VBA. Apa itu jam digital? Jam digital merupakan waktu yang ditampilkan berupa angka Jam digital ialah tipe lain dari jam analog. Kali ini aku akan membahas bagaimana menciptakan sebuah jam digital yang bisa menampilkan data digital berupa angka dan selalu berubah atau update setiap detik, menit, dan jam.
Sebelum ke tutorial caranya terlebih dahulu aku akan berikan ihwal pengertian digital. Digital ialah sinyal data dalam bentuk pulsa yang sanggup mengalami perubahan yang tiba-tiba dan mempunyai besaran 0 dan 1. Sinyal digital hanya mempunyai dua keadaan, yaitu 0 dan 1, sehingga tidak gampang terpengaruh oleh derau, tetapi transmisi dengan sinyal digital hanya mencapai jarak jangkau pengiriman data yang relatif dekat. Biasanya sinyal ini juga dikenal dengan sinyal diskret. Sinyal yang mempunyai dua keadaan ini biasa disebut dengan bit. Bit merupakan istilah khas pada sinyal digital. Sebuah bit sanggup berupa nol (0) atau satu (1). Kemungkinan nilai untuk sebuah bit ialah 2 buah (21). Kemungkinan nilai untuk 2 bit ialah sebanyak 4 (22), berupa 00, 01, 10, dan 11. Secara umum, jumlah kemungkinan nilai yang terbentuk oleh kombinasi n bit ialah sebesar 2n buah. Teknologi digital mempunyai beberapa keistimewaan unik yang tidak sanggup ditemukan pada teknologi analog
Cara Membuat Jam Digital dengan Menggunakan VBA atau Macro Excel
TAPAP 1Langkah pertama Anda harus menciptakan rumus untuk menampilkan tanggal dan waktu sekarang, aku yakin sudah tahu caranya dan yang belum tahu silakan ketikkan =NOW()
Jika ditekan enter maka alhasil ialah berupa format dd-mm-yyyy mm:ss ini akan membuktikan jam yang sesuai dengan waktu yang sama dengan regional setting pada komputer Anda.
TAHAP 2
Tahap kedua Anda harus masuk ke VBA editor dengan cara menekan kombinasi tombol keyboar ALT+F11 maka akan tampil jendela editor VBA. Jika sudah tampil silakan sisipkan satu buah Module dengan cara klik hidangan Insert kemudian pilih Module kemudian ketikkan script VBA dibawah ini
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
Untuk berguru script VBA silakan lihat pola lain sebuah Aplikasi Pilkades Berbasis Excel
TAHAP 3
Jika script VBA telah Anda ketikkan langkah terakhir silakan jalankan macro nya dengan cara klik tombol RUN
Silakan masuk ke Sheet1 yang telah dituliskan rumus =NOW( ) tersebut kemudian lihat perubahan setiap detik, apabila jam dalam hitungan detik berubah berarti aktivitas jam digital berhasil Anda buat, apabila tidak terjadi perubahan maka silakan cek kembali script VBA yang telah diketikkan pada Module1 tersebut apakah sudah benar atau belum.
Catatan :
Anda bisa mempercantik tampilan untuk jam digital tersebut contohnya merubah ukuran abjad menjadi 36 pt dan jenis abjad nya Calibria kemudian font color atau warna tulisannya rubah menjadi warna hijau atau coba sesuai dengan kreasi Anda sendiri. Jika ukuran jam digital tidak cukup dengan ukuran kolom Anda juga bisa merger beberapa cell contohnya range B5:E5.
Selesai, jam digital dengan memakai VBA telah berhasil dibentuk dan alhasil akan tampak menyerupai gambar paling atas artikel ini.
Semoga bermanfaat.
Sumber http://www.excel-id.com/