L
L Mehl
Hello --
On 2002-11-25, PeterDavey ([email protected])
posted a method to allow douple-clicking a cell to change its value, and
mentions Monotype Sorts as a font to simulate a tick mark.
Does anyone know of a font distributed with Win2000 or otherwise in the
public domain that would have a similar mark, and, how I would use VBA to
test for its value once I got it to work?
Thanks for any help.
Larry Mehl
-------------------------------------
Subject: Re: Newbie: Put CheckBox in a cell and use it to set that cell's
value?
I use the following code in a worksheet to "toggle" the value of a cell in
the named range "sendFlags" between True and False when the cell is double
clicked.
It doesn't look as nice as as a checkbox but it works OK. If you
wanted to display a tick instead of True you could for e.g. use the Monotype
Sorts font and set the value to 4.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel
As Boolean)
If Not Intersect(Target, Me.Range("sendFlags")) Is Nothing Then
Cancel = True
If Target.Value = True Then
Me.Range(Target.Address).Value = False
Else
Me.Range(Target.Address).Value = True
End If
End If
End Sub
On 2002-11-25, PeterDavey ([email protected])
posted a method to allow douple-clicking a cell to change its value, and
mentions Monotype Sorts as a font to simulate a tick mark.
Does anyone know of a font distributed with Win2000 or otherwise in the
public domain that would have a similar mark, and, how I would use VBA to
test for its value once I got it to work?
Thanks for any help.
Larry Mehl
-------------------------------------
Subject: Re: Newbie: Put CheckBox in a cell and use it to set that cell's
value?
I use the following code in a worksheet to "toggle" the value of a cell in
the named range "sendFlags" between True and False when the cell is double
clicked.
It doesn't look as nice as as a checkbox but it works OK. If you
wanted to display a tick instead of True you could for e.g. use the Monotype
Sorts font and set the value to 4.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel
As Boolean)
If Not Intersect(Target, Me.Range("sendFlags")) Is Nothing Then
Cancel = True
If Target.Value = True Then
Me.Range(Target.Address).Value = False
Else
Me.Range(Target.Address).Value = True
End If
End If
End Sub