Menggeser Isi Data ListBox Ke Atas Atau Ke Bawah - excelive - kumpulan artikel dan tutorial excel

New Posts

Post Top Ad

Your Ad Spot

Menggeser Isi Data ListBox Ke Atas Atau Ke Bawah

menggeser isi listbox

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)
Menggeser Isi Lstbox

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 🖰 ikon⏵di standard Toolbar atau gunakan tombol pintas F5
Hasil akhir dari tutorial kali ini tampak dalam ilustrasi berikut:
Menggeser value naik atau rutun

Post Top Ad

Your Ad Spot