كيفية استبعاد خلية أو منطقة معينة من الطباعة في Excel؟
أثناء طباعة ورقة عمل ، قد تحتاج إلى استثناء قيم خلايا أو منطقة معينة من الطباعة لغرض ما. ستوضح لك الأساليب الواردة في هذه المقالة كيفية استبعاد خلية أو منطقة معينة من الطباعة بالتفصيل.
استبعاد خلية أو منطقة معينة من الطباعة عن طريق تخصيص تنسيق الخلية
استبعاد خلية أو منطقة معينة من الطباعة بواسطة رمز VBA
استبعاد خلية أو منطقة معينة من الطباعة عن طريق تخصيص تنسيق الخلية
كما هو موضح أدناه ، تحتاج إلى استبعاد الصفوف رقم 5 و 9 أثناء طباعة ورقة العمل. قبل الطباعة ، يمكنك تخصيص تنسيق خلية أو منطقة معينة لإخفاء محتوى الخلية لتحقيق ذلك. الرجاء القيام بما يلي.
1. حدد الخلية أو المنطقة التي ستستبعد من الطباعة (هنا أحدد نطاقات متعددة A6: C6 و A10: C10) ، ثم اضغط CTRL + 1 مفاتيح في نفس الوقت لفتح مربع الحوار تنسيق الخلايا.
2. في ال تنسيق الخلايا مربع الحوار، انقر فوق Custom في ال الفئة مربع تحت رقم الهاتف علامة التبويب ، ثم أدخل ثلاث فاصلة منقوطة ؛؛؛ في النوع مربع ، وأخيراً انقر فوق OK زر. انظر لقطة الشاشة:
الآن يتم إخفاء جميع المحتويات في النطاقات المحددة على الفور كما هو موضح أدناه. يمكنك البدء في طباعة ورقة العمل الآن.
ملاحظة: بعد الطباعة ، يمكنك إزالة الفواصل المنقوطة التي أدخلتها في الخطوة 2 من مربع الحوار تنسيق الخلايا لعرض محتويات الخلية.
استبعاد خلية أو منطقة معينة من الطباعة بواسطة رمز VBA
إلى جانب الطريقة المذكورة أعلاه ، يمكنك تطبيق رمز VBA التالي لإخفاء محتويات الخلايا أو المنطقة المحددة تلقائيًا أثناء طباعة ورقة العمل.
1. صحافة قديم + F11 مفاتيح في نفس الوقت لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انقر مرتين ThisWorkbook في ال قسم المشاريع ، ثم انسخ والصق رمز VBA أدناه في ملف ThisWorkbook (كود) نافذة.
كود فبا: استبعاد خلية أو منطقة معينة من الطباعة في إكسيل
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim xIndex As Long
If ActiveSheet.Name = "Sheet1" Then
Cancel = True
Application.EnableEvents = False
Application.ScreenUpdating = False
With ActiveSheet
xIndex = .Range("A6:C6,A10:C10").Font.ColorIndex
.Range("A6:C6,A10:C10").Font.Color = vbWhite
.PrintOut
.Range("A6:C6,A10:C10").Font.ColorIndex = xIndex
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
MsgBox "Print completed!", vbInformation, "Kutools for Excel"
End Sub
ملاحظات: في الكود ، الورقة 1 هي اسم الورقة النشط الذي تحتاج إلى طباعته ، و A6: C6 ، A10: C10 هي النطاقات التي ستستبعدها من الطباعة. يرجى تغييرها بناءً على احتياجاتك.
3. صحافة قديم + Q مفاتيح في نفس الوقت لإغلاق نافذة ميكروسوفت فيسوال باسيك للتطبيقات.
الآن يمكنك البدء في طباعة ورقة العمل الخاصة بك. بعد الانتهاء من الطباعة ، ستحصل على ملف كوتولس ل إكسيل مربع الحوار كما هو موضح أدناه لقطة الشاشة. ويمكنك أن ترى النطاقات المحددة فارغة في النسخة المطبوعة.
مقالات ذات صلة:
- كيف تستبعد القيم الموجودة في قائمة من قائمة أخرى في Excel؟
- كيفية استبعاد الخلايا في عمود من المجموع في إكسيل؟
- كيف تجد الحد الأدنى من القيمة في نطاق باستثناء القيمة الصفرية في إكسيل؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!