Panduan Macro VBA Microsoft Excel kali ini akan membahas tentang ListBox yang dipadukan dengan CommandButton. Dimana dalam kasus ini kita akan memindahkan atau lebih tepatnya menggeser posisi data atau nilai yang terpilih yang terdapat di dalam ListBox baik keatas atau kebawah dengan menggunakan tombol yang ada.

Untuk membuatnya, buat beberapa control berikut ini

• UserForm
• CommandButton1
• CommandButton2
• ListBox1

Langkah berikutnya adalah memposisikan control CommandButton1, CommandButton2, serta ListBox1 di dalam Userform1 seperti gambar berikut (atau sesuai dengan selera Anda)


Setelah selesai mendesain, saatnya memasukkan baris-baris perintah di jendela kode :

1. Pilih CommandButton1 dan CommandButton2 kemudian ganti atribut Enabled menjadi False, hal ini berfungsi untuk menonaktifkan kedua tombol tersebut agar pengguna tidak bisa mengkliknya sebelum memilih data atau value yang ada di ListBox
   
   
2. Dijendela kode Masukkan beberapa perintah berikut ini:
   
   • Mengisi ListBox secara otomatis ketika UserForm terbuka
     

     Private Sub UserForm_Activate()
     Dim Itm As Variant
     For Each Itm In Range("A1:A17").Cells
     ListBox1.AddItem Itm
     Next Itm
     End Sub

     Baris perintah ini akan mengisi ListBox1 secara otomatis sesuai dengan apa yang tertulis di sel A1 Hingga A7. Jadi isikan data-data di sel yang dimaksud agar ListBox1 tidak kosong
   • Tombol Naik (Tombol CommandButton1)
     

     Private Sub CommandButton1_Click()
     Dim Baris As Long
     Dim Terpilih As String
     
     Baris = ListBox1.ListIndex
     Terpilih = ListBox1.Value
     
     ListBox1.RemoveItem Baris
     ListBox1.AddItem Terpilih, Baris - 1
     ListBox1.ListIndex = Baris - 1
     End Sub

   • Tombol Turun (Tombol CommandButton2)
     

     Private Sub CommandButton2_Click()
     Dim Baris As Long
     Dim Terpilih As String
     
     Baris = ListBox1.ListIndex
     Terpilih = ListBox1.Value
     
     ListBox1.RemoveItem Baris
     ListBox1.AddItem Terpilih, Baris + 1
     ListBox1.ListIndex = Baris + 1
     End Sub

   • Baris kode yang terakhir adalah, untuk mengaktifkan antau menonaktifkan tombol CommandButton1 dan CommandButton2 dengan kondisi sebagai berikut
     

     ListBox	CommandButton1	CommandButton2
     Selain baris awal/akhir	✔	✔
     Baris pertama	-	✔
     Baris terakhir	✔	-

3. Setelah selesai menuliskan kode-kode VBA diatas, saatnya mengujinya dengan cara klik ikon > di standard Toolbar atau gunakan tombol pintas F5

Hasil akhir dari tutorial kali ini tampak dalam ilustrasi berikut:

Masih mau belajar lagi !

Yuk, klik tautan berikut ini :