วิธีย้ายรายการระหว่างสองกล่องรายการใน Excel อย่างรวดเร็ว?

คุณเคยพยายามย้ายรายการจากกล่องรายการหนึ่งไปยังอีกกล่องรายการหนึ่งตามที่คุณต้องการตามภาพด้านล่างนี้หรือไม่? ที่นี่ฉันจะพูดถึงการดำเนินการนี้ใน Excel

ย้ายรายการระหว่างกล่องรายการ

ย้ายรายการระหว่างกล่องรายการ

ไม่มีฟังก์ชันในตัวที่ช่วยให้คุณทำงานให้เสร็จได้ แต่ฉันมีรหัส VBA ที่สามารถช่วยได้

1. ประการแรกคุณต้องสร้างรายการข้อมูลซึ่งจะแสดงเป็นรายการในกล่องรายการในแผ่นงานใหม่ซึ่งเรียกว่า ผู้ดูแลระบบ_รายการ.

2. จากนั้นเลือกข้อมูลเหล่านี้และไปที่ไฟล์ Name กล่องสำหรับตั้งชื่อ รายการรายการ. ดูภาพหน้าจอ:

3. จากนั้นในแผ่นงานซึ่งจะมีกล่องรายการสองกล่องให้คลิก ผู้พัฒนา > สิ่งที่ใส่เข้าไป > กล่องรายการ (Active X Control)แล้ววาดสองกล่องรายการ ดูภาพหน้าจอ:

ถ้า ผู้พัฒนา แท็บซ่อนริบบิ้นของคุณ วิธีแสดง / แสดงแท็บนักพัฒนาใน Excel 2007/2010/2013 Ribbon บทความนี้จะบอกวิธีแสดง

4 จากนั้นคลิก ผู้พัฒนา > สิ่งที่ใส่เข้าไป > ปุ่มคำสั่ง (Active X Control)และวาดสี่ปุ่มระหว่างสองกล่องรายการ ดูภาพหน้าจอ:

ตอนนี้เพื่อเปลี่ยนชื่อปุ่มคำสั่งสี่ปุ่มด้วยชื่อใหม่

5. เลือกปุ่มคำสั่งแรกคลิก อสังหาริมทรัพย์ , และใน อสังหาริมทรัพย์ บานหน้าต่างตั้งชื่อ BTN_moveเอาล่ะ ไปที่มันและพิมพ์ >> ลงในช่องด้านข้าง คำบรรยายภาพ. ดูภาพหน้าจอ:

6. ทำซ้ำขั้นตอนที่ 5 เพื่อเปลี่ยนชื่อปุ่มคำสั่งสามปุ่มสุดท้ายด้วยชื่อด้านล่างและพิมพ์ลูกศรอื่นลงในคำบรรยาย ดูภาพหน้าจอ:

BTN_Move ที่เลือกไว้ทางขวา

BTN_moveAllซ้าย

BTN_Move Selectedซ้าย

7. คลิกขวาที่ชื่อแผ่นงานซึ่งมีกล่องรายการและปุ่มคำสั่งแล้วเลือก ดูรหัส จากเมนูบริบท ดูภาพหน้าจอ:

8. คัดลอกและวางโค้ดมาโครด้านล่างลงในไฟล์ โมดูล จากนั้นบันทึกรหัสและปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง. ดูภาพหน้าจอ

VBA: ย้ายรายการระหว่างสองกล่องรายการ

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. จากนั้นไปที่แผ่นงานอื่นจากนั้นกลับไปที่แผ่นงานที่มีกล่องรายการตอนนี้คุณสามารถเห็นข้อมูลรายการที่ได้รับในกล่องรายการแรก และคลิกที่ปุ่มคำสั่งเพื่อย้ายรายการระหว่างสองกล่องรายการ

ย้ายการเลือก

ย้ายทั้งหมด