วิธีเลือกหลายรายการจากรายการแบบหล่นลงลงในเซลล์ใน Excel

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

เลือกหลายรายการจากรายการแบบเลื่อนลงลงในเซลล์ด้วย VBA

เลือกหลายรายการจากรายการแบบหล่นลงในเซลล์อย่างง่ายดายและรวดเร็ว

เลือกหลายรายการจากรายการแบบเลื่อนลงลงในเซลล์ด้วย VBA

นี่คือ VBA บางส่วนที่คุณสามารถช่วยแก้งานนี้ได้

เลือกรายการที่ซ้ำกันจากรายการแบบหล่นลงในเซลล์

1. หลังจากสร้างรายการแบบหล่นลงให้คลิกขวาที่แท็บแผ่นงานเพื่อเลือก ดูรหัส จากเมนูบริบท

2. จากนั้นใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคัดลอกและวางโค้ดด้านล่างลงในสคริปต์เปล่า

VBA: เลือกหลายรายการจากรายการแบบหล่นลงในเซลล์

Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
    Dim xRgVal As Range
    Dim xStrNew As String
    On Error Resume Next
    Set xRgVal = Cells.SpecialCells(xlCellTypeAllValidation)
    If (Target.Count > 1) Or (xRgVal Is Nothing) Then Exit Sub
    If Intersect(Target, xRgVal) Is Nothing Then Exit Sub
    If Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    xStrNew = Target.Value
    Application.Undo
    If xStrNew = Target.Value Then
    Else
    xStrNew = xStrNew & " " & Target.Value
    Target.Value = xStrNew
    End If
    Application.EnableEvents = True
End Sub

3. บันทึกรหัสและปิดหน้าต่างเพื่อกลับไปที่รายการแบบหล่นลง ตอนนี้คุณสามารถเลือกหลายรายการจากรายการแบบเลื่อนลง

หมายเหตุ:

1. ด้วย VBA จะแยกรายการตามช่องว่างคุณสามารถเปลี่ยนแปลงได้ xStrNew = xStrNew & "" & มูลค่าเป้าหมาย ให้ผู้อื่นเปลี่ยนตัวคั่นตามที่คุณต้องการ ตัวอย่างเช่น, xStrNew = xStrNew & "," & มูลค่าเป้าหมาย จะแยกรายการด้วยลูกน้ำ

2. รหัส VBA นี้ใช้ได้กับรายการแบบเลื่อนลงทั้งหมดในแผ่นงาน

เลือกหลายรายการจากรายการแบบหล่นลงไปยังเซลล์โดยไม่ต้องทำซ้ำ

หากคุณต้องการเลือกรายการที่ไม่ซ้ำกันจากรายการแบบเลื่อนลงไปยังเซลล์คุณสามารถทำซ้ำขั้นตอนข้างต้นและใช้รหัสด้านล่าง

VBA： เลือกหลายรายการจากรายการแบบเลื่อนลงไปยังเซลล์โดยไม่ต้องทำซ้ำ

Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
    Dim I As Integer
    Dim xRgVal As Range
    Dim xStrNew As String
    Dim xStrOld As String
    Dim xFlag As Boolean
    Dim xArr
    On Error Resume Next
    Set xRgVal = Cells.SpecialCells(xlCellTypeAllValidation)
    If (Target.Count > 1) Or (xRgVal Is Nothing) Then Exit Sub
    If Intersect(Target, xRgVal) Is Nothing Then Exit Sub
    If Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    xFlag = True
    xStrNew = " " & Target.Value & " "
    Application.Undo
    xStrOld = Target.Value
    If InStr(1, xStrOld, xStrNew) = 0 Then
        xStrNew = xStrNew & xStrOld & " "
    Else
        xStrNew = xStrOld
    End If
    Target.Value = xStrNew
    Application.EnableEvents = True
End Sub

โค้ด VBA ด้านบนทั้งสองไม่สนับสนุนให้ลบเนื้อหาในเซลล์บางส่วน แต่สนับสนุนเฉพาะการล้างรายการทั้งหมดของเซลล์เท่านั้น

เลือกหลายรายการจากรายการแบบหล่นลงในเซลล์อย่างง่ายดายและรวดเร็ว

ใน Excel ยกเว้นรหัส VBA ไม่มีวิธีอื่นในการอนุญาตให้เลือกหลายรายการจากรายการแบบหล่นลงในเซลล์ อย่างไรก็ตาม เลือกรายการแบบหล่นลงได้หลายรายการ คุณลักษณะของ Kutools for Excel สามารถจัดการงานนี้ได้อย่างรวดเร็วและง่ายดายด้วยการคลิก

ขั้นตอนที่ 1: เลือก Kutools > รายการแบบหล่นลง > รายการแบบหล่นลงแบบเลือกหลายรายการ

ขั้นตอนที่ 2: ในกล่องโต้ตอบรายการแบบเลื่อนลงแบบเลือกหลายรายการ ให้ระบุการตั้งค่า

1. กำหนดขอบเขต
2. ระบุตัวคั่นสำหรับรายการคั่นในเซลล์
3. ตัดสินใจทิศทางข้อความ；
4. คลิก OK
   

ผลลัพธ์:

สร้างรายการดรอปดาวน์แบบไดนามิก 2 ระดับหรือหลายระดับใน Excel ได้อย่างง่ายดาย

ใน Excel การสร้างรายการแบบเลื่อนลง 2 ระดับหรือหลายระดับนั้นซับซ้อน ที่นี่ รายการแบบเลื่อนลงแบบไดนามิก ประโยชน์ของ Kutools for Excel คุณสามารถช่วย สิ่งที่คุณต้องทำคือจัดลำดับข้อมูลตามตัวอย่างที่แสดงจากนั้นเลือกช่วงข้อมูลและช่วงเอาต์พุตจากนั้นปล่อยให้ยูทิลิตี้  คลิกเพื่อ 30 วันทดลองใช้ฟรี!

Kutools for Excel: พร้อม Add-in ของ Excel ที่ใช้งานสะดวกกว่า 300 รายการ ทดลองใช้ฟรีโดยไม่มีข้อจำกัด 30 วัน

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

	คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
	การค้นหาขั้นสูง: VLookup หลายเกณฑ์  |   VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
	รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
	ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
	คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่   |  สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์   |  ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
	ชุดเครื่องมือ 15 อันดับแรก:  12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เสริมทักษะ Excel ของคุณด้วย Kutools for Excelและสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools for Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

อ่านเพิ่มเติม ... ดาวน์โหลดฟรี...

---

Office Tab นำอินเทอร์เฟซแบบแท็บมาสู่ Office และทำให้งานของคุณง่ายขึ้นมาก

• เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
• เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
• เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!

อ่านเพิ่มเติม ... ดาวน์โหลดฟรี...