كيفية طباعة ورقة العمل مع دوائر التحقق من الصحة في إكسيل؟

في حالة معينة ، قد نقوم بوضع دائرة حول بعض البيانات غير الصالحة لجعلها بارزة ، ولكن عندما تحتاج إلى طباعة ورقة العمل مع دوائر التحقق من الصحة ، فلن تتم طباعة الدوائر. هل سبق لك أن عانيت من هذه المشكلة في Excel؟ اليوم ، سأريكم بعض الحيل السريعة لحل هذه الوظيفة.

اطبع ورقة العمل بدوائر تحقق من خلال لصقها كصورة

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

اطبع ورقة العمل بدوائر تحقق من خلال لصقها كصورة

رائعة حقا! استخدام علامات تبويب فعالة في Excel مثل Chrome و Firefox و Safari!

وفر 50٪ من وقتك ، وقلل آلاف النقرات بالماوس كل يوم!

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

1. حدد نطاق البيانات الذي تريد طباعة الدوائر.

2. صحافة CTRL + C على لوحة المفاتيح لنسخها ، ثم انتقل إلى ورقة عمل جديدة ، وانقر فوق خلية واحدة ، وانقر بزر الماوس الأيمن ، واختر لصق خاص > صورة، انظر لقطة الشاشة:

3. ثم تم لصق التحديد كصورة ، والآن عند طباعة ورقة العمل الجديدة ، ستتم طباعة الدوائر بنجاح.

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

إذا كنت لا ترغب في لصق نطاق البيانات كصورة ، فيمكن أن يساعدك رمز VBA التالي أيضًا.

1. بعد ضبط التحقق من صحة البيانات ، يرجى الضغط باستمرار على ALT + F11 في Excel لفتح ملف نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

2. ثم اضغط إدراج > وحدة، ولصق الماكرو التالي في ملف نافذة الوحدة.

كود فبا: أدخل دوائر حمراء على البيانات غير الصالحة

Sub AddValidationCirclesForPrinting()
'Update 20140724
Dim Rng As Range
Dim WorkRng As Range
Dim xCount As Integer
Dim xShape As Shape
On Error Resume Next
Set WorkRng = Application.ActiveSheet.Cells.SpecialCells(xlCellTypeAllValidation)
If WorkRng Is Nothing Then
    Exit Sub
End If
xCount = 0
For Each Rng In WorkRng
   If Not Rng.Validation.Value Then
       Set xShape = Application.ActiveSheet.Shapes.AddShape(msoShapeOval, Rng.Left - 2, Rng.Top - 2, Rng.Width + 4, Rng.Height + 4)
       xShape.Fill.Visible = msoFalse
       xShape.Line.ForeColor.SchemeColor = 10
       xShape.Line.Weight = 1.25
       xCount = xCount + 1
       xShape.Name = "InvalidData_" & xCount
   End If
Next
Exit Sub
End Sub

3. ثم اضغط F5 مفتاح لتنفيذ هذا الرمز ، وقد تم وضع دائرة حول البيانات غير الصالحة بالشكل البيضاوي الأحمر ، انظر الصورة:

4. عندما تذهب لطباعة ورقة العمل هذه التي تحتوي على الدوائر الحمراء ، ستتم طباعة الدوائر أيضًا.

ملاحظة:

باستخدام رمز VBA هذا ، لن تتم إزالة الدوائر باستخدام ملف Excel مسح دوائر التحقق من الصحة الميزة ، إذا كنت تريد حذف الدوائر ، يرجى تطبيق الكود أدناه.

كود فبا: إزالة دوائر التحقق من الصحة في ورقة العمل

Sub RemoveValidationCircles()
'Update 20140724
Dim xShape As Shape
For Each xShape In Application.ActiveSheet.Shapes
    If xShape.Name Like "InvalidData_*" Then
        xShape.Delete
    End If
Next
End Sub

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

كيفية وضع دائرة على البيانات غير الصالحة في Excel؟

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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

• إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
• سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى...
• دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات...
• حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
• نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
• استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات...
• سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
• اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF...
• أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

اقرأ أكثر... تحميل مجاني ... شراء... 

---

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

• تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
• فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
• يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...