Nee, op basis van een worksheet doubleclick event kan je dit doen. Weliswaar
zonder de randcheck, maar wel op basis van bereik een klein voorbeeldje :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
'Als men dubbelklikt in bereik B2:B10 dan
'zet men een vinkje. Staat er ééntje, dan wis je deze.
If Not Intersect(Target, Range("B2:B10")) Is Nothing Then
If Target.Value = "a" Then
Target.ClearContents
Else
Target.Font.Name = "Webdings"
Target.Font.Size = "12"
Target.Value = "a"
End If
Cancel = True
End If
End Sub
Je kan nu eigenlijk de target.font zaken met een With - End With constructie
schrijven, moest je dit willen.
Charlize
Post by EDRSPost by CharlizeJe moet de formulieren werkbalk zichtbaar maken. Daar kan je een keuzerondje
of selectievakje kiezen om op je werkblad te zetten.
Je kan ook een rand maken rond een cel en met een dubbelklik een 'vogeltje'
laten inzetten (of wissen).
Charlize, hoe zet je met een dubbelklik een vogeltje in een cel met
een rand? Is dat ook een formulierfunctie?
EDN