السلام عليكم إخواني الكرام في المنتدى الرائع
أقدم لكم كود بسيط يتم وضعه في حدث Worksheet_BeforeDoubleClick
يقوم الكود بوضع علامة صح عند النقر المزدوج على أي خلية في النطاق A1:A100 يمكنك تغيير النطاق إلى أي نطاق تريده ..
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
Cancel = True
Target.Font.Name = "Marlett"
If Target = vbNullString Then
Target = "a"
Else
Target = vbNullString
End If
End If
End Sub