كيفية مزامنة القوائم المنسدلة في أوراق عمل متعددة في إكسيل؟
افترض أن لديك قوائم منسدلة في عدة أوراق عمل في مصنف تحتوي على نفس العناصر المنسدلة بالضبط. الآن تريد مزامنة القوائم المنسدلة عبر أوراق العمل بحيث بمجرد تحديد عنصر من القائمة المنسدلة في ورقة عمل واحدة ، تتم مزامنة القوائم المنسدلة في أوراق العمل الأخرى تلقائيًا مع نفس التحديد. توفر هذه المقالة رمز VBA لمساعدتك في حل هذه المشكلة.
مزامنة القوائم المنسدلة في أوراق عمل متعددة باستخدام كود VBA
مزامنة القوائم المنسدلة في أوراق عمل متعددة باستخدام كود VBA
على سبيل المثال ، القوائم المنسدلة موجودة في خمس أوراق عمل مسماة ورقة 1 ، ورقة 2 ، ...، ورقة 5 ، لمزامنة القوائم المنسدلة في أوراق العمل الأخرى وفقًا للاختيار المنسدل في الورقة 1 ، يرجى تطبيق رمز VBA التالي لإنجازه.
1. افتح الورقة 1 ، وانقر بزر الماوس الأيمن فوق علامة تبويب الورقة وحدد عرض الرمز من قائمة النقر بزر الماوس الأيمن.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات في النافذة ، قم بلصق رمز VBA التالي في ملف الورقة 1 (الرمز) نافذة.
كود فبا: مزامنة القائمة المنسدلة في أوراق عمل متعددة
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 مفاتيح لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
من الآن فصاعدًا ، عند تحديد عنصر من القائمة المنسدلة في ورقة 1 ، ستتم مزامنة القوائم المنسدلة في أوراق العمل المحددة تلقائيًا للحصول على نفس التحديد. انظر أدناه التجريبي.
عرض توضيحي: مزامنة القوائم المنسدلة في أوراق عمل متعددة في Excel
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!