VBA Excel Membatasi Jumlah Digit Textbox

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


  1. Buka Excel Anda
  2. Simpan dengan extensi Excel Binary Workbook (.xlsb)
  3. Tekan Alt+F11 untuk masuk ke jendela VBA Excel
  4. Buatlah 1 buah userform
  5. Didalam Userform buatlah 1 buah Textbox dan 1 buah CommandButton sehingga seperti gambar dibawah ini
  6. Membatasi Jumlah Digit Textbox
  7. Klik 1x (pilih) Textbox
  8. Pada properti Max Length ketik akngka 10
  9. Artinya : Jumlah max textbox adalah 10 digit
  10. Klik 2x TextBox dan masukan Kode Macro dibawah ini
  11. 
    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
    
  12. Kemudian klik 2x CommandButton dan masukan kode macro dibawah ini
  13. 
    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
    
  14. Selesai

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"