مساعدة فى تعديل كود دائرة حمراء

[سيد الأكـرت]

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

دائرة حمراء.xls

تم تعديل الأربعاء at 22:21 بواسطه سيد الأكـرت

[عبدالله بشير عبدالله]

السلام عليكم 

يمكن عن طريق رسم دائرة على الخلية

الكود  

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column > 7 And Target.Column < 31 And Target.Row > 5 Then
        Cancel = True
        Dim ws As Worksheet
        Set ws = ActiveSheet
        Dim shp As Shape
        For Each shp In ws.Shapes
            If Not Intersect(shp.TopLeftCell, Target) Is Nothing Then
                shp.Delete
            End If
        Next shp
        With ws.Shapes.AddShape(msoShapeOval, Target.Left, Target.Top, Target.Width, Target.Height)
            .Fill.Visible = msoFalse
            .Line.ForeColor.RGB = RGB(255, 0, 0)
        End With
    End If
End Sub

الملف 

دائرة حمراء.xls

 

تم تعديل الخميس at 06:01 بواسطه عبدالله بشير عبدالله

[سيد الأكـرت]

جزاك الله خيرا أستاذنا الفاضل وبارك لك وكل عام وحضرتك بخير