
Banyak dari para Exceler yang sudah menggunakan Combobox dari Menu Developer sebagai list validasi untuk memilih Data. Mungkin diantara para Exceler ini pernah menambahkan sebuah List Tanggal ke dalam ActiveX Combobox di Microsoft Excel. Menambahkan Data Tanggal tidak lah sulit karena kita hanya perlu menambahkan Alamat Range kedalam ListFillRange yang ada pada Properties Combobox tersebut.

Setelah Data Tanggal kita masukan ke dalam Combobox, dan Combobox berhasil menampilkan Pilihan Tanggal-tanggal tersebut, muncul kembali masalah baru. Masalahnya adalah ketika pilih tanggal pada combobox, combobox tidak menampilkan Format tanggal seperti yang seharus nya. sebagai conotoh bisa di lihat pada gambar.

Agar combobox menampilkan Format tanggal sesuai dengan tanggal yang kita pilih, kita perlu menambahkan sedikit Script kedalam Combobox tersebut. Di saat Design Mode aktif, klik dua kali pada combobox sampai jendela Visual Basic Editor Terbuka atau klik kanan pada Combobox lalu pilih View Code.
Untuk penulisan Script, script bisa berada di dalam Event Combobox_Change() atau _Click(). Script yang dibutuhkan untuk merubah Date Serial menjadi Format tanggal yang mudah kita kenali, kita membutuhkan fungsi Format. untuk contoh penulisannya bisa di lihat dibawah ini.
Private Sub ComboBox1_Change() ComboBox1.Text = Format(ComboBox1.Text, "MM/DD/YYYY") End Sub
ComboBox1 adalah nama combobox yang digunakan, sedaangkan “MM/DD/YYYY” adalah Format yang ingin ditampilkan.
Untuk penulisan Format yang ingin ditampilkan bisa disesuaikan dengan keinginan masing-masing, misalnya jika ingin menampilkan tanggal dengan Format “2 Agustus 2020” maka gunakan Format(Nilai, "DD MMMM YYYY")
bisa di sesuaikan dengan Format yang lainnya juga dengan menggunakan kombinasi D untuk hari, M untuk Bulan dan Y untuk Tahun.
Setelah kita tambahkan Format MM/DD/YYY, setelah kita melakukan pemilihan tanggal pada Combobox, combobox menampilkan tanggal sesuai dengan apa yang kita setting sebelumnya. sebagai hasilnya bisa dilihat pada gambar dibawah.

Leave a Reply