Membuat sebuah aplikasi input data pada Microsoft Excel bukanlah suatu hal yang sulit, dengan menggunakan macro Excel, Anda dapat dengan mudah membangun sebuah aplikasi input data dalam waktu singkat.
Cara Membuat Aplikasi Input Data Dengan Macro Excel
Untuk membuat aplikasi input data dengan macro Excel, Anda perlu mengikuti langkah-langkah berikut ini:
- Buka Microsoft Excel
- Gunakan tombol “Alt + F11” untuk membuka Microsoft Visual Basic
- Pada jendela Microsoft Visual Basic, pilih menu “Insert” kemudian pilih “UserForm”
- Atur tampilan UserForm sesuai keinginan
- Tambahkan “TextBox” dan “CommandButton” pada UserForm
- Tambahkan baris kode ke dalam “CommandButton_Click()” agar data dapat disimpan
- Simpan userform dan kembali ke Microsoft Excel
- Gunakan tombol “Alt + F8” untuk menjalankan aplikasi
- Isi data pada text box yang disediakan
- Klik “CommandButton” untuk menyimpan data ke dalam worksheet Excel
Setelah mengikuti langkah-langkah di atas, maka Anda telah berhasil membuat sebuah aplikasi input data pada Microsoft Excel dengan menggunakan macro Excel.
Cara Membuat Aplikasi VBA Excel Input Data Pada File Berbeda
Untuk membuat aplikasi VBA Excel input data pada file berbeda, Anda perlu mengikuti langkah-langkah berikut ini:
- Buka Microsoft Excel dan buatlah file baru
- Buat sebuah aplikasi input data seperti yang dijelaskan pada tutorial sebelumnya
- Jangan lupa memberi nama pada setiap kontrol yang digunakan pada aplikasi input data tersebut
- Simpan file aplikasi input data tersebut dengan format .xlsm
- Buka file tujuan dimana data akan disimpan
- Pilih menu “Developer” pada tab “Ribbon”
- Pilih menu “Visual Basic” untuk membuka jendela Microsoft Visual Basic
- Pilih menu “Insert” kemudian pilih “Module”, dan masukkan baris kode berikut di dalam modul:
Sub OpenUserForm()
UserForm1.Show
End Sub
Sub AddNewRow()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Sheet1")
With sh
.Range("A" & .Rows.Count).End(xlUp).Offset(1, 0).Value = UserForm1.TextBox1.Value
.Range("B" & .Rows.Count).End(xlUp).Offset(1, 0).Value = UserForm1.TextBox2.Value
.Range("C" & .Rows.Count).End(xlUp).Offset(1, 0).Value = UserForm1.TextBox3.Value
.Range("D" & .Rows.Count).End(xlUp).Offset(1, 0).Value = UserForm1.TextBox4.Value
End With
UserForm1.TextBox1.Value = ""
UserForm1.TextBox2.Value = ""
UserForm1.TextBox3.Value = ""
UserForm1.TextBox4.Value = ""
MsgBox "Data Saved Successfully!", vbInformation
End Sub
- Klik “File” kemudian pilih “Save”
- Simpan dengan nama yang Anda inginkan dan format “.xlsm”
- Kembalilah ke worksheet Excel dan pilih menu “Developer”
- Pilih “Visual Basic” kemudian pilih “Insert” dan pilih “Form”, dan atur tampilan userform sesuai keinginan
- Tambahkan “TextBox1”, “TextBox2”, “TextBox3”, “TextBox4” dan “CommandButton1” pada form
- Beri nama masing-masing TextBox dan CommandButton seperti yang Anda inginkan. Contoh: TextBox1 diberi nama “txtName” dan TextBox2 diberi nama “txtID”
- Klik “CommandButton” pada userform dan tambahkan code berikut:
Private Sub CommandButton1_Click()
Dim xlApp As New Excel.Application
Dim xlWB As Excel.Workbook
Set xlWB = xlApp.Workbooks.Open("C:\Temp\UserFormData.xlsm")
xlApp.Run "AddNewRow"
xlWB.Save
xlWB.Close
xlApp.Quit
Set xlWB = Nothing
Set xlApp = Nothing
End Sub
Setelah mengikuti langkah-langkah di atas, maka Anda telah berhasil membuat sebuah aplikasi VBA Excel input data pada file berbeda.
FAQ
Apa itu Macro Excel?
Macro Excel adalah sebuah fitur di Excel yang memungkinkan pengguna untuk merekam sebuah seri tindakan yang dilakukan di Excel ke dalam sebuah script atau kode VBA yang dapat digunakan untuk melakukan serangkaian tindakan yang sama.
Apa itu UserForm di Excel?
UserForm di Excel adalah sebuah form atau jendela dialog yang dapat ditampilkan oleh pengguna dalam mode desain atau modus runtime. Userform ini dapat berisi berbagai kontrol seperti Textbox, Combobox, Checkbox dan lainnya.
Video Tutorial
Berikut ini adalah video tutorial cara membuat aplikasi input data menggunakan macro Excel: