Bagaimana cara cepat memindahkan item di antara dua kotak daftar di Excel?

Pernahkah Anda mencoba memindahkan item dari satu kotak daftar ke kotak daftar lain yang Anda butuhkan seperti gambar di bawah ini? Di sini saya akan berbicara tentang operasi ini di Excel.

Pindahkan item di antara kotak daftar

Pindahkan item di antara kotak daftar

Luar biasa! Menggunakan Tab Efisien di Excel Seperti Chrome, Edge, Firefox dan Safari!
Hemat 50% waktu Anda, dan kurangi ribuan klik mouse untuk Anda setiap hari!

Tidak ada fungsi built-in yang dapat membantu Anda menyelesaikan pekerjaan, tetapi saya memiliki kode VBA yang dapat membantu.

1. Pertama, Anda perlu membuat daftar data yang akan ditampilkan sebagai item dalam kotak daftar di lembar baru yang disebut Admin_Daftar.

2. Kemudian pilih data ini dan buka Nama kotak untuk memberi mereka nama Daftar Barang. Lihat tangkapan layar:

3. Kemudian dalam sebuah lembar yang akan berisi dua kotak daftar, klik Pengembang > Menyisipkan > Kotak Daftar (Kontrol X Aktif), dan gambar dua kotak daftar. Lihat tangkapan layar:

Jika Pengembang tab menyembunyikan pita Anda, Bagaimana cara menampilkan / menampilkan tab pengembang di Pita Excel 2007/2010/2013? artikel ini akan memberi tahu Anda cara menampilkannya.

4. Lalu klik Pengembang > Menyisipkan > Tombol Perintah (Kontrol X Aktif), dan gambar empat tombol di antara dua kotak daftar. Lihat tangkapan layar:

Sekarang untuk mengganti nama empat tombol perintah dengan nama baru.

5. Pilih tombol perintah pertama, klik Properties, dan di Properties panel, beri nama BTN_moveAllRight untuk itu, dan ketik >> ke dalam kotak teks di samping Keterangan. Lihat tangkapan layar:

6. Ulangi langkah 5 untuk mengganti nama tiga tombol perintah terakhir dengan nama di bawah ini, dan juga ketikkan panah yang berbeda ke dalam judul. Lihat tangkapan layar:

BTN_Pindahkan Dipilih Kanan

BTN_moveAllLeft

BTN_MoveSelectedLeft

7. Klik kanan pada nama lembar yang berisi kotak daftar dan tombol perintah, lalu pilih Lihat kode dari menu konteks. Lihat tangkapan layar:

8. Salin dan tempel kode makro di bawah ini ke Modul skrip kemudian simpan kode dan tutup Microsoft Visual Basic untuk Aplikasi jendela. Lihat tangkapan layar

VBA: Pindahkan item di antara dua kotak daftar

Private Sub Worksheet_Activate()
'UpdatebyExtendoffice20171117
    Dim xCell As Range
    Dim xRg As Range
    Set xRg = Sheets("Admin_Lists").Range("ItemList")
    Me.ListBox1.Clear
    Me.ListBox2.Clear
    With Me.ListBox1
        .LinkedCell = ""
        .ListFillRange = ""
        For Each xCell In xRg
            If xCell <> "" Then
                .AddItem xCell.Value
            End If
        Next xCell
    End With
    Me.ListBox1.MultiSelect = fmMultiSelectMulti
    Me.ListBox2.MultiSelect = fmMultiSelectMulti
End Sub

Private Sub BTN_MoveSelectedLeft_Click()
    Call moveSigle(Me.ListBox2, Me.ListBox1)
End Sub

Private Sub BTN_MoveSelectedRight_Click()
    Call moveSigle(Me.ListBox1, Me.ListBox2)
End Sub

Private Sub BTN_moveAllLeft_Click()
    Call moveAll(Me.ListBox2, Me.ListBox1)
End Sub

Private Sub BTN_moveAllRight_Click()
    Call moveAll(Me.ListBox1, Me.ListBox2)
End Sub

Sub moveAll(xListBox1 As Object, xListBox2 As Object)
    Dim I As Long
    For I = 0 To xListBox1.ListCount - 1
        xListBox2.AddItem xListBox1.List(I)
    Next I
    xListBox1.Clear
End Sub

Sub moveSigle(xListBox1 As Object, xListBox2 As Object)
    Dim I As Long
    For I = 0 To xListBox1.ListCount - 1
        If I = xListBox1.ListCount Then Exit Sub
        If xListBox1.Selected(I) = True Then
            xListBox2.AddItem xListBox1.List(I)
            xListBox1.RemoveItem I
            I = I - 1
        End If
    Next
End Sub

9. Kemudian pergi ke sheet lain kemudian kembali ke sheet yang berisi kotak daftar, sekarang Anda dapat melihat data daftar telah daftar di kotak daftar pertama. Dan klik pada tombol perintah untuk memindahkan item di antara dua kotak daftar.

Pindahkan pilihan

Pindahkan semua

Alat Produktivitas Kantor Terbaik

	Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
	Pencarian Super: VLookup Beberapa Kriteria  |   VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
	Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
	Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
	Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar   |  Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel   |  Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
	15 Perangkat Teratas:  12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Canggih untuk Meningkatkan Produktivitas dan Menghemat Waktu.  Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...

Read More ... Download Gratis...

---

Office Tab Menghadirkan antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Lebih Mudah

• Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
• Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
• Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!

Read More ... Download Gratis...