كيفية طباعة جميع الخيارات في قائمة منسدلة في Excel؟

هل سبق أن حاولت طباعة جميع الخيارات في قائمة منسدلة في ورقة عمل Excel؟ تتناول هذه المقالة طباعة جميع الخيارات في قائمة منسدلة على صفحات مطبوعة منفصلة في Excel.

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

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

يمكن أن يساعدك الكود التالي لـ VBA في طباعة جميع الخيارات في قائمة منسدلة في ورقة العمل. الرجاء اتباع الخطوات التالية:

1. اضغط على مفتاحي Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. في نافذة Microsoft Visual Basic for Applications، يرجى النقر فوق إدراج > وحدة. ثم قم بنسخ الكود التالي لـ VBA إلى نافذة الوحدة. انظر لقطة الشاشة:

كود VBA: طباعة جميع الخيارات في قائمة منسدلة محددة على صفحات مطبوعة منفصلة

Sub Iterate_Through_data_Validation()
    Dim xRg As Range
    Dim xCell As Range
    Dim xRgVList As Range
    Set xRg = Worksheets("Sheet1").Range("B8")
    Set xRgVList = Evaluate(xRg.Validation.Formula1)
    For Each xCell In xRgVList
        xRg = xCell.Value
        ActiveSheet.PrintOut
    Next
End Sub

ملاحظة: في الكود، Sheet1 هو اسم ورقة العمل التي تحتوي على القائمة المنسدلة التي تريد طباعتها. وB8 هي الخلية التي تحتوي على القائمة المنسدلة. يرجى استبدالها بما تحتاج إليه.

3. اضغط على مفتاح F5 لتشغيل الكود.

ثم يتم طباعة جميع الخيارات في القائمة المنسدلة المحددة في ورقة العمل المحددة بشكل منفصل.

مقالات ذات صلة:

• كيفية ملء الخلايا الأخرى تلقائيًا عند تحديد القيم في قائمة منسدلة في Excel؟
• كيفية الإكمال التلقائي عند الكتابة في قائمة منسدلة في Excel؟
• كيفية إنشاء قائمة منسدلة للتقويم في Excel؟
• كيفية إنشاء قائمة منسدلة قابلة للبحث في Excel؟
• كيفية إنشاء قائمة منسدلة مع تحديدات أو قيم متعددة في Excel؟