Belajar VBA Excel : Membuat ID Number Otomatis

 MlatenMania.com - Selamat datang kembali di MlatenMania.com, pada kesempatan ini kembali Saya akan berbagi sebuah tutorial sederhana mengenai VBA Excel. Dan sesuai dengan judul artikel ini, yang akan Saya bahas adalah mengenai Cara Membuat ID Number Otomatis. Dan berikut merupakan pembahasan lengkapnya:

ID Number

ID Number merupakan sebuah kode unik yang terdiri dari beberapa digit angka ataupun perpaduan antara angka dan huruf. ID Number biasanya dijadikan sebagai acuan untuk mengidentifikasi sebuah objek, baik itu manusia, kendaraan dan lain sebagainya.

Cara Membuat ID Number Otomatis Di Excel

Seperti yang sudah Saya jelaskan di awal, bahwa pada kesempatan ini Saya akan berbagi sebuah tutorial mengenai cara membuat ID Number otomatis di Excel, dimana dalam pembuatan ID Number otomatis ini kita akan membuatnya dengan VBA. 

ID Number Otomatis yang akan Saya bahas pada kesempatan ini nantinya akan muncul secara otomatis di dalam sebuah TextBox yang ada di dalam sebuah Userform, dan untuk Userform-nya sendiri Saya contohkan adalah Userform untuk input data karyawan.

Untuk format ID Number-nya adalah sebagai berikut:

KRY-00000

Proses Pembuatan ID Number Otomatis VBA Excel

1. Menyiapkan Sheet Untuk Database

Siapkan sebuah Sheet yang nantinya digunakan untuk menampung data (database). Pada contoh ini saya menggunakan Sheet1.

2. Membuat Userform

Buat sebuah Userform dengan ukuran sesuai dengan keinginan/kebutuhan masing-masing, pada contoh ini Saya membuatnya seperti pada gambar di bawah ini:

3. Menyisipkan TextBox

Sisipkan sebuah TextBox yang nantinya menjadi tempat ID Number, dan pada contoh ini Saya membuatnya seperti pada gambar di bawah ini:

4. Menyisipkan Module ID Number Otomatis

Sisipkan sebuah Module, kemudian copy dan paste kode/script Macro di bawah ini ke dalam Module tersebut:

Kode/Script Macro untuk Module:

Function fn_LastRow(ByVal Sht As Worksheet)
    Dim lastRow As Long
    lastRow = Sht.Cells.SpecialCells(xlLastCell).Row
    lRow = Sht.Cells.SpecialCells(xlLastCell).Row
    Do While Application.CountA(Sht.Rows(lRow)) = 0 And lRow <> 1
        lRow = lRow - 1
    Loop
    fn_LastRow = lRow
End Function

5. Kode/Script Macro ID Number Otomatis

Selanjutnya adalah menyisipkan kode/script Macro di bawah ini ke dalam Userform:

Kode/Script Macro untuk Userform:

Private Sub UserForm_Initialize()
Call NoRegID
End Sub
Sub NoRegID()
On Error Resume Next
Dim IdVal As Integer
    IdVal = fn_LastRow(Sheets("Sheet1"))
    UserForm1.TextBox1 = "KRY-" & Format(IdVal, "00000")
End Sub

Jika langka-langkah di atas dikerjakan sesuai dengan prosedur, maka pada saat Userform dijalankan akan muncul ID Number Otomatis seperti pada gambar di bawah ini:

ID Number Otomatis

Demikian artikel mengenai Belajar VBA Excel : Membuat ID Number Otomatis, mudah-mudahan apa yang sudah Saya sampaikan pada kesempatan ini bisa bermanfaat untuk kita semuanya. Sekian, terimakasih dan selamat mencoba.