تحياتى
وجدت كود لعمل دوائر حمراء للراسبين
ولكن عند تنفيذه يقوم بمسح جميع الأشكال الموجوده فى الصفحة وليس الدوائر الحمراء فقط
هذا هو الكود
Sub دوائر_حمراء()
'If target.Column = 2 Or target.Column = 3 Or target.Column = 5 Then
Dim c As Range
Dim ws As Worksheet
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If (shp.Type = msoOLEControlObject Or shp.Type = msoFormControl) Then shp.Delete
Next shp
Set ws = ActiveSheet
For Each c In Range("e11:i262,k11:k262,m11:r262")
If c.Value < 50 Or c.Value = "غ" Or c.Value = "غـ" Then
c.Select
Set shp = ws.Shapes.AddShape(msoShapeOval, c.Left, c.Top, c.Width, c.Height)
With shp
.Fill.Visible = msoFalse
.Line.ForeColor.RGB = RGB(255, 0, 0)
.Line.Weight = 2
End With
End If
Next c
'End If
End Sub
المطلوب فى الجزء الملون
يتم مسح الدوائر الحمراء فقط
او يتم تنفيذه على مدى محدد وليس الصفحة
شكرا لتعبكم