كيفية مزامنة القوائم المنسدلة في أوراق عمل متعددة في 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
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في Excel باستخدام Kutools لـ Excel، واختبر كفاءة غير مسبوقة. Kutools لـ Excel يوفر أكثر من300 ميزة متقدمة لزيادة الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة الأكثر أهمية بالنسبة لك...
Office Tab يجلب واجهة التبويب إلى Office ويجعل عملك أسهل بكثير
- تفعيل تحرير وقراءة عبر التبويبات في Word، Excel، PowerPoint، Publisher، Access، Visio وProject.
- افتح وأنشئ عدة مستندات في تبويبات جديدة في نفس النافذة، بدلاً من نوافذ مستقلة.
- يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات اليومية من الفأرة!
جميع إضافات Kutools. مثبت واحد
حزمة Kutools for Office تجمع بين إضافات Excel وWord وOutlook وPowerPoint إضافة إلى Office Tab Pro، وهي مثالية للفرق التي تعمل عبر تطبيقات Office.





- حزمة الكل في واحد — إضافات Excel وWord وOutlook وPowerPoint + Office Tab Pro
- مثبّت واحد، ترخيص واحد — إعداد في دقائق (جاهز لـ MSI)
- الأداء الأفضل معًا — إنتاجية مُبسطة عبر تطبيقات Office
- تجربة كاملة لمدة30 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد