Sunday, July 29, 2018

√ Membatasi Jumlah Aksara Pada Cell Dengan Vba (Not Validation)

Hai, sobat EXCEL-ID pada kesempatan kali ini aku akan menulis bagaimana caranya membatasi jumlah abjad 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 ialah dengan tujuan untuk meminimalisir kesalahan entri data oleh user ketika user mengetikkan jumlah abjad 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 abjad maksimum namun pada textbox dan combobox.

Baca:
Membatasi Jumlah Karakter maksimum pada Textbox Userform

Nah cara lain Anda bisa memakai validation data pada sajian Data di Ms. Excel dan hal ini juga pernah aku bahas sebelumnya silakan cek artikel di bawah ini jikalau Anda ingin memakai pembatasan abjad 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 abjad 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 abjad yang  bisa dientrikan pada kolom A ialah dilarang dari 5 abjad jikalau memaksa mengetikkan (mengentrikan) lebih dari 5 abjad 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 abjad 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 abjad pada sebuah cell atau kolom yang bisa kita tentukan sendiri.

Demikian artikel ini supaya bermanfaat dan jangan lupa komentar di kolom komentar jikalau Anda mengalami kesulitan



Sumber http://www.excel-id.com/