Friday, November 27, 2020

VBA Excel to Double Click change to checkmark or x

 Note that to do this, you need to set the font of the affected cells to Winding 2 first:


1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
        Application.EnableEvents = False
        If ActiveCell.Value = ChrW(79) Then
            ActiveCell.ClearContents
            ActiveCell.Value = ChrW(80)
        Else
            ActiveCell.Value = ChrW(79)
        End If
        Cancel = True
    End If
    Application.EnableEvents = True
End Sub

No comments:

Post a Comment

Making Stairs with Landing Revit

 This is a really good video, super simple for making stairs in revit with a landing: https://www.youtube.com/watch?v=mjY1uNw1G-0&ab_cha...