Membuat ID Number Otomatis Di Userform Excel

 Aplikasi Excelku. Hallo Sobat Blogger semuanya, Alhamdulillah pada kesempatan kali ini Saya kembali bisa untuk menyapa Sobat Blogger semuanya. Terimakasih Saya ucapkan terimakasih sebanyak-banyaknya kepada Anda semuanya (Sobat Blogger) yang sudah mengunjungi Blog Sederhana Saya ini. Masih mengenai VBA Excel, pada ksempatan ini,melalui artikel/postingan ini saya kembali akan berbagi sebuah tutorial sederhana, tentunya mengenai VBA Excel ya. Dan sesuai dengan judul artikel/postingan ini, Saya akan berbagi sebuah tutorial sederhana mengenai Cara Membuat ID Number Otomatis Di Userform Excel.  

 

Apa Itu ID Number?

Nomor Identifikasi Pribadi (Inggris personal identification number (PIN; diucapkan "pin")) merupakan angka sandi rahasia antara pengguna dan sistem yang dapat digunakan untuk otentikasi pengguna ke sistem. Biasanya, pengguna diharuskan untuk memberikan identifikasi pengguna umum atau bukti dan PIN rahasia untuk mendapatkan akses ke sistem. Setelah menerima User ID dan PIN, sistem melihat PIN didasarkan pada User ID dan membandingkan PIN pada sistem dengan PIN yang diterima. Pengguna mendapatkan akses hanya bila nomor yang dimasukkan sesuai dengan nomor yang disimpan dalam sistem. 

Sumber : https://id.wikipedia.org/wiki/Nomor_Identifikasi_Pribadi

Membuat ID Number Otomatis Di Userform Excel

Untuk penerapan ID Number otomatis ini juga Saya terapkan di beberpa aplikasi berbasis Excel yang sudah juga Saya bagikan di blog Saya ini, diantaranya adalah :

1. Aplikasi Database Siswa (ADABS) Versi 1.0; dan
2. Aplikasi Simple Student Card

 

 Baiklah Saya lanjutkan saja mengenai Cara Membuat ID Number otomatis di Useform VBA Excel :

1. Pembuatan Userform

 

 Karena disini kita akan bermain-main dengan VBA maka kita tidak akan lepas dari pembuatan Userform, dan berikut ini Saya jelaskan kembali mengenai cara membuat sebuah Userform di Aplikasi Excel  :

a. Pada lembar kerja Aplikasi Excel klik pada menu Developer, kemudian klik lagi pada Visual Basic, atau bisa juga dengan menekan tombol kombinasi ALT+F11:

 

b. Didalam lembar kerja Visual Basic kita klik pada menu Insert, kemudian klik lagi pada Userform :

 

Silahkan atur tinggi, lebar Userform sesuai dengan kebutuhan masing-masing.

c. Jika Userform sudah selesai dibuat, selanjutnya adalah menyisipkan sebuah label ke dalam Userform yang sudah kita buat tadi, dan caranya adalah sebagai berikut ini :

 

Setelah klik pada label pada Tool Box silahkan klik pada area Userform, kemudian ubah Caption dari label tersebut menjadi ID Number, perhatikan gambar di bawah ini :

d. Langkah selanjutnya adalah menyisipkan sebuah TextBox kedalam Userform, caranya klik pada TextBox didalam Tool Box, dan pada contoh ini Saya meletakkannya disamping dari label ID Number tadi.

 

 Berikut ini hasil jadinya :

 

 Selanjutnya kita ubah nama (Name) dari TextBox yang sudah kita sisipkan tadi, yang awalnya (default) adalah TextBox1, kita ubah menjadi TxtID, caranya : klik pada TextBox yang sudah kita sisipkan/buat tadi, kemudian dijendela Properties kita ubah pada kolom Name, perhatikan gambar di bawah ini :

Untuk proses pembuatan Userform dan komponen lainnya sudah selesai, selanjutnya kita buat terlebih dahulu sebuah Sheet yang akan kita jadikan sebagai acuan dalam membuat ID Number otomatis kita nantinya.

2. Menentuka Sheet Untuk Acuan pembuatan ID Number Otomatis

 

 a. Menentukan Sheet

 

Minimize lembar kerja Visual Basic Excelnya, dan kembali ke lembar kerja utama dari Ms. Excel kita, berikutnya kita tantukan Sheet mana yang akan kita jadikan sebagai acuan dalam pembuatan ID Number nanyinya. Dan pada contoh ini Saya menggunakan Sheet1. Kemudian kita ubah nama Sheet1 tersebut menjadi DBS, atau bisa disesuaikan dengan keinginan masing-masing. 

Kemudian di Sheet (DBS) tadi kita buat sebuah data seperti berikut ini :

 

Seperti yang ada pada gambar di atas, Saya membuat sebuah data (header) tabel yang nantinya akan menjadi Database untuk acuan pembuatan ID Number otomatis nantinya.

b. Membuat Name Range

 

Name Range ini nantinya akan mempermudah kita untuk memanggil nilai yang terdapat pada cell tersebut yang merupakan Database dari file yang kita buat ini, dan berikut ini cara untuk membuat Name Range :

 

 Klik pada menu Formulas kemudian klik lagi pada Name Manager. Selanjunya kita klik pada tombol New :

 

 Berikutnya, silahkan isikan DATABASE pada kolom Name, kemudian copy dan paste rumus/formula di bawah ini pada kolom Refers to kemudian akhir dengan klik OK kemudian CLose. Perhatikan gambar di bawah ini :

 

=OFFSET(DBS!$A$1;1;;COUNTA(DBS!$A$2:$A$990);COUNTA(DBS!$1:$1))

 

 

3. Penerapan Kode/Script Macro

Kita buka kembali halaman/lembar kerja Visual Basic Aplikasi Excel kita, kemudian kita sisipkan sebuah module baru didalamnya, caranya dalah klik pada menu Insert kemudian klik pada Module, perhatikan gambar di bawah ini :

Langkah selanjutnya adalah copy dan paste kode/script Macro di bawah ini kedalam module yang tadi sudah kita sisipkan :

Function fn_LastRow(ByVal Sht As Worksheet)

'https://aplikasiexcelku.blogspot.com
    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

Jika sudah, tutup halaman module tadi, kemudian klik kanan pada Userform dan pilih View Code. Selanjutnya silahkan Sobat Blogger copy dan paste kode/script Macro di bawah ini kedalam lembar code dari Userform tadi :

Sub IDNumber()

'https://aplikasiexcelku.blogspot.com
On Error Resume Next
Dim IdVal As Integer
    'Finding last row in the Data Sheet
    IdVal = fn_LastRow(Sheets("DBS"))
    'Update next available id on the userform
    Me.txtID = "ID-" & Format(IdVal, "0000")
End Sub

 

Private Sub UserForm_Initialize()

'https://aplikasiexcelku.blogspot.com
IDNumber
End Sub

Sehingga menjadi seperti pada gambar di bawah ini :

Kemudian kita lihat hasilnya, dengan cara klik pada tombol Run atau bisa juga dengan cara tekan tombol F5 pada keyboard :

Maka hasilnya akan seperti pada video di bawah ini :

Download Sample File ID Number UserForm Excel

 

Mungkin hanya itu saja yang dapat Saya sampaikan pada kesempatan kali ini, mudah-mudahan apa yang sudah Saya sampaikan bisa bermanfaat untuk kita semuanya. Sekian, terimakasih, dan selamat mencoba.

Salam belajar.

Share :