สร้างรายการตรวจสอบความถูกต้องของข้อมูลด้วยการเลือกหลายรายการใน Excel

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

ดาวน์โหลดแบบฝึกหัดได้จากที่นี่

3 ตัวอย่างเพื่อสร้างรายการแบบเลื่อนลงสำหรับการตรวจสอบความถูกต้องของข้อมูลพร้อมการเลือกหลายรายการใน Excel

ขั้นตอนการใช้ VBA มาโครเพื่อสร้างรายการดรอปดาวน์การตรวจสอบความถูกต้องของข้อมูลที่มีตัวเลือกหลายรายการเป็นกระบวนการที่ซับซ้อนเล็กน้อย ดังนั้น เพื่อให้คุณเข้าใจมากขึ้น เราจะสาธิต 3 ตัวอย่างต่างๆ ของการเลือกหลายรายการจากรายการแบบเลื่อนลงการตรวจสอบข้อมูล

1. สร้างรายการดรอปดาวน์การตรวจสอบข้อมูล Excel สำหรับการเลือกหลายรายการในเซลล์เดียว

ก่อนอื่น เรามีชุดข้อมูลต่อไปนี้ ซึ่งประกอบด้วยชื่อของ 4 ประเทศ. เราต้องการสร้างรายการดรอปดาวน์การตรวจสอบความถูกต้องของข้อมูลโดยมีตัวเลือกหลายรายการจากชื่อเหล่านี้ โดยปกติ การตรวจสอบข้อมูลจะอนุญาตให้เราเลือกชื่อประเทศเดียวในเซลล์เดียว แต่เราต้องการป้อนชื่อประเทศหลายชื่อจากรายการตรวจสอบข้อมูลในเซลล์เดียว

มาดูขั้นตอนการดำเนินการนี้กัน

ขั้นตอน:

• ขั้นแรก เลือกช่วงเซลล์ (D4:D8 ). กำหนดช่วงชื่อ ‘dv_list_0 ’.

• ประการที่สอง เลือกช่วงเซลล์ (B5:B8 ) และกำหนดช่วงชื่อ 'Country_Range ’.

• ประการที่สาม ไปที่ ข้อมูล > เครื่องมือข้อมูล > การตรวจสอบข้อมูล > การตรวจสอบข้อมูล .

• การดำเนินการข้างต้นจะเปิดกล่องโต้ตอบใหม่ที่ชื่อว่า การตรวจสอบข้อมูล ’.
• ถัดไป เลือกตัวเลือก รายการ จาก อนุญาต ป้อนสูตรต่อไปนี้ใน ที่มา ช่องข้อความ:

• คลิกที่ ตกลง .

• ดังนั้น ไอคอนแบบเลื่อนลงจะปรากฏขึ้นที่ด้านขวาของเซลล์ที่เลือก

• จากนั้น คลิกขวา บนชื่อแผ่นงานของแผ่นงานที่ใช้งานอยู่ เลือกตัวเลือก 'ดูรหัส ’.

• คำสั่งดังกล่าวจะเปิด VBA . ที่ว่างเปล่า ใส่รหัสต่อไปนี้ในโมดูลนั้น:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Value_Old As String
Dim Value_New As String
If Target.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
If Not Intersect(Target, ActiveSheet.Range("Country_Range")) Is Nothing Then
Application.EnableEvents = False
Value_New = Target.Value
On Error Resume Next
Application.Undo
On Error GoTo 0
Value_Old = Target.Value
If InStr(Value_Old, Value_New) Then
If InStr(Value_Old, ",") Then
If InStr(Value_Old, ", " & Value_New) Then
Target.Value = Replace(Value_Old, ", " & Value_New, "")
Else
Target.Value = Replace(Value_Old, Value_New & ", ", "")
End If
Else
Target.Value = ""
End If
Else
If Value_Old = "" Then
Target.Value = Value_New
Else
If Value_New = "" Then
Target.Value = ""
Else
If InStr(Target.Value, Value_New) = 0 Then
Target.Value = Value_Old & ", " & Value_New
End If
End If
End If
End If
Application.EnableEvents = True
Else
Exit Sub
End If
End Sub

• คลิกที่ปุ่ม Run หรือกดปุ่ม F5 คีย์เพื่อรันโค้ด

• ตอนนี้ เราจะตั้งชื่อมาโครแล้วคลิก เรียกใช้ . ชื่อของ มาโคร สำหรับตัวอย่างนี้คือ VBA .

