TAHUN BARU KALENDER BARU (1)
Para pembatja sekaliyan jang boediman …. sebelOmnya saya ucapkan Selamat Tahun Baru 2015 sOdara-sOdara sekaliYan … yaaaagh meskipun tanggal 1 Januari udah lama lewat … tahun 2014 yang telah lewat lalu saya hanya sempet bikin 2 artikel di blog ini 🙁 karena beberapa kendala dan passion saya untuk ngeblog tahun lalu memang agak kendor … harapan saya untuk tahun ini semangat yang kendor itu bisa kembali kentjang 🙂 … mohon dukungan dari sOdara-sOdara sekaliYan 😉
Sejalan dengan tema tahun baru kali ini saya pEngEn berbagi pengalaman dalam mengentri data tanggal … dalam mengembangkan aplikasi Excel kadang kita temui tipe data Date … jika kita pakE Userform sebagE sarana entri data kita bisa pakE kontrol TextBox untuk entri tipe data Date ini … kenapa pakE TextBox 😕 … salah satu alasannya karena kontrol ini termasuk kontrol “standar” yang ada sudah ada dalam toolbox … jadi sOdara2 sekaliYAn ndak perlu repot2 lagi menambahkannya ke dalam ToolBox …. namun demikiYan kontrol TextBox mempunyai beberapa kelemahan sehingga menjadi sebuah problema de Excellente
Pertama karena tidak dirancang secara khusus untuk tipe data Date maka data yang dientrikan pada TextBox tidak bisa secara langsung divalidasi …. tanpa adanya validasi bisa saja terjadi salah ketik dan data yang dientrikan ternyata bukan tipe Date
conto :
coba sOdara bikin userform dengan satu kontrol TextBox1 … lalu sOdara entrikan contoh tanggal berikOt pada TextBox :
31/04/2015
30/02/2015
01/13/2015
sekilas memang tidak nampak kesalahan namun sebenarnya tanggal-tanggal tersebut pada kenyataanya tidak ada …. karena tidak ada validasi maka tidak ada peringatan bahwa tanggal-tanggal tersebut ternyata tidak ada
Kedua perbedaan antara format tanggal system dengan tanggal yang dientrikan juga bisa menjadi masalah
conto :
format umum yang dipakai di Indonesia adalah “dd/mm/yyyy” …. jika kita ingin memasukkan tanggal 1 Februari 2015 maka kita entrikan “01/02/2015” pada kontrol TextBox … kemudian nilai tersebut kita masukkan ke cell Excel …. karena sistem menggunakan format tanggal “mm/dd/yyyy” maka pada saat dimasukkan kedalam cell nilai tersebut berubah menjadi “02/01/2015” yang berarti tanggal 2 Januari 2015
lalu solusinya cem mana 😕 …. untuk validasi tanggal bisa kita pasang kode validasi pada event TextBox1_AfterUpdate berikut adalah contoh kodenya
Private Sub TextBox1_AfterUpdate()
If Not IsDate(TextBox1.Value) Then GoTo ErrTgl
Tanggal = TextBox1.Value
TextBox1.Value = Format(Tanggal, "dd/mm/yyyy")
Exit Sub
ErrTgl:
MsgBox "M a a p t a n g g a l s a l a h", vbInformation, "Tanggal"
TextBox1.Value = Empty
End Sub
selaEn itu kita jugaK bisa pasang validasi untuk membatasi karakter yang bisa dientrikan ke dalam TextBox …. karakter yang dipakE dalam entri tanggal biasanya terdiri atas angka ( 0 – 9 ) dan tanda pemisah tanggal ( umumnya “/” atau ” – “ ) … saya lebih suka pakE “/” kalO sOdara lebih suka karakter laEnnya silahkan saja … contoh kodenya sebagE berikOt
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 47 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
47 adalah kode untuk karakter “/” dan 57 adalah kode untuk karakter “9” …. kode tersebut akan membatasi karakter yang bisa dientrikan ke TextBox1 dengan kode karakter antara 47-57 yang berisi karakter /,0,1,2,3,4,5,6,7,8,9 …. untuk mencari kode karakter silahkan sOdara cari dengan bantuan fungsi CODE yang ada di Excel
untuk mengatasi perbedaan format tanggal saya biasa pakE variabel yang bertipe Date … seperti yang ada pada kode TextBox1_AfterUpdate diatas saya tampung dalam variabel “Tanggal” … nilai yang akan dientrikan dalam Cell adalah nilai variabel Tanggal ini bukan nilai TextBox1 … perbedaannya bisa dilihat dalam file TanggalTextBox.xlsx yang bisa sOdara donlot pada folder Januari 2015 seperti biasa … saya sediakan CommandButton1 yang akan mengentrikan data tanggal via variabel dan CommandButton2 yang mengentrikan data tanggal pada TextBox1 secara langsung … coba entrikan tanggal “01/02/2015” pada TextBox1 dan amati perbedaannya jika di klik CommandButton1 atau CommandButton2
selaEn pakE kontrol TextBox bisa jugaK pakE kontrol laEnnya … insyaAllah pada tulisan berikOtnya akan saya sambung lagi …. file TanggalTextBox.xlsx bisa sOdara donlot pada folder Januari 2015 seperti biasa … kodenya jugaK saya kasih keterangan semoga dapat membantu sOdara sekaliYan untuk memahaminya …. Semoga tulisan sederhana ini bisa bermanPaat dan MDLMDL … 🙂
bingung cara downloadnya ??Baca aja halaman download dengan klik icon di samping |
feed , email and my social media![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() |
Terima kasih, berguna sekali untuk program di Madrasah saya yang banyak ngentri tanggal lahir
Kok gak ada file downloadnya..? di Januari 2015 ada juga PersediYaan.xlb
maap pak Oman … lupa belum saya upload 🙂
Lah kok mas,,, di bulan JANUARI 2015 malah jadi kosong
maap sekali lagi pak … filenya ada di Folder 2015 tapi belum saya masukkan ken foler 01_JAN … thanks atas kesabaran pak oman