Membatasi Jumlah Digit Textbox Excel
Terkadang kita ingin membatasi jumlah digit yang terdapat di textbox excel, namun belum tahu caranya atau kode macronya.
Berikut adalah langkah-langkah Membatasi Jumlah Digit TextBox Userform Excel.
Langkah-langkah Membatasi Jumlah Digit TextBox Userform Excel
- Buka Excel Anda
- Simpan dengan extensi Excel Binary Workbook (.xlsb)
- Tekan Alt+F11 untuk masuk ke jendela VBA Excel
- Buatlah 1 buah userform
- Didalam Userform buatlah 1 buah Textbox dan 1 buah CommandButton sehingga seperti gambar dibawah ini
- Klik 1x (pilih) Textbox
- Pada properti Max Length ketik akngka 10 Artinya : Jumlah max textbox adalah 10 digit
- Klik 2x TextBox dan masukan Kode Macro dibawah ini
- Kemudian klik 2x CommandButton dan masukan kode macro dibawah ini
- Selesai
![]() |
Membatasi Jumlah Digit Textbox |
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1.Value) < 10 Then
TextBox1 = ""
MsgBox "NISN tidak Boleh kurang dari 10 digit angka", 16, " INFORMASI PENTING"
End If
End Sub
Set Ws = Worksheets("sheet1")
Baris = Ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Ws.Cells(Baris, 2).Value = Me.TextBox1.Value
TextBox1 = ""
MsgBox " angka yang anda masukan benar", 64
Jika Anda melakukan langkah-langkah diatas dengan benar dan penempatan kode juga benar maka, system akan berjalan normal sesuai intruksi yang Anda berikan melalui Kode Macro tersebut.
Kesimpulan
banyak sekali Cara Membatasi Jumlah Digit TextBox Excel, salah satunya menggunakan kode macro excel diatas.
File Penerapan
Kami juga memikirkan pemahaman dari semua pengunjung, sehingga selain artikel, kami juga memberikan file penerapan untuk pemahaman mendalam.
Nama File | Membatasi Jumlah Digit TextBox Excel |
---|---|
Extensi | .xlsb |
Size | 19 kb |
Berkas |
Terimakasih sudah berkunjung :)
Bantu kami meningkatkan kualitas blog ini dengan mengisi survei 1 menit.
©2017| dolananexcel
Post a Comment for "VBA Excel Membatasi Jumlah Digit Textbox"