• หลังจากนั้น เลือก สหรัฐอเมริกา จากเมนูแบบเลื่อนลงของเซลล์ B5 . มันจะใส่ชื่อประเทศ USA ในเซลล์ B5 .

• สุดท้าย เลือก แคนาดา และ เม็กซิโก จากเมนูแบบเลื่อนลงด้วย เราจะเห็นว่าค่าทั้งหมดจากเมนูแบบเลื่อนลงถูกเลือกไว้ในเซลล์เดียว

อ่านเพิ่มเติม:วิธีสร้างรายการดรอปดาวน์ของ Excel สำหรับการตรวจสอบข้อมูล (8 วิธี)

2. แทรกการเลือกหลายรายการในคอลัมน์ที่อยู่ติดกันโดยการสร้างรายการแบบเลื่อนลงการตรวจสอบข้อมูล Excel

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

มาดูขั้นตอนการแก้ปัญหาตัวอย่างกัน

ขั้นตอน:

• ขั้นแรก ให้เลือกเซลล์ D5 . สร้างรายการแบบเลื่อนลงสำหรับการตรวจสอบความถูกต้องของข้อมูลเช่นเดียวกับวิธีก่อนหน้า ใช้ช่วง (B5:B8 ) เป็นค่าต้นทางสำหรับการตรวจสอบ

• ถัดไป คลิกขวา บนชื่อแผ่นงานที่ใช้งานอยู่และเลือกตัวเลือก 'ดูรหัส ’.

• ช่องว่างใหม่ VBA โมดูลจะเขียนรหัสต่อไปนี้ในโมดูลว่างนั้น:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo exitHandler
Dim DV_Range As Range
Dim Col_i As Integer
If Target.Count > 1 Then GoTo exitHandler
On Error Resume Next
Set DV_Range = Cells.SpecialCells(xlCellTypeAllValidation)
On Error GoTo exitHandler
If DV_Range Is Nothing Then GoTo exitHandler
If Intersect(Target, DV_Range) Is Nothing Then
Else
Application.EnableEvents = False
If Target.Column = 4 Then
If Target.Value = "" Then GoTo exitHandler
If Target.Validation.Value = True Then
Col_i = Cells(Target.Row, Columns.Count).End(xlToLeft).Column + 1
Cells(Target.Row, Col_i).Value = Target.Value
Else
MsgBox "Invalid entry"
Target.Activate
End If
End If
End If
exitHandler:
Application.EnableEvents = True
End Sub

• กดปุ่ม F5 ที่สำคัญหรือคลิกที่ปุ่ม เรียกใช้ ไอคอนเพื่อเรียกใช้โค้ด

• จากนั้น กล่องโต้ตอบใหม่ที่ชื่อว่า มาโคร สร้างมาโครชื่อ VBA1 และคลิกที่ เรียกใช้ .

• หลังจากนั้น จากไอคอนแบบเลื่อนลงของเซลล์ D5 เลือกประเทศที่ชื่อว่า USA .

• คำสั่งด้านบนป้อนชื่อประเทศ USA ในเซลล์ E5 ซึ่งอยู่ในคอลัมน์ที่อยู่ติดกัน E .

• สุดท้าย เลือก แคนาดา และ เม็กซิโก เราจะเห็นค่าที่เลือกเกิดขึ้นในคอลัมน์ที่อยู่ติดกันตามลำดับ

อ่านเพิ่มเติม: ค่าเริ่มต้นในรายการตรวจสอบข้อมูลด้วย Excel VBA (มาโครและฟอร์มผู้ใช้)

การอ่านที่คล้ายกัน:

• รายการแบบหล่นลงการตรวจสอบความถูกต้องของข้อมูลเติมอัตโนมัติใน Excel (2 วิธี)
• วิธีการสร้างรายการตรวจสอบข้อมูลจากตารางใน Excel (3 วิธี)
• ใช้การตรวจสอบความถูกต้องของข้อมูลหลายรายการในเซลล์เดียวใน Excel (3 ตัวอย่าง)
• วิธีลบช่องว่างออกจากรายการตรวจสอบข้อมูลใน Excel (5 วิธี)
• การตรวจสอบความถูกต้องของข้อมูล Excel เฉพาะตัวเลขและตัวอักษร (โดยใช้สูตรที่กำหนดเอง)

