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