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
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
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh 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!
