كيف تستبعد ورقة عمل محددة عند طباعة المصنف؟
إذا كان لديك مصنف يحتوي على أوراق عمل متعددة تحتاج إلى طباعتها ولكن مع استبعاد واحدة معينة ، فهل هناك أي طريقة سريعة وسهلة لنا لطباعة جميع الأوراق باستثناء واحدة في Excel؟
استبعاد ورقة عمل محددة عند طباعة المصنف برمز VBA
استبعاد ورقة عمل محددة عند طباعة المصنف برمز VBA
لطباعة المصنف بأكمله باستثناء ورقة عمل واحدة محددة ، يمكن أن تساعدك تعليمات VBA البرمجية التالية.
1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق التعليمة البرمجية التالية في نافذة الوحدة النمطية.
كود فبا: استبعاد ورقة عمل محددة عند طباعة المصنف:
Private Sub Printexclude()
'Updateby Extendoffcie
Dim ws As Worksheet
Dim strShName As String
On Error Resume Next
strShName = Application.InputBox("Enter the sheet name you want to exclude:", _
"Kutools For Excel", , , , , , 2)
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Worksheets
If ((ws.Visible = xlSheetVisible) And _
(ws.Name <> strShName)) Then ws.PrintOut
Next ws
Application.ScreenUpdating = True
End Sub
3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، ويظهر مربع موجه لتذكيرك بإدخال اسم الورقة الذي تريد استبعاده عند طباعة المصنف ، انظر لقطة الشاشة:
4. ثم اضغط OK زر ، وستتم طباعة أوراق العمل الأخرى مرة واحدة واستبعاد ورقة معينة حسب حاجتك.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!