Cara Membuat Kode ID Otomatis - Belajar VBA Excel Part 2

Melanjutkan pada tutorial sebelumnya "Tahapan Membuat Aplikasi VBA Excel - Belajar VBA Excel Part 1", kali ini Admin akan membahas mengenai "Cara Membuat Kode ID Otomatis". Otomatis yang dimaksud disini adalah menampilkan kode id tanpa memasukkan/mengetik kode lagi secara manual. Kode ID ini akan tampil secara otomotis berurutan dan berlanjut sesuai kode id terakhir yang dibuat pada teksbox kode ID di UserForm VBA Excel.

A. Apakah Kode ID Otomatis Ini Diperlukan?

Kode ID ini pada dasarnya bisa dikatakan perlu bisa juga tidak, tergantung tujuan kita membutuhkannya atau tidak dalam membuat sebuah aplikasi VBA Excel. Bagi Admin yang belum memahami secara jelas dan menyeluruh mengenai VBA (hehe, belajarnya juga otodidak), membuat kode ID ini sangat dibutuhkan dikarenakan :

1. Kode ID ini Admin gunakan sebagai acuan untuk membedakan data hasil inputan. Contoh, bila data ada nama, alamat, dan data lainnya yang sama, maka kode id ini dijadikan pembeda data tersebut karena kode id pastinya berbeda.

2. Karena kode ini jelas tidak akan sama, maka saat Admin memanggil data yang tersimpan untuk di edit maupun dihapus, kode id sangat cocok dijadikan acuan pemanggil data tersebut dan tidak mudah terjadi error disebabkan adanya data yang sama.

3. Sebagai petunjuk banyaknya data yang sudah di input.
   

B. Bagaimana Cara Membuat Kode ID Otomatis

Untuk membuat kode id otomatis di UserForm VBA Excel , Sobat SD ikuti cara berikut:

1. Silahkan buka file excel yang sudah disimpan sesuai pembelajaran part 1 sebelumnya, seperti gambar dibawah ini.

2. Selanjutnya masuk ke Visual Basic Editor (VBE) dengan memilih Tab Menu "Developer" lalu pilih "Visual Basic" di pojok kiri Excel Sobat SD.

3. Setelah masuk ke Visual Basic Editor, silahkan buat UserForm baru.

4. Buat Label, caranya ikuti petujuk gambar dengan angka (1) sampai (4) dan ubah propertiesnya, sesuaikan dengan gambar yang di beri tanda kotak berwarna biru dibawah ini:

5. Selanjutnya membuat TextBox untuk menampilkan Kode ID Otomatis, dan rubah propertiesnya sesuai gambar dibawah.

6. Selanjutnya menuliskan makro untuk menampilkan ID Otomatis dengan cara klik kanan pada Tekxbox lalu pilih "View Code". Bisa juga dengan langsung double klik pada TextBox ataupun pada UserForm.

7. Setelah Code Window tampil, hapus makro yang ada dan atau ganti dengan kode makro dibawah ini.

Private Sub Tampil_KodeID()
On Error GoTo Pertama
    Set Ws = Worksheets("BelajarVBA")
    irow = Ws.Cells(Rows.Count, 1).End(xlUp).Row
    KodeID = "ID-" & Format(Right(Ws.Cells(irow, 1), 4) + 1, "0###")
    Exit Sub
Pertama:
    KodeID = "ID-0001"
End Sub

Penjelasan kode Makro diatas sebagai berikut:

• Private Sub Tampil_KodeID. Sebuah prosedur untuk menampilkan Kode ID. Text "KodeID" bisa diganti sesuai keinginan (ingat tanpa spasi dan tanda petik). Lalu di tutup dengan prosedur "End Sub". Perhatikan point (1) dan (9).

• On Error GoTo Pertama. Merupakan suatu perintah bila mengalami error. Error ini terjadi karena pada saat penginputan pertama kali, belum ada data sama sekali yang menjadi acuan/dasar untuk membuat sebuah kode id. Jadi arti kode makro tersebut yaitu jika terjadi error maka error tersebut akan langsung dialihkan ke "pertama". Perhatikan point (2), text "Pertama" diatas yang diberi label kotak boleh diubah/diganti sesuaikan dengan keinginan masing masing. Karena terjadi error maka perlu solusi untuk memperpaiki error tersebut. Nah perbaikan error tersebut dialihkan/diarahkan ke "Pertama", dimana solusi yang diterapkan pada error tersebut adalah menetapkan kode otomatis yang digunakan untuk pertama kali yaitu "ID-0001". Perhatikan point (7) dan (8).

• Set Ws = Worksheets("BelajarVBA"). Menyingkat penulisan sekaligus menetapkan bahwa "Ws" adalah Sheet yang telah kita ubah sebelumnya menjadi "BelajarVBA" (ingat...tanpa spasi). Perhatikan point (3).

• irow = Ws.Cells(Rows.Count, 1).End(xlUp).Row. Menetapkan baris terakhir dari suatu data yang ada. Text "irow" boleh diganti sesuai selera Sobat SD. Makro tersebut menentukan baris terakhir, dihitung mulai dari head (judul) sampai baris terakhir data yang tersimpan pada form database excel yang dibuat. Perhatikan point (4).

• KodeID = "ID-" & Format(Right(Ws.Cells(irow,1),4)+ 1,"0###"). Menentukan kode id yang ingin dibuat dalam bentuk apa. Berdasarkan makro diatas, kode id yang dibuat dimulai dengan memberi karakter kode berupa "ID-" lalu menambahkan 3 (tiga) angka 0 (nol) didepan urutan kode id. Untuk mengubah menjadi kode id tiga angka saja, contoh "ID-001" cukup ubah tanda "0###" menjadi "0##" saja dan mengubah angka "4" menjadi "3". Sedangkan bila cuma ingin menampilkan "0001" saja, maka hapus "KodeID = "ID-" &" sehingga makronya menjadi KodeID = Format(Right(Ws.Cells(irow, 1), 4) + 1, "0###"). Perhatikan point (5)

• Exit Sub. Menghentikan perintah makro yang pertama, kemudian melanjutkan perintah makro yang berikutnya. Untuk contoh kali ini bisa tidak dgunakan, tetapi apabila kode id otomatis ini ditambahkan perintah lain seperti message box, penggunaan exit sub kadang diperlukan untuk mencegah menjalankan perintah secara berulang.

Apakah ini sudah selesai?, jawabannya belum karena makro diatas hanya untuk membuat kode id saja, belum dapat ditampilkan secara otomatis pada saat Userform atau aplikasi dijalankan. Untuk itu perlu ditambahkan kembali sebuah kode makro pada userform, dimana apabila Userform dijalankan, maka kode id tersebut akan otomatis ikut tampil. Untuk itu Sobat SD tambahkan makro dibawah ini:

Private Sub UserForm_Activate()
    Tampil_KodeID
End Sub

Dengan melihat gambar diatas, Sobat SD sudah dapat mengetahui makro "Tampil_KodeID diperoleh darimana. Setelah semuanya dibuat, coba jalankan UserForm dengan tombol  F5  atau klik Run pada ToolsBar VBE. Maka hasilnya akan menjadi seperti gambar dibawah ini:

Untuk lebih detail dapat Sobat SD lihat pada Channel Youtube Sobat SD. Nah Sobat SD, bagaimana membuat sebuah kode id otomatis telah Admin jelaskan diatas. Apabila ada kesalahan, tolong dikoreksi dan sarannya. Semoga bermanfaat, wassalam

Location:

Share :