كيفية ادراج علامة صح فى كود

[طائع]

اخوانى وأساتذتى الكرام 

الرجاء المساعدة

كيف أدرج علامة صح فى هذا الكود بدلا من غ

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("c8:AH397")) Is Nothing Then
    If Target.Value = "" Then
    Cancel = True
    Target.Value = "غ"
    Else
    Cancel = True
    Target.Value = ""
    End If
End If
End Sub

 

[Ali Mohamed Ali]

تفضل الكود ومعه ملف

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("c8:AH397")) Is Nothing Then
    If Target.Value = "" Then
    Cancel = True
    Target.Value = "P"
 Range("c8:AH397").Font.Name = "Wingdings 2"
    Else
    Cancel = True
    Target.Value = ""
    End If
End If
End Sub

 

ادراج علامة صح.xlsm

[طائع]

اشكرك استاذى وزميلى على الاهتمام ولكن عندما يتم تفريغ البيانات من شيت 1 الى شيت 2 مثلا يتم استبدال علامة الصح بحرف p 

واليك المرفق 

ادراج علامة صح.rar

[Ali Mohamed Ali]

اجعل نوع الخط   Wingdings 2

 

[طائع]

اشكرك وزادك الله من علمه