Monday, May 4, 2020

MEMBUAT FORM ENTRI SEDERHANA DENGAN VBA EXCEL

| Monday, May 4, 2020


Setelah pada pembahasan sebelumnya kita sudah membahas tentang LINGKUNGAN KERJA VBA EXCEL, pada kali ini kita akan mencoba membuat Form entri sederhana pada Excel dengan menggunakan VBA, dengan langkah sebagai berikut :

1. Buka Microsoft Excel
2. Tekan Alt+F11 maka Anda akan disajikan dengan jendela Visual Basic for Application (VBA)
3. Buatlah satu buah Userform, tiga label, dua textbox, dua optionbutton dan dua commandbutton.

 

Setiap object memiliki Propertis, Rubahlah masing-masing Captionnya menjadi seperti gambar di bawah ini :


4. Klik dua kali tombol simpan dan salin Kode Macro dibawah ini :

'membuat deglarasi untuk sebuah inputdata Dim inputkandata As Long 'yaitu di sheet1 Sheet1.Activate 'nah nama deglarasi terdapat di cell A kesamping dan + 1 digunakan jika dikolom dimaksud sudah ada text/nilai maka otomatis data baru berada di bawahnya inputkandata = WorksheetFunction.CountA(Range("A:A")) + 1 '==proses input== Cells(inputkandata, 1).Value = TextBox1.Value Cells(inputkandata, 2).Value = TextBox2.Value If OptionButton1.Value = True Then Cells(inputkandata, 3).Value = "Laki-laki" Else If OptionButton2.Value = True Then Cells(inputkandata, 3).Value = "perempuan" End If End If TextBox1 = "" TextBox2 = "" OptionButton1 = "" OptionButton2 = "" 'Kembali ke textbox1 Me.TextBox1.SetFocus 'vbCrLf berfungsi seperti ENTER pesan = MsgBox("data sudah tersimpan" & vbCrLf & "Apakah Anda ingin menambah data ?", vbYesNo, "sistem aplikasi") Select Case pesan Case vbYes Me.TextBox1.SetFocus Case vbNo Unload Me End Select ActiveWorkbook.Save

5. Klik dua kali tombol kembali dan ketik kode macro ini "Unload Me" Untuk mencobanya silahkan tekan F5  Simpan dengan type excel macro atau biasanya berextensi .xlsm

6. Jika langkah-langkah diatas dilakukan dengan benar maka sistem akan berjalan dengan lancar dan tidak ada pesan debug.

Baca juga tutorial lainnya pada DAFTAR ISI

Related Posts

No comments:

Post a Comment