วิธีการซิงโครไนซ์รายการแบบหล่นลงในหลายแผ่นงานใน Excel?

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

ซิงโครไนซ์รายการดรอปดาวน์ในหลายแผ่นงานด้วยรหัส VBA

ซิงโครไนซ์รายการดรอปดาวน์ในหลายแผ่นงานด้วยรหัส VBA

ตัวอย่างเช่น รายการดรอปดาวน์อยู่ในห้าเวิร์กชีตที่ชื่อว่า แผ่นที่ 1 แผ่นที่ 2 ... แผ่นที่ 5 เพื่อซิงโครไนซ์รายการดรอปดาวน์ในเวิร์กชีตอื่นตามการเลือกแบบเลื่อนลงใน Sheet1 โปรดใช้โค้ด VBA ต่อไปนี้เพื่อดำเนินการให้เสร็จสิ้น

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

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างวางโค้ด VBA ต่อไปนี้ลงใน แผ่นที่ 1 (รหัส) หน้าต่าง

รหัส VBA: ซิงโครไนซ์รายการแบบหล่นลงในหลายแผ่นงาน

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20220815
    Dim tSheet1 As Worksheet
    Dim tRange As Range
    Dim xRangeStr As String
    On Error Resume Next
    If Target.Count > 1 Then Exit Sub
    
    xRangeStr = "A2:A11"

    Set tRange = Intersect(Target, Range(xRangeStr))
    If Not tRange Is Nothing Then
        xRangeStr = tRange.Address
        Application.EnableEvents = False
        Set tSheet1 = ActiveWorkbook.Worksheets("Sheet2")
        tSheet1.Range(xRangeStr).Value = Target.Value
        Set tSheet1 = ActiveWorkbook.Worksheets("Sheet3")
        tSheet1.Range(xRangeStr).Value = Target.Value
        Set tSheet1 = ActiveWorkbook.Worksheets("Sheet4")
        tSheet1.Range(xRangeStr).Value = Target.Value
        Set tSheet1 = ActiveWorkbook.Worksheets("Sheet5")
        tSheet1.Range(xRangeStr).Value = Target.Value
        Application.EnableEvents = True
    End If
    
End Sub

หมายเหตุ:

3 กด อื่น ๆ + Q ปุ่มเพื่อปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

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

การสาธิต: ซิงโครไนซ์รายการดรอปดาวน์ในหลายแผ่นงานใน Excel