XL97: ماكرو لإنشاء علامات إحاطة التحقق من الصحة البيانات للطباعة
في Microsoft Excel 97، يمكنك استخدام الزر "إحاطة البيانات غير الصالحة" على شريط أدوات التدقيق للتعرف على الخلايا التي تحتوي على القيم التي تقع خارج حدود التحقق من صحة البيانات. يتم وضع دائرة حمراء حول كل خلية التعرف عليها. لا يتم طباعة هذه الدوائر عند طباعة ورقة العمل.
توفر هذه المقالة ماكرو التي يمكنك استخدامها لعرض دوائر حول بيانات غير صالحة لأغراض الطباعة.
تقدم Microsoft الأمثلة البرمجية فقط دون أي ضمان التعبير عن أو ضمنية ، ، لا الحصر إلى ضمانات القابلية للتسويق و/أو الملاءمة لغرض معين. تفترض هذه المقالة أنك معتاد على لغة البرمجة التي تم شرحها والأدوات المستخدمة لإنشاء الإجراءات وتصحيحها. يمكن أن يساعد إخصائيي الدعم Microsoft شرح وظيفة إجراء محدد ولكن لن يقوموا بتعديل هذه الأمثلة لتقديم وظيفة إضافية أو إنشاء إجراءات لتلبية احتياجاتك المحددة.
إذا كان يجب أن يكون لديك خبرة محدودة في مجال البرمجة، قد تحتاج إلى الاتصال بشريك Microsoft أو خدمات النصائح. لمزيد من المعلومات، قم بزيارة مواقع ويب Microsoft هذه:
Microsoft المعتمدين Partners –
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]خدمات Microsoft المستند الذي يقدم النصائح -
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]للحصول على مزيد من المعلومات حول خيارات الدعم المتوفرة وحول كيفية الاتصال بشركة Microsoft قم بزيارة موقع Microsoft التالي على الويب:
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]ماكرو عينة
Sub AddValidationCirclesForPrinting()
Dim DataRange As Range
Dim c As Range
Dim count As Integer
Dim o As Shape
'Set an object variable to all of the cells on the active
'sheet that have data validation -- if an error occurs, run
'the error handler and end the procedure
On Error GoTo errhandler
Set DataRange = Cells.SpecialCells(xlCellTypeAllValidation)
On Error GoTo 0
count = 0
'Loop through each cell that has data validation
For Each c In DataRange
'If the validation value for the cell is false, then draw
'a circle around the cell. Set the circle's fill to
'invisible, the line color to red and the line weight to
'1.25
If Not c.Validation.Value Then
Set o = ActiveSheet.Shapes.AddShape(msoShapeOval, _
c.Left - 2, c.Top - 2, c.Width + 4, c.Height + 4)
o.Fill.Visible = msoFalse
o.Line.ForeColor.SchemeColor = 10
o.Line.Weight = 1.25
'Change the name of the shape to InvalidData_ + count
count = count + 1
o.Name = "InvalidData_" & count
End If
Next
Exit Sub
errhandler:
MsgBox "There are no cells with data validation on this sheet."
End Sub
Sub RemoveValidationCircles()
Dim shp As Shape
'Remove each shape on the active sheet that has a name starting
'with InvalidData_
For Each shp In ActiveSheet.Shapes
If shp.Name Like "InvalidData_*" Then shp.Delete
Next
End Sub
عودة إلى الأعلى
كيفية استخدام ماكرو نموذج
لاستخدام نموذج الماكرو اتبع الخطوات التالية:
بدء تشغيل مصنف جديد.
لتنشيط محرر Visual Basic اضغط ALT + F11.
من القائمة إدراج انقر فوق وحدة نمطية.
اكتب نموذج الماكرو في إطار التعليمات البرمجية ورقة وحدة نمطية.
من القائمة ملف، انقر فوق "إغلاق ثم الرجوع إلى Microsoft Excel".
حفظ المصنف.
ملاحظة: يجب فتح لاستخدام وحدات الماكرو المصنف. إذا أردت الحصول على وحدات الماكرو لتكون متوفرة في كل مرة تبدأ فيها تشغيل Microsoft Excel حفظ المصنف في المجلد \Program Files\Microsoft Office\Office\XlStart.
افتح المصنف الذي تريد تقييمه بيانات غير صالحة وتنشيط ورقة العمل المناسبة.
من القائمة أدوات، أشر إلى ماكرو ، ثم انقر فوق وحدات الماكرو. انقر فوق لتحديد "AddValidationCirclesForPrinting" في القائمة وحدات الماكرو ثم انقر فوق تشغيل.
الآن محاطة دائرة حمراء (إلى بحد أقصى 255 خلية لكل ورقة عمل) كل خلية تحتوي على بيانات غير صالحة. إذا لم يتضمن ورقة العمل النشطة أي الخلايا التي تتضمن التحقق من صحة البيانات ، ستتلقى الرسالة
لا توجد أي الخلايا التي تتضمن التحقق من صحة البيانات على هذه الورقة.
ثم سيتم إنهاء الماكرو.
طباعة ورقة العمل.
بعد طباعة ورقة العمل, يمكنك تشغيل في RemoveValidationCircles الماكرو لإزالة الدوائر. من القائمة أدوات، أشر إلى ماكرو ثم انقر فوق وحدات الماكرو. حدد RemoveValidationCircles في القائمة وحدات الماكرو ثم انقر فوق تشغيل.