Cara belajar Compare Date and Time Macro Excel
|Rumue Excel kita kali ini memberikan beberapa contoh dan mengajarkan kamu untuk dapat Compare Dates and Times di dalam excel VBA. Dates and Time atau tanggal dan waktu didalam excel disimpan dalam bentuk angka dan dihitung sebagai angka sejak tanggal 0 bulan Januari dan tahun 1900. Apa yang akan Anda lihat adalah berdasarkan dengan format angka yang Anda gunakan.
Masukkanlah beberapa angka di dalam kolom A
Angka yang dimasukkan di atas adalah tanggal. inputan diatas dapat merupakan salah satu cara untuk memasukkan beberapa angka tanggal tanpa harus khawatir mengenai format yang akan digunakan untuk tanggalnya. Dan Kemudian klik kanan pada bagian header kolom A, dan kemudian Format Cells dan kemudian pilihlan di bagian tanggal .
Tanggal diatas adalah dalam bentuk format US Format dan merupakan langkah untuk Format Cells menjadi Date yang mendasar. Dan tipe format ini tergantung sesuai settingan windows.
Tekanlah command button di worksheet dan tambahlah kode yang ada tertera di bawah:
Deklarasikan Variabel I sebagai Integer.
Dim I As integer
Tambah for untuk loop berikutnya
For I = 1 To 5
Next i
Fungsi date akan mengubah semua format di tanggalnya dan yang waktunya tidak ikut. Tambah beberapa kode dibawah ini ke dalam loop.
If Cells(I, 1) . Value = Date Then Cells (I, 1) . Font.Color = vbRed
Hasilnya akan tampak sebagai berikut:
Tambah code ini di loop yang tersedia
If Cells (I, 1) . Value < DateValue (“April 19, 2011”) Then Cells (I, 1) . Font.Color = vbRed
Hasilnya:
Dan bagaimana dengan Time atau waktu, Dan time adalah dalam bentuk decimal. Buat balek ke format awalnya dan ubahlah format yang ada di numbers ke bentuk angka decimal.
Ganti Formatnya seperti ini.
Hasilnya :
Dan dengan koding ini, maka dapat untuk membuat Perbandingan Date dan Time :
If (Cells(i, 1).Value – Int(Cells(i, 1).Value)) < 0.5 Then Cells(i, 1).Font.Color = vbRed
Dengan tampilan :
If (Cells(i, 1).Value – Int(Cells(i, 1).Value)) < 0.5 Then Cells(i, 1).Font.Color = vbRed
Hasilnya :
Excel macro menjadi bahan tersendiri yang harus dikuasai ketika ingin memaksimalkan fasilitas yang diberikan excel. Semoga ada guna.