اسهل طريقة عمل دوائر حمراء بناء على محتوى الخلية Excel VBA

فى درس اليوم سوف نتعلم طريقة عمل دوائر حمراء فى خلايا الاكسل بناء على محتوى الخلية وايضا شرط ظهور هذة الدوائر الحمراء فى الطباعة فى الاكسل

مثال بسيط

فى هذا المثال نريد ان تظهر دوائر حمراء على كل خلية بها كلمة راسب وذلك لتحديد الطالب الانجح من الطالب الراسب وايضا شرط ظهور هذة الدوائر فى الطباعة اكسل

الطريقة الاولى

من خلال تبويب Data نختار Data Validation ثم نختار الخيار Custom

ونكتب المعادلة التالية

=D5<>"راسب"

على علامة التبويب "بيانات "، في المجموعة "أدوات البيانات "، انقر فوق السهم الموجود بجانب "التحقق من صحة البيانات"، ثم انقر فوق " دائرة البيانات غير الصالحة".

وفى هذة الحالة يقوم الاكسل بعرض Excel دائرة حمراء حول أي خلايا تحتوي على بيانات غير صحيحة.

وتكون جميع الخلايا التي لا تفي بمعايير التحقق من صحة البيانات الخاصة بها محاطة بدائرة حمراء ، بما في ذلك القيم التي تمت كتابتها أو نسخها أو تعبئتها في الخلايا، أو المحسوبة بواسطة الصيغ، أو التي تم إدخالها بواسطة وحدات الماكرو.

ولكن هذة الطريقة عند الطباعه لاتظهر هذة الدوائر .وهذة هى المشكلة

الطريقة الثانية

وهى باستخدام كود برمجة

Sub CircleredCells()

Dim Cell As Range, Shp As Shape

For Each Cell In Columns("l").SpecialCells(xlFormulas)

If Cell = "راسب" Then

Set Shp = ActiveSheet.Shapes.AddShape(msoShapeOval, Cell.Left, Cell.Top, Cell.Width, Cell.Height)

Shp.Fill.Transparency = 1

Shp.Line.Weight = 2.25

Shp.Line.ForeColor.RGB = vbRed

End If

End Sub

وتعتبر هذة الطريقة افضل واسرع من الطريقة السابقة . لان الدوائر الحمراء تظهر عند طباعة الشهادات

لتحميل ملف العمل من هنا