terimakasih 'mba Devi maaf mba... saya kurang paham dalam contoh ini di anggap anda mengaplikasikan object TextBox yg dibuat dari Active-X Control ditempelkan di sheet (bukan di userForm)
saya buat sendiri form nya namanya form_barang, tar hasil inputannya ketika klick tombol "tambah" akan dimasukan ke worksheet barang. Nah saya pengennya ketika tekan "tambah", kalo karakternya >6 karakter akan memberi peringatan Kalau untuk yang lebih dari 6 karakter saya dah berhasil dengan mengubah properties txt_kode dengan mengubah MaxLength menjadi 6 untuk yang <6 karakter belum berhasil. saya dah coba prosedur dari mba Devi Private Sub txt_kode_LostFocus() If Len(txt_kode.Value) < 6 Then MsgBox "panjang kode kurang dari 6 karakter", _ vbExclamation, "Jumlah Karakter kode harus 6 karakter" End If End Sub Saya coba jalankan formnya dengan menekan tombol "tambah" dan karakter yang saya masukan hanya 4 karakter, datanya tetap masuk apakah ada yang salah? terimakasih Nana Suwargana ________________________________ Dari: STDEV(i) <[email protected]> Kepada: [email protected] Dikirim: Minggu, 16 Oktober 2011 21:40 Judul: Re: ]] XL-mania [[ kode macro untuk batasa panjang karakter Mungkin begini.... dalam contoh ini di anggap anda mengaplikasikan object TextBox yg dibuat dari Active-X Control ditempelkan di sheet (bukan di userForm) Kita buat dua prosedur event (event Change dan event LostFocus) Private Sub TextBox1_Change() If Len(TextBox1.Value) > 6 Then TextBox1.Value = Left(TextBox1.Value, 6) End If End Sub Private Sub TextBox1_LostFocus() If Len(TextBox1.Value) < 6 Then MsgBox "panjang data kurang dari 6 karakter", _ vbExclamation, "Tak kasih tauk ya.." End If End Sub 2011/10/11 Nana Suwargana <[email protected]> >Dear member xl-mania n suhu2 xl >saat ini saya sedang belajar ngotak-ngatik macro setelah sekian lama >berkenalan dengan excel >saya ingin memberi batasan inputan pada text box di form yang saya buat >batasannya adalah pada panjang karakter >misalkan untuk text box kode, panjang karakternya harus sama dengan 6 >karakter, kalau kurng atau lebih maka akan keluar msgbox >atau text box nama panjang karakternya tidak boleh legih dari 20 >kode apa yang harus saya gunakan? > > >terimakasih sebelumnya >saya benar2 baru berhubungan dengan macro, jadi kalo ada istilah yg salah >mohon diluruskan, n mohon maklum kalo nanya mulu > > >wasalam > > >Nana Suwargana > >
