• 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 klik ikon > di standard Toolbar atau gunakan tombol pintas F5
    Hasil akhir dari tutorial kali ini tampak dalam ilustrasi berikut:
    Menggeser value naik atau rutun
    Terimakasih sudah membaca
    Tutorial: Menggeser Isi Data ListBox Ke Atas Atau Ke Bawah
    Labels: - Author: excelive

    Artikel Terkait

  • Still haven't found what are you looking for

    We have provided a complete list of articles on this site to make it easier for you and giving the best solution for your excel issues

    VISIT LINK
    DMCA.com Protection Status

    excelive.com
    is a blogger resources site who provides best excel tutorial based on daily needs. The main mission of excelive is to share our little experience in excel to deliver best time killer for your excel issues, such as the following :
    Macro VBA Excel Functions Custom UDF many more...
    T.O.S
    Term of service

    Read More
    Download Area
    to complete all excel lessons, we have provided a download link for you Find Here
    Copyright © 2016 - excelive.com. Some rights reserved.
    Menyalin sebagian atau keseluruhan materi situs hanya diperbolehkan dengan tautan balik terbuka ke sumbernya.
    equipped with by blogger