Note: The other languages of the website are Google-translated. Back to English

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

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

doc เลือกหลายรายการจากรายการแบบเลื่อนลง 1 doc ลูกศรขวา doc เลือกหลายรายการจากรายการแบบเลื่อนลง 2

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

เลือกหลายรายการจากรายการแบบหล่นลงในเซลล์ด้วยตัวเลือกที่มีประโยชน์ของ Kutools for Excel


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

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

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

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

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 ด้านบนทั้งสองไม่สนับสนุนให้ลบเนื้อหาในเซลล์บางส่วน แต่สนับสนุนเฉพาะการล้างรายการทั้งหมดของเซลล์เท่านั้น


เลือกหลายรายการจากรายการแบบหล่นลงในเซลล์ด้วยตัวเลือกที่มีประโยชน์ของ Kutools for Excel

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

หลังจากสร้างรายการแบบหล่นลงโปรดเลือกเซลล์รายการแบบเลื่อนลงแล้วคลิก Kutools > รายการแบบหล่นลง > เลือกรายการแบบหล่นลงได้หลายรายการ เพื่อเปิดใช้งานยูทิลิตี้นี้
doc kutools หลายรายการแบบหล่นลงเลือก 1

จากนั้นเซลล์รายการดรอปดาวน์ที่เลือกสามารถเลือกได้หลายรายการในเซลล์

หากคุณใช้ตัวเลือกนี้ในครั้งแรกคุณสามารถระบุการตั้งค่าของยูทิลิตี้นี้ได้ตามต้องการก่อนใช้ยูทิลิตี้นี้

คลิก Kutools > รายการแบบหล่นลง > ลูกศรข้าง เลือกรายการแบบหล่นลงได้หลายรายการ > การตั้งค่า.
doc kutools หลายรายการแบบหล่นลงเลือก 2

จากนั้นใน การตั้งค่ารายการแบบหล่นลงเลือกหลายรายการ โต้ตอบคุณสามารถ

1) ระบุขอบเขตการใช้งานตามที่คุณต้องการ

2) ระบุทิศทางของสถานที่;

3) ระบุตัวคั่นระหว่างรายการ

4) ระบุหากไม่เพิ่มรายการที่ซ้ำกันและลบรายการที่ซ้ำกัน

คลิก Ok และคลิก Kutools > รายการแบบหล่นลง > เลือกรายการแบบหล่นลงได้หลายรายการ เพื่อให้ได้ผล

ปลาย: ในการใช้ไฟล์ เลือกรายการแบบหล่นลงได้หลายรายการ ยูทิลิตี้คุณต้อง ติดตั้ง ในตอนแรก หากคุณต้องการสร้างรายการดรอปดาวน์ที่มีหลายระดับยูทิลิตี้ด้านล่างนี้อาจช่วยคุณได้

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

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

เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel แก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office/Excel 2007-2021 และ 365 รองรับทุกภาษา ง่ายต่อการปรับใช้ในองค์กรหรือองค์กรของคุณ คุณสมบัติเต็มรูปแบบ ทดลองใช้ฟรี 30 วัน รับประกันคืนเงินภายใน 60 วัน
kte แท็บ 201905

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

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

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

โพสต์ปัญหาของคุณในหัวข้อหลักของบทความนี้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ในรหัสแรกให้เพิ่มบรรทัดต่อไปนี้ระหว่างบรรทัดที่ 6 และ 7 (10-11 ในรหัสที่สอง): ถ้า Target.Value = "" ให้ออกจาก Sub
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันใช้สิ่งนี้ "เลือกหลายรายการจากรายการแบบหล่นลงไปยังเซลล์โดยไม่ทำซ้ำ"
นี่คือสิ่งที่เกิดขึ้น
1. การเลือกหลายรายการเกิดขึ้นโดยไม่มีปัญหา
2. ปัญหาคือเมื่อฉันพยายามแก้ไขและลบตัวเลือก ไม่มีทางให้ฉันลบตัวเลือก มันยังคงทวีคูณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณจะใช้ฟังก์ชันนี้อย่างไร แต่ทำให้ไม่มีค่าซ้ำซ้อน ความช่วยเหลือใด ๆ ที่จะได้รับการชื่นชม!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ถ้าฉันสร้างชีตที่มีรายการดรอปดาวน์โดยใช้ช่องทำเครื่องหมาย มีวิธีแชร์เวิร์กบุ๊กนี้กับฟีเจอร์ช่องทำเครื่องหมายนี้หรือไม่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันยังพบว่าหลังจากเลือกหลายรายการโดยใช้รหัส VBA ที่อัปเดตแล้ว ฉันยังไม่สามารถล้างเซลล์ได้ มันแค่เพิ่มจำนวนขึ้นเรื่อยๆ
ไม่มีใครมีวิธีแก้ปัญหานี้หรือไม่?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี Rusty รหัสที่ฉันได้อัปเดตเพื่อให้มีความเสถียรมากขึ้น แต่เนื่องจากเซลล์อยู่ในการตรวจสอบความถูกต้องของข้อมูล ช่องว่างจึงอยู่นอกการตรวจสอบความถูกต้องของข้อมูล รหัสจึงไม่สามารถแก้ปัญหานี้ได้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
รหัสใช้งานได้ แต่ข้ามเซลล์ทั้งหมดและคูณในเซลล์และไม่อนุญาตให้ลบ คุณช่วยได้ไหม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Quando quero ลบ alguma opção ou todas dá erro ตัวแก้ไข Como posso?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี! Como puedo usar este codigo para todo un worksheet y no solo para una Pestana?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี Vero, Kutools สำหรับ Excel's Multi-select Drop-down List คุณลักษณะ suports การเลือกหลายรายการจากรายการแบบหล่นลงในเวิร์กชีตทั้งหมดหรือในสมุดงานเพียงแค่ระบุขอบเขตที่ระบุในกล่องโต้ตอบการตั้งค่ารายการแบบหล่นลงแบบเลือกได้หลายแบบ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันจะทำอย่างนั้นได้อย่างไรสำหรับสูตรกำปั้นที่คุณให้ไว้ :) ขอบคุณในขั้นสูง!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Bonjour,
selon le prime แบบอย่าง tout fonctionne très bien jusqu'à ce que je verrouille la feuille.
quand la feuille est verrouillée, je n'ai plus le choix multiple !
วิธีการทำ ?
ขอบคุณล่วงหน้า
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีขอโทษสำหรับสิ่งนั้น เราจะอัปเกรดคุณลักษณะของเราในเวอร์ชันถัดไปเพื่อหลีกเลี่ยงปัญหานี้ ขอบคุณสำหรับความคิดเห็นของคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
BCP ขอบคุณ
Mais à quand la nouvelle version ?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี เวอร์ชันใหม่อยู่ในการวางแผน เนื่องจากเวอร์ชันถัดไปจะอัปเกรดฟีเจอร์หลายรายการ จึงอาจใช้เวลาค่อนข้างนาน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี เราได้อัปเดตเวอร์ชันนี้สำหรับคุณแล้ว แต่นี่เป็นเวอร์ชันเบต้า โปรดดาวน์โหลดจากนี้: https://download.extendoffice.com/downloads/Kutools-for-Excel/beta/26.10/KutoolsforExcelSetup.Inno.exe
หากมีปัญหาใด ๆ ยินดีต้อนรับสำหรับความคิดเห็นของคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณ
Je vais la télécharger et Essayer.
journée bonne
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
รหัสใช้งานได้ แต่จะไม่ยอมให้ฉันลบใครก็ได้โปรดโพสต์รหัสใหม่
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL