Membatasi Jumlah Abjad Pada Cell Dengan Vba (Not Validation)
Hai, sobat EXCEL-ID pada kesempatan kali ini aku akan menulis bagaimana caranya membatasi jumlah huruf maksimum yang bisa dimasukan atau diketikkan oleh user pada cell yang kita tentukan dengan memakai VBA.
Kenapa harus dibatasi? Sebuah pertanyaan yang mungkin ada pada Anda dan jawabannya simpel, kenapa dibatasi alasannya yaitu dengan tujuan untuk meminimalisir kesalahan entri data oleh user ketika user mengetikkan jumlah huruf lebih (maksimal) dari yang kita tentukan maka excel akan menolak secara otomatis dan ini akan bisa mengurangi tingkat kesalahan pada ketika entri data.
Sebenarnya aku pernah membahas bagaimana cara membatasi jumlah huruf maksimum namun pada textbox dan combobox.
Baca:
Membatasi Jumlah Karakter maksimum pada Textbox Userform
Nah cara lain Anda bisa memakai validation data pada hidangan Data di Ms. Excel dan hal ini juga pernah aku bahas sebelumnya silakan cek artikel di bawah ini kalau Anda ingin memakai pembatasan huruf maksimal dengan validasi bukan coding VBA
Cara Membatasi Jumlah Karakter yang di entri memakai Validation
Oke, disini aku mengunakan mekanisme worksheet_change pada object Worksheet dimana ketika ada perubahan atau perpindahan pada cell maka munculah sebuah peringatan atau pesan maksimal jumlah huruf yang dientrikan.
Berikut Coding VBA yang bisa Anda tuliskan pada procedure Worksheet_change
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Excel.Range
If Not Intersect(Target, Columns("A")) Is Nothing Then
For Each cell In Intersect(Target, Columns("A"))
If Len(cell.Value) > 5 Then
cell.Value = Left(cell.Value, 5)
cell.Select
MsgBox "Hanya Diisi Maksimal 5 Karakter"
End If
Next cell
End If
End Sub
Nah, dari coding tersebut kita akan menargetkan pada kolom A dimana jumlah huruf yang bisa dientrikan pada kolom A yaitu dihentikan dari 5 huruf kalau memaksa mengetikkan (mengentrikan) lebih dari 5 huruf maka akan muncul pesan "Hanya diisi Maksimal 5 Karakter"
Nah pada gambar diatas ketika aku mengetikan goresan pena "Mengapa Demikian" maka akan secara otomatis excel akan menghapus sisa dari jumlah huruf kalimat diatas sehingga yang muncul hanya goresan pena "Menga".
Dan munculah sebuah pesan bertuliskan "Hanya Diisi Maksimal 5 Karakter"
Oke, jadi Anda sudah mengetahui bagaimana cara membatasi jumlah huruf pada sebuah cell atau kolom yang bisa kita tentukan sendiri.
Demikian artikel ini biar bermanfaat dan jangan lupa komentar di kolom komentar kalau Anda mengalami kesulitan
Sumber http://jago-office.blogspot.com
Kenapa harus dibatasi? Sebuah pertanyaan yang mungkin ada pada Anda dan jawabannya simpel, kenapa dibatasi alasannya yaitu dengan tujuan untuk meminimalisir kesalahan entri data oleh user ketika user mengetikkan jumlah huruf lebih (maksimal) dari yang kita tentukan maka excel akan menolak secara otomatis dan ini akan bisa mengurangi tingkat kesalahan pada ketika entri data.
Sebenarnya aku pernah membahas bagaimana cara membatasi jumlah huruf maksimum namun pada textbox dan combobox.
Baca:
Membatasi Jumlah Karakter maksimum pada Textbox Userform
Nah cara lain Anda bisa memakai validation data pada hidangan Data di Ms. Excel dan hal ini juga pernah aku bahas sebelumnya silakan cek artikel di bawah ini kalau Anda ingin memakai pembatasan huruf maksimal dengan validasi bukan coding VBA
Cara Membatasi Jumlah Karakter yang di entri memakai Validation
Oke, disini aku mengunakan mekanisme worksheet_change pada object Worksheet dimana ketika ada perubahan atau perpindahan pada cell maka munculah sebuah peringatan atau pesan maksimal jumlah huruf yang dientrikan.
Berikut Coding VBA yang bisa Anda tuliskan pada procedure Worksheet_change
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Excel.Range
If Not Intersect(Target, Columns("A")) Is Nothing Then
For Each cell In Intersect(Target, Columns("A"))
If Len(cell.Value) > 5 Then
cell.Value = Left(cell.Value, 5)
cell.Select
MsgBox "Hanya Diisi Maksimal 5 Karakter"
End If
Next cell
End If
End Sub
Nah, dari coding tersebut kita akan menargetkan pada kolom A dimana jumlah huruf yang bisa dientrikan pada kolom A yaitu dihentikan dari 5 huruf kalau memaksa mengetikkan (mengentrikan) lebih dari 5 huruf maka akan muncul pesan "Hanya diisi Maksimal 5 Karakter"
Nah pada gambar diatas ketika aku mengetikan goresan pena "Mengapa Demikian" maka akan secara otomatis excel akan menghapus sisa dari jumlah huruf kalimat diatas sehingga yang muncul hanya goresan pena "Menga".
Dan munculah sebuah pesan bertuliskan "Hanya Diisi Maksimal 5 Karakter"
Oke, jadi Anda sudah mengetahui bagaimana cara membatasi jumlah huruf pada sebuah cell atau kolom yang bisa kita tentukan sendiri.
Demikian artikel ini biar bermanfaat dan jangan lupa komentar di kolom komentar kalau Anda mengalami kesulitan
Sumber http://jago-office.blogspot.com
0 Response to "Membatasi Jumlah Abjad Pada Cell Dengan Vba (Not Validation)"
Posting Komentar