Membuat Formulir Pengisian Data Mahasiswa Dengan VBA Pada Ms. Excel ~ A Future Fiscus

Langkah - langkah untuk membuat pengisian data mahasiswa dengan VBA pada Ms. Excel :

1. Pertama buka Microsoft Excel, kemudian klik Tab Developer. Pastikan Microsoft Excel anda telah mengaktifkan menu Tab Developer.

2. Pada Tab Developer, klik Visual Basic atau dengan menekan tombol Alt + F11.

3. Jendela Visual Basic terbuka, kemudian pilih menu Insert > UserForm, maka tampilan Form VBA terbuka.

Tampilan Form VBA

Toolbox

Toolbox dimana kita bisa meletakkan berbagai kontrol/komponen pada form.

4. Kemudian buatlah Formulir Data Mahasiswa yang dibutuhkan dengan menggunakan menu yang ada pada Toolbox. Berikut contoh Formulir yang telah dibuat.

5. Lalu pilih menu View > Code atau Klik kanan pada form dan pilih View Code untuk melakukan coding program.

6. Masukkan kode pemograman sesuai dengan data yang dibuat.

Berikut kode pemogramannya.

Private Sub UserForm_Initialize()
'Kosongkan data Text Box
TxtNamaLeng.Value = ""
TxtAsDa.Value = ""
TxtProgStud.Value = ""
TxtKls.Value = ""
TxtTmptLhr.Value = ""
TxtAlmt.Value = ""

'Clear Combo
CmbTgl.Clear
CmbBln.Clear
CmbThn.Clear
CmbJnsKlmn.Clear

'Isi Program Studi untuk combo Box Program Studi
With TxtProgStud
.AddItem "Diploma I Pajak"
.AddItem "Diploma I Kepabeanan dan Cukai"
End With

'Isi Tanggal untuk combo Box Tanggal Lahir
With CmbTgl
.AddItem "1"
.AddItem "2"
.AddItem "3"
.AddItem "4"
.AddItem "5"
.AddItem "6"
.AddItem "7"
.AddItem "8"
.AddItem "9"
.AddItem "10"
.AddItem "11"
.AddItem "12"
.AddItem "13"
.AddItem "14"
.AddItem "15"
.AddItem "16"
.AddItem "17"
.AddItem "18"
.AddItem "19"
.AddItem "20"
.AddItem "21"
.AddItem "22"
.AddItem "23"
.AddItem "24"
.AddItem "25"
.AddItem "26"
.AddItem "27"
.AddItem "28"
.AddItem "29"
.AddItem "30"
.AddItem "31"
End With

'Isi Bulan untuk combo Box Bulan Lahir
With CmbBln
.AddItem "JANUARI"
.AddItem "FEBRUARI"
.AddItem "MARET"
.AddItem "APRIL"
.AddItem "MEI"
.AddItem "JUNI"
.AddItem "JULI"
.AddItem "AGUSTUS"
.AddItem "SEPTEMBER"
.AddItem "OKTOBER"
.AddItem "NOVEMBER"
.AddItem "DESEMBER"
End With

'Isi Tahun untuk combo Box Tahun Lahir
With CmbThn
.AddItem "1994"
.AddItem "1995"
.AddItem "1996"
.AddItem "1997"
.AddItem "1998"
.AddItem "1999"
End With

'Isi Jenis Kelamin untuk combo Box Jenis Kelamin
With CmbJnsKlmn
.AddItem "Laki-Laki"
.AddItem "Perempuan"
End With
End Sub

Private Sub BtnSimpan_Click()

Dim emptyRow As Long
'aktifkan Sheet1
Sheet1.Activate

'deteksi baris kosong
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1

'Simpan data ke sheet1
Cells(emptyRow, 1).Value = TxtNamaLeng.Value
Cells(emptyRow, 2).Value = TxtAsDa.Value
Cells(emptyRow, 3).Value = TxtProgStud.Value
Cells(emptyRow, 4).Value = TxtKls.Value
Cells(emptyRow, 5).Value = TxtTmptLhr.Value
Cells(emptyRow, 6).Value = CmbTgl.Value & "/" & CmbBln.Value & "/" & CmbThn.Value
Cells(emptyRow, 7).Value = CmbJnsKlmn.Value
Cells(emptyRow, 8).Value = TxtAlmt.Value

End Sub

Private Sub cmdBatal_Click()
Unload Me
End Sub
End Sub

7. Setelah memasukkan kode pemograman, jalankan form tersebut. Klik Run > Run Sub/ UserForm atau dengan menggunakan kunci keyboard F5.