كيفية مزامنة القوائم المنسدلة في أوراق عمل متعددة في Excel؟

لنفترض أن لديك قوائم منسدلة في عدة أوراق عمل ضمن مصنف تحتوي على نفس العناصر المنسدلة تمامًا. الآن تريد مزامنة القوائم المنسدلة عبر الأوراق بحيث بمجرد اختيار عنصر من قائمة منسدلة في ورقة عمل واحدة، يتم مزامنة القوائم المنسدلة في الأوراق الأخرى تلقائيًا مع نفس الاختيار. يقدم هذا المقال كود VBA لمساعدتك في حل هذه المشكلة.

مزامنة القوائم المنسدلة في أوراق عمل متعددة باستخدام كود VBA

مزامنة القوائم المنسدلة في أوراق عمل متعددة باستخدام كود VBA

على سبيل المثال، القوائم المنسدلة موجودة في خمس أوراق عمل تسمى Sheet1، Sheet2، ...، Sheet5، لمزامنة القوائم المنسدلة في الأوراق الأخرى بناءً على التحديد في Sheet1، يرجى تطبيق الكود التالي لـ VBA للقيام بذلك.

1. افتح Sheet1، انقر بزر الماوس الأيمن على تبويب الورقة وحدد عرض الكود من قائمة النقر بزر الماوس الأيمن.

2. في نافذة Microsoft Visual Basic for Applications، الصق الكود التالي لـ VBA في نافذة Sheet1 (Code).

كود 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. اضغط على مفتاحي Alt + Q لإغلاق نافذة Microsoft Visual Basic for Applications.

من الآن فصاعدًا، عند اختيار عنصر من القائمة المنسدلة في Sheet1، سيتم مزامنة القوائم المنسدلة في الأوراق المحددة تلقائيًا لتكون بنفس الاختيار. شاهد العرض التوضيحي أدناه.

العرض التوضيحي: مزامنة القوائم المنسدلة في أوراق عمل متعددة في Excel