3. ทำการเลือกหลายรายการในแถวที่แยกจากกันด้วยรายการดรอปดาวน์การตรวจสอบความถูกต้องของข้อมูลใน Excel

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

มาดูขั้นตอนการดำเนินการนี้กัน

ขั้นตอน:

• ในตอนแรก ให้เลือกเซลล์ D5 . เช่นเดียวกับขั้นตอนก่อนหน้า ให้สร้างรายการแบบเลื่อนลงสำหรับการตรวจสอบความถูกต้องของข้อมูล ตรวจสอบโดยใช้ช่วง (B5:B8 ) เป็นค่าต้นทาง

• ถัดไป คลิกขวา บนแผ่นงานที่ใช้งานอยู่ จากตัวเลือกที่มีให้เลือก 'ดูโค้ด ’.

• การกระทำด้านบนเปิด VBA . ที่ว่างเปล่า ป้อนรหัสต่อไปนี้ในโมดูลนั้น:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo exitHandler
Dim DV_Range As Range
Dim Row_1 As Long
Dim Col_1 As Long
Col_1 = Target.Column
If Target.Count > 1 Then GoTo exitHandler
On Error Resume Next
Set DV_Range = Cells.SpecialCells(xlCellTypeAllValidation)
On Error GoTo exitHandler
If DV_Range Is Nothing Then GoTo exitHandler
If Intersect(Target, DV_Range) Is Nothing Then
Else
If Target.Value = "" Then GoTo exitHandler
Application.EnableEvents = False
Select Case Target.Column
Case 4
If Target.Offset(0, 1).Value = "" Then
Row_1 = Target.Row
Else
Row_1 = Cells(Rows.Count, Col_1 + 1).End(xlUp).Row + 1
End If
Cells(Row_1, Col_1 + 1).Value = Target.Value
Target.ClearContents
End Select
End If
exitHandler:
Application.EnableEvents = True
End Sub

• หากต้องการเรียกใช้โค้ด ให้คลิกที่ เรียกใช้ ไอคอนหรือกด F5  ที่สำคัญ

• จากนั้น เราจะเห็นกล่องโต้ตอบใหม่ที่ชื่อว่า มาโคร . ตั้งชื่อมาโคร VBA2 และคลิกที่ เรียกใช้ .

• หลังจากนั้น จากรายการแบบเลื่อนลงของเซลล์ D5 เลือกตัวเลือก สหรัฐอเมริกา .

• เห็นชื่อ USA เกิดขึ้นในแถวเดียวกันแต่ในคอลัมน์ที่อยู่ติดกัน

• สุดท้าย ให้เลือก แคนาดา , เม็กซิโก และ อังกฤษ ทีละคน. เราจะเห็นว่าค่าที่เลือกมาทีละค่าในคอลัมน์เดียวกันแต่แยกเป็นแถว

อ่านเพิ่มเติม:รายการดรอปดาวน์การตรวจสอบความถูกต้องของข้อมูล Excel พร้อมตัวกรอง (2 ตัวอย่าง)

บทสรุป

ดังนั้น บทช่วยสอนนี้จะช่วยให้คุณเห็นภาพรวมของการสร้างรายการดรอปดาวน์สำหรับการตรวจสอบความถูกต้องของข้อมูลสำหรับการเลือกหลายรายการ เพื่อทดสอบทักษะของคุณ ดาวน์โหลดแบบฝึกหัดที่มาพร้อมกับบทความนี้ โปรดแสดงความคิดเห็นในช่องด้านล่างหากคุณมีคำถามใดๆ ทีมงานของเราจะพยายามตอบกลับคุณโดยเร็วที่สุด ในอนาคต คอยจับตาดู Microsoft Excel ที่เป็นนวัตกรรมใหม่ๆ มากขึ้น วิธีแก้ปัญหา

บทความที่เกี่ยวข้อง

• วิธีใช้คำสั่ง IF ในสูตรตรวจสอบข้อมูลใน Excel (6 วิธี)
• ใช้การตรวจสอบความถูกต้องของข้อมูลใน Excel ด้วยสี (4 วิธี)
• วิธีใช้รายการตรวจสอบข้อมูลจากชีตอื่น (6 วิธี)
• ใช้ช่วงที่มีชื่อสำหรับรายการตรวจสอบข้อมูลด้วย VBA ใน Excel
• [แก้ไข] การตรวจสอบข้อมูลไม่ทำงานสำหรับการคัดลอกวางใน Excel (พร้อมโซลูชัน)