انتقل إلى المحتوى الرئيسي

كيفية استبعاد خلية أو منطقة معينة من الطباعة في 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 مفاتيح في نفس الوقت لإغلاق نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

الآن يمكنك البدء في طباعة ورقة العمل الخاصة بك. بعد الانتهاء من الطباعة ، ستحصل على ملف كوتولس ل إكسيل مربع الحوار كما هو موضح أدناه لقطة الشاشة. ويمكنك أن ترى النطاقات المحددة فارغة في النسخة المطبوعة.


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

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (3)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
I've recieved an error in my line:

xIndex = .Range("B52:K92").Font.ColorIndex
This comment was minimized by the moderator on the site
Hi Maria,
After modifying the ranges in the VBA code, please press the "Save" button to save the code first, then go to print.
This comment was minimized by the moderator on the site
__________
Rated 5 out of 5
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations