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

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

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

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

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


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

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

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

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

دوك-طباعة-دوائر -1

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

دوك-طباعة-دوائر -1


السهم الأزرق الحق فقاعة اطبع ورقة العمل مع دوائر التحقق من الصحة باستخدام كود 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 مفتاح لتنفيذ هذا الرمز ، وقد تم وضع دائرة حول البيانات غير الصالحة بالشكل البيضاوي الأحمر ، انظر الصورة:

دوك-طباعة-دوائر -1

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 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 (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations