KODE MACRO EDIT DATA DARI LISTBOX KE TEXBOX EXCEL
Anda juga dapat mengunduh contoh file VBA Macro Edit Data Melalui ListBox Ke textBox Excel
Anda juga dapat mengunduh contoh file VBA Macro Edit Data Melalui ListBox Ke textBox Excel
Kode Macro adalah scrip yang berada di jendela Visal basic for Application (VBA) sehingga Macro adalah kode yang terletak di Visial Basic for Application (VBA).
Apa sih Jendela Visual Basic for Application itu ??
Visual Basic for Application atau lebih dikenal dengan sebutan VBA adalah wadah Kode Macro dimana Anda akan disajikan dengan beberapa menu atau projec yang berkaitan dengan Macro.
Kembali ke topik Cara Membuat Menu Edit Data ListBox di Userform sangat simpel. Ikuti langkah-langkah kami dibawah ini.
- Buka Microsoft Excel
- Buat data seperti gambar dibawah ini
- Buat satu tombol Commandbutton ActiveX Control melalui Menu Developer seperti gambar diatas
- Pada Menu Ribbon Formulas > klik Name Manager > New > beri nama "data"
- Pada Refers to salin rumus formula dibawah ini
=OFFSET(Sheet1!$A$2;0;0;COUNTA(Sheet1!$A$2:$A$101);COUNTA(Sheet1!$A$1:$E$1))
- Klik Ok
- Klik dua kali tombol commandbutton maka Anda akan masuk ke jendela Visial Basic for Appication (VBA) kemudian ketik ini "UserForm1.Show"
- Buat satu buah UserForm, lima Label, lima TextBox, satu ListBox dan satu CommandButton
- Ganti tulisan Label1 menjadi Nama, Gantu tulisan Label2 menjadi Alamat, Ganti tulisan Label3 menjadi Nilai, Ganti tulisan Label4 menjadi Keterangan dan ganti Label5 menjadi Jadi
- Ganti tulisan CommandButton1 menjadi Edit
- Klik dua kali CommandButton1 (tombol edit) kemudain salin Kode Macro dibawah ini
Dim baris As Integer
Dim IndexListbox As Integer
Application.Calculation = xlCalculationManual
If Me.ListBox1.ListIndex = -1 Then
MsgBox "silahkan pilih data"
ElseIf Me.ListBox1.ListIndex >= 0 Then
IndexListbox = Me.ListBox1.ListIndex
baris = IndexListbox + 2
With Sheet1
.Cells(baris, 1) = TextBox1.Value
.Cells(baris, 2) = TextBox2.Value
.Cells(baris, 3) = TextBox3.Value
.Cells(baris, 4) = TextBox4.Value
.Cells(baris, 5) = TextBox5.Value
End With
Application.Calculation = xlCalculationAutomatic
End If
Dim IndexListbox As Integer
Application.Calculation = xlCalculationManual
If Me.ListBox1.ListIndex = -1 Then
MsgBox "silahkan pilih data"
ElseIf Me.ListBox1.ListIndex >= 0 Then
IndexListbox = Me.ListBox1.ListIndex
baris = IndexListbox + 2
With Sheet1
.Cells(baris, 1) = TextBox1.Value
.Cells(baris, 2) = TextBox2.Value
.Cells(baris, 3) = TextBox3.Value
.Cells(baris, 4) = TextBox4.Value
.Cells(baris, 5) = TextBox5.Value
End With
Application.Calculation = xlCalculationAutomatic
End If
- Kemudian klik ListBox1 dan salin Kode Macro dibawah ini
TextBox1.Value = ListBox1.List(ListBox1.ListIndex, 0)
TextBox2.Value = ListBox1.List(ListBox1.ListIndex, 1)
TextBox3.Value = ListBox1.List(ListBox1.ListIndex, 2)
TextBox4.Value = ListBox1.List(ListBox1.ListIndex, 3)
TextBox5.Value = ListBox1.List(ListBox1.ListIndex, 4)
- Klik satu kali (pilih/select) ListBox1 seperti gambar dibawah ini
- Kemudian pada propertis > ColumnWidths salin tulisan ini "60 pt;65 pt;20 pt;20 pt;40 pt" lihat gambar dibawah ini
- Pada Boundcolumn isi 1, pada Columncount isi 5 dan pada Rowsourc isi "data"
- Oke semuanya sudah siap sekarang silahkan tekan F5 (RUN) untuk mencobanya
- Jika sudah berhasil sekarang silahkan simpan dengan type enable macro atau berextensi .xlsm
Jika Anda melakukan langkah-langkah diatas dengan benar maka sistem aplikasi excel akan bekerja dengan baik dan tidak ada kotak pesan thebug (vbcritical).
"Kami Selalu Berusaha Memberikan Yang Terbaik Dan Original Untuk Anda"
Jabat Erat@Hak Cipta 2015
Post a Comment for "VBA MACRO EXCEL EDIT DATA LISTBOX KE TEXTBOX"