Membuat Formulir VBA pada Microsoft Excel

Assalamualaikum Warahmatullahi Wabarakatuh
Pada kesempatan kali ini saya akan membagikan cara membuat formulir VBA pada Microsoft Excel

Langkah pertama buka Microsoft Excel > ALT+F11 maka akan muncul Visual Basic

Selanjutnya klik Insert pilih UserForm

Maka akan muncul halaman seperti ini ^^

Selanjutnya kita akan mendesain formulir pada UseeForm dengan menggunakkan Toolbox. Aturlah sesuai dengan formulir yang akan kita buat.

Disini saya akan membuat formulir Pengisian data pegawai. Dan setiap Control yang kita gunakan memiliki propertis yang harus kita ubah sesuai yang kita inginkan. Misalnya pada Label 1 Caption kita ubah dengan " Entry Data Pegawai" begitu selanjutnya.

Setelah membuat formulir maka kita akan memasukkan code untuk menjalankan UserForm ini, dengan cara View > Code

isikan dengan Coding di bawah ini

'perintah untuk menambah data

'private sub CBOJenisKelamin_change()

Private Sub userform_initialize()

With CBOJenisKelamin

.AddItem "laki - laki"

.AddItem "Perempuan"

With CBOAgama

.AddItem "islam"

.AddItem "Kristen Protestan"

.AddItem "Kristen Katolik"

.AddItem "hindu"

.AddItem "budha"

End With

End With

End Sub

Private Sub CMDSelesai_Click()

Unload Me

End Sub

Private Sub CMDTambah_Click()

Dim iRow As Long

Dim ws As Worksheet

Set ws = Worksheets("datapegawai")

'menemukan baris kosong pada database

iRow = ws.Cells(Rows.Count, 1) _

.End(x1UP).Offset(1, 0).Row

'mencopy data ke database

ws.Cells(iRow, 1).Value = Me.TextNIPP.Value

ws.Cells(iRow, 2).Value = Me.TextNamaa.Value

ws.Cells(iRow, 3).Value = Me.Texttgllahir.Value

ws.Cells(iRow, 4).Value = Me.Texttempatlahir.Value

ws.Cells(iRow, 5).Value = Me.CBOJenisKelamin.Value

ws.Cells(iRow, 6).Value = Me.CBOAgama.Value

ws.Cells(iRow, 7).Value = Me.TextPangkat.Value

ws.Cells(iRow, 8).Value = Me.Textgolongan.Value

ws.Cells(iRow, 9).Value = Me.Textjabatan.Value

ws.Cells(iRow, 10).Value = Me.Textalamat.Value

'untuk menghapus data dari form ketika tambah data

Me.TextNIPP.Value = ""

Me.TextNamaa.Value = ""

Me.Texttgllahir.Value = ""

Me.Texttempatlahir.Value = ""

Me.CBOJenisKelamin.Value = ""

Me.CBOAgama.Value = ""

Me.TextPangkat.Value = ""

Me.Textgolongan.Value = ""

Me.Textjabatan.Value = ""

Me.Textalamat.Value = ""

Me.TextNIPP.SetFocus

End Sub

Private Sub User_QueryClose(Cancel As Integer, _

closemode As Integer)

If closemode = vbFormControlMenu Then

Cancel = True

MsgBox "KALAU MAU KELUAR HARUS MENEKAN TOMBOL SELESAI"

End If

End Sub

Jika Coding telah di isikan kita dapat menjalankan progra dengan Run Program

Selanjutnya tinggal kita isi formulir yang kita inginkan dan akan muncul pada Sheet Microsoft Excel

Terima Kasih
Wassalamualaikum Warahmatullahi Wabarakatuh
#KarenaBerbagiTakPernahRugi