Cara Membuat Isian Data Pada Ms. Excel Dengan VBA

pada tanggal
<script async src="https://pagead2.googlesyndication.com/pagead/js/adsbygoogle.js?client=ca-pub-3130202143931164"
     crossorigin="anonymous"></script>
 
Pernahkah anda saat mengimput data kedalam Ms. Excel tanpa harus mengetik kedalam Cell yang yang diinginkan tetapi melalui sebuah kotak dialog?. Tentu sangat menyenangkan bukan?. Lalu bagaimana cara membuat?.

Berikut ini adalah tutorial cara membuat input data UserForm dengan vba pada Ms. Excel sebagai. Dalam membuat data base ini didalamnya kita menggunakan 4 Part UserForm yaitu :

1.  Label

Part label adalah suatu kriteria atau ekspresi atau suatu keterangan yang akan diterapkan di dalam user form kita.

2.  TextBox

Part TexBox adalah isian data yang akan kita tulis mendeskripsikan kriteria atau ekspresi pada sesuai pada Part Label

3.  ComboBox

Part ComboBox adalah TextBox yang memuat daftar pilihan atau daftar entri. ComboBox di salah satu unjungnya memiliki tombol panah, dan akan menunjukan data pilihan saat kita klik yang bisa dientri salah satunya.

4.  Part Tombol Perintah / CommandButton

Part Tombol Perintah / CommandButton Adalah tombol perintah yang akan menjalankan pengisian data dalam tabel atau cel pada saat di klik.

Langkah – langkah Membuat User Form Input Data tersebut antara lain :

Langkah 1 :

Kita harus mengingat setiap judul kolom data yang akan kita buat.

Langkah 2 :

Masuk kedalam VBA dengan cara mengklik VisualBasic pada menu Developers. Jika temen-temen belum menapilkan menu Developer pada menu bar untuk menampilkannya maka temen-temen dapat klik :

  1. Klik Menu File
  2. Klik Option
  3. Klik CustomizeRibbon
  4. Pada Kolom Main Tabs di klik dan centang Developer.

<script async src="https://pagead2.googlesyndication.com/pagead/js/adsbygoogle.js?client=ca-pub-3130202143931164"
     crossorigin="anonymous"></script>

Atau dapat juga masuk ke dalam Visual Basic dengan caranya tekan Alt + F11

Langkah 3 :

Klik kanan logo file VBAProject >> insert >> UserForm. Lalu mengatur luasan kotak yang diperlukan.

Langkah 4 :

Ganti Caption UserForm dengan mengklik dan mengketik pada baris caption fasilitas Properties.

 

Dengan fasilitas propertis ini kita dapat mengganti tampilan warna background, border style, jenis font, warna fon, dll. Baik tampilan UserForm, Label, ComboBox, ataupun CommandButton.

Langkah 5 :

Membuat Label dengan cara mengklik

  • ToolBox Label
  • Letakkan pada kotak UserForm “Input Data Penawaran”
  • Atur posisi dan ukuran agar tidak menghabiskan tempat
  • Ganti caption “Label1” dengan misalnya dengan nama “PAKET PEKERJAAN” pada properties.
  • Lakukanlah langkah ini dengan cara copypaste pada label selanjutnya agar ukurannya sama dan ketikkanlah captionnya sesuai yang diinginkan.

Langkah 6 :

Selanjutnya membuat TextBox dan ComboBox serta  CommondButton caranya sama seperti membuat LabelBox. Dan gantilah Name nya dengan fasilitas Propertis sesuai dengan kriteria label yang sudah kita buat tanpa spasi. Sebagai contoh misalnya :

  • TextBox PAKET PEKERJAAN, maka namenya “txt PAKETPEKERJAAN”
  • ComboBox KECAMATAN, maka namenya “cmbKECAMATAN”
  • CommondButton SIMPAN, maka namenya “cmdSIMPAN”
  • Dan seterusnya....

Langkah 7 :

Menuliskan Script-script kedalam UserForm. Penulisan Name TextBox, ComboBox, dan CommondButton harus sama jika ditulis di dalam script agar program dapat berjalan. Untuk menuliskan script-script dapat dilakukan dengan cara klik dua kali pada kotak UserFormnya atau dengan cara Klik kanan pada UserForm >> View Code.


<script async src="https://pagead2.googlesyndication.com/pagead/js/adsbygoogle.js?client=ca-pub-3130202143931164"
     crossorigin="anonymous"></script>

CopyPaste script berikut ini jika kita telah menyesuaikan :

Private Sub CMDSIMPAN_click()

Sheet1.Activate

Dim isi As Long

isi = WorksheetFunction.CountA(Range("A:A")) + 1

Cells(isi, 1).Value = WorksheetFunction.Count(Range("A:A"))

Cells(isi, 2).Value = TXTPAKETPEKERJAAN.Value

Cells(isi, 3).Value = CMBKECAMATAN.Value

Cells(isi, 4).Value = TXTNILAIPAGU.Value

Cells(isi, 5).Value = TXTNILAIHPS.Value

Cells(isi, 6).Value = TXTNILAIPENAWARAN.Value

Cells(isi, 7).Value = TXTNILAINEGOSIASI.Value

Cells(isi, 8).Value = TXTNAMAPERUSAHAAN.Value

Cells(isi, 9).Value = TXTEMAILPERUSAHAAN.Value

Cells(isi, 10).Value = TXTALAMAT.Value

Cells(isi, 11).Value = TXTNPWP.Value

Cells(isi, 12).Value = TXTNAMAPENAWAR.Value

Cells(isi, 13).Value = CMBJABATAN.Value

TXTNOMAX.Value = Range("A1").Value

MsgBox "Input Data Berhasil"

 
TXTPAKETPEKERJAAN.Value = ""

CMBKECAMATAN.Value = ""

TXTNILAIPAGU.Value = ""

TXTNILAIHPS.Value = ""

TXTNILAIPENAWARAN.Value = ""

TXTNILAINEGOSIASI.Value = ""

TXTNAMAPERUSAHAAN.Value = ""

TXTEMAILPERUSAHAAN.Value = ""

TXTALAMAT.Value = ""

TXTNPWP.Value = ""

TXTNAMAPENAWAR.Value = ""

CMBJABATAN.Value = ""

End Sub


'Tombol Keluar

Private Sub CMDKELUAR_click()

Unload Me

End Sub

 
'Perintah Keluar Menggunakan Tombol Perintah

Private Sub UserForm_QueryClose(Cencel As Integer, _

CloseMode As Integer)

If CloseMode = vbFormControlMenu Then

Cencel = True

MsgBox "Tekan Tombol 'KELUAR', Exit"

End If

End Sub

 
Private Sub UserForm_initialize()

With CMBKECAMATAN

.AddItem "TINGGI RAJA"

.AddItem "KISARAN BARAT"

.AddItem "KISARAN TIMUR"

.AddItem "PULAU RAKYAT"

.AddItem "RAHUNING"

.AddItem "AEKSONGSONGAN"

End With

 With CMBJABATAN

.AddItem "DIREKTUR"

.AddItem "WAKIL DIREKTUR"

.AddItem "WAKIL DIREKTUR 1"

.AddItem "WAKIL DIREKTUR 2"

.AddItem "WAKIL DIREKTUR 3"

.AddItem "WAKIL DIREKTUR 4"

.AddItem "WAKIL DIREKTUR 5"

End With

End Sub

Langkah 9 :

Jika sudah selesai dalam penulisan scriptnya temen temen dapat menjalankanya dengan menekan tombol F5 atau tekan toolbar Run. Jika berhasil maka tidak akan terjadi error, biasa penyebabnya adalah salah pengetikan baik bahasa, Name TextBox, CommboBox, CommandButton. 

  

Langkah 10 :

Simpan hasil latihan kita ini dengan mengklik menu File >> SaveAs >> Enable Macro/ Enable WorkBook.

<script async src="https://pagead2.googlesyndication.com/pagead/js/adsbygoogle.js?client=ca-pub-3130202143931164"
     crossorigin="anonymous"></script>

Untuk membuat lebih jelasnya contoh pada tutorial ini dapat di download disini....

Demikian tutorial ini semoga dapat bermanfaat.

Komentar

Posting Komentar