Salin Data Dari Listbox1 Ke Listbox2

Salin Data Dari Listbox1 ke Listbox2 - Seperti yang terlihat pada gambar berformat gif dibawah..!! dimana data yang tampil pada Listbox pertama disalin ke dalam Listbox ke dua. 

Langkah-langkahnya sangatlah mudah. Caranya anda hanya mengcopy dan pastekan kode pada tempatnya. Ikuti langkahnya dan tempatkan kode pada lokasi yang tepat dan benar.

Salin Data Dari Listbox1 Ke Listbox2
Admin sangat menyarankan bagi yang mempelajari kode Vba Excel tahap pemula untuk dapat membuat file contoh penerapan sendiri. Dengan membuat file penerapan sendiri akan lebih cepat memahami dan mengetahui fungsi dan cara kerja kode yang diterapkan dalam aplikasi.Langkah-

langkah membuat Salin Data Dari Listbox1 Ke Listbox2 :
  • Download dulu Filenya : Salin Data Dari Listbox1 Ke Listbox2 supaya tidak capek lagi merancang userformnya.
  • Tempatkan Script dibawah ini untuk mengisi pilihan yang ada dalam Listbox1 pada Userform_Initialize
Userform_initialize()
With ListBox1 
.AddItem "Data Siswa" 
.AddItem "Data Guru" 
.AddItem "Data Inventaris" 
.AddItem "Data Keuangan" 
End With 
End Sub
  • Tempatkan Script Berikut pada ComandButton1  sebagai tombol yang berfungsi untuk menyalin data dari Listbox1 ke Listbox2
Private Sub CommandButton1_Click()
For i = 0 To ListBox1.ListCount - 1 
 If ListBox1.Selected(i) = True Then ListBox2.AddItem ListBox1.List(i) 
Next i 
End Sub
  • Tempatkan Script dibawah ini pada CommandButton2 sebagai tombol yang berfungsi untuk menghapus data pada Listbox2 
Private Sub CommandButton2_Click()
Dim counter As Integer 
counter = 0
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i - counter) Then
ListBox2.RemoveItem (i - counter) 

counter = counter + 1 
End If 
Next i 
End Sub
  • Demikian Cara Salin Data Dari Listbox1 Ke Listbox2, Semoga dapat dikembangkan sesuai dengan kebutuhan Aplikasi yang sedang dibuat.



Berlangganan update artikel terbaru via email:

0 Response to "Salin Data Dari Listbox1 Ke Listbox2"

Post a Comment

Komentar Anda Sangat Menentukan Kelangsungan Blog ini

Iklan Atas Artikel

Iklan Tengah Artikel 2

Iklan Bawah Artikel