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

Date and Time

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 .

Date and Time

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:

Date and Time

Tambah code ini di loop yang tersedia

If Cells (I, 1) . Value < DateValue (“April 19, 2011”) Then Cells (I, 1) . Font.Color = vbRed

Hasilnya:

Date and Time

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.

Date and Time

Ganti Formatnya seperti ini.

Date and Time

Hasilnya :

Date and Time

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 :

Date and Time

If (Cells(i, 1).Value – Int(Cells(i, 1).Value)) < 0.5 Then Cells(i, 1).Font.Color = vbRed

Hasilnya :

Date and Time
Excel macro menjadi bahan tersendiri yang harus dikuasai ketika ingin memaksimalkan fasilitas yang diberikan excel. Semoga ada guna.

Add a Comment

Your email address will not be published. Required fields are marked *

* Copy This Password *

* Type Or Paste Password Here *