Excel VBA: Good Mark with Double Click


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Column = 4 Then

Cancel = True

Target.Font.Name = "Wingdings"

    If Target.Value = "" Then

        Target.Value = "ü"

        Else

        Target.Value = ""

        End If

        End If

End Sub


                                                      YouTube Video





Comments

Popular posts from this blog

Physical properties of Liquid

Characteristics and Limitations of computer:

1.4 Bent Axis Piston Pump