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
>
>
>
