วิธีเติมกล่องคำสั่งผสมด้วยค่าเฉพาะใน Excel

เมื่อคุณสร้างกล่องคำสั่งผสมที่มีรายการข้อมูลซึ่งมีค่าที่ซ้ำกันค่าที่ซ้ำกันจะไม่ถูกแยกออกโดยอัตโนมัติในกล่องคำสั่งผสม ในกรณีนี้คุณจะแสดงเฉพาะรายการที่ไม่ซ้ำกันในกล่องคำสั่งผสมของคุณได้อย่างไร? อาจเป็นบทช่วยสอนนี้สามารถช่วยคุณได้

เติมกล่องคำสั่งผสมด้วยค่าที่ไม่ซ้ำกันโดยใช้รหัส VBA เท่านั้น

เติมกล่องคำสั่งผสมด้วยค่าที่ไม่ซ้ำกันโดยใช้รหัส VBA เท่านั้น

รหัส VBA ต่อไปนี้อาจช่วยให้คุณเพิ่มค่าที่ไม่ซ้ำกันเมื่อสร้างกล่องคำสั่งผสมโปรดทำดังนี้:

1. ใส่กล่องคำสั่งผสมก่อนโปรดคลิก ผู้พัฒนา > สิ่งที่ใส่เข้าไป > กล่องคำสั่งผสม (ActiveX Control)จากนั้นลากเมาส์เพื่อวาดกล่องคำสั่งผสมดูภาพหน้าจอ:

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

3. และ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างจะเปิดออกมาโปรดคัดลอกและวางรหัสต่อไปนี้เพื่อแทนที่รหัสเดิม

รหัส VBA: กล่องคำสั่งผสมที่มีค่าเฉพาะ:

Public Sub Populate_combobox_with_Unique_values()
'Updateby Extendoffice
    Dim vStr, eStr
    Dim dObj As Object
    Dim xRg As Range
    On Error Resume Next
    Set dObj = CreateObject("Scripting.Dictionary")
    Set xRg = Application.InputBox("Range select:", "Kutools for Excel", _
                                    ActiveWindow.RangeSelection.AddressLocal, , , , , 8)
    vStr = xRg.Value
    Application.ScreenUpdating = False
    With dObj
        .comparemode = 1
        For Each eStr In vStr
            If Not .exists(eStr) And eStr <> "" Then .Add eStr, Nothing
        Next
        If .Count Then
            ActiveSheet.ComboBox1.List = WorksheetFunction.Transpose(.keys)
        End If
    End With
    Application.ScreenUpdating = True
End Sub

หมายเหตุ: ในโค้ดด้านบนไฟล์ คอมโบบ็อกซ์1 คือชื่อของกล่องคำสั่งผสมที่คุณสร้างขึ้นคุณสามารถเปลี่ยนได้ตามต้องการ

4. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้และในกล่องพร้อมต์โปรดเลือกรายการแหล่งข้อมูลที่คุณต้องการเพิ่มลงในกล่องคำสั่งผสมดูภาพหน้าจอ:

5. จากนั้นคลิก OK ปุ่มเฉพาะค่าที่ไม่ซ้ำกันจะปรากฏในกล่องคำสั่งผสมดูภาพหน้าจอ:

ปลาย: ถ้าไม่มี ผู้พัฒนา แท็บใน Ribbon บทความนี้ วิธีแสดง / แสดงแท็บนักพัฒนาใน Excel 2007/2010/2013 Ribbon อาจช่วยให้คุณแสดงแท็บนักพัฒนา

ปลดล็อก Excel Magic ด้วย Kutools AI

• การดำเนินการอย่างชาญฉลาด: ดำเนินการกับเซลล์ วิเคราะห์ข้อมูล และสร้างแผนภูมิ ทั้งหมดนี้ขับเคลื่อนด้วยคำสั่งง่ายๆ
• สูตรที่กำหนดเอง: สร้างสูตรที่ปรับแต่งโดยเฉพาะเพื่อปรับปรุงขั้นตอนการทำงานของคุณ
• การเข้ารหัส VBA: เขียนและใช้งานโค้ด VBA ได้อย่างง่ายดาย
• การตีความสูตร: เข้าใจสูตรที่ซับซ้อนได้อย่างง่ายดาย
• การแปลข้อความ: ทลายกำแพงด้านภาษาภายในสเปรดชีตของคุณ

ปรับปรุงความสามารถ Excel ของคุณด้วยเครื่องมือที่ขับเคลื่อนด้วย AI ดาวน์โหลดเดี๋ยวนี้ และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน!