Karthik vraagt:
Ik werk aan een gebeurteniscode voor het markeren van de actieve cel, laat in feite de achtergrondkleur van de actieve cel zien. Ik heb de wijzigingsgebeurtenis gebruikt en dit verandert de waarde van de actieve cel alleen als de waarde is gewijzigd.
Wat een coole vraag. De truc is om de wijzigingsgebeurtenis Worksheet_Selection te gebruiken in plaats van de gebeurtenis Worksheet_Change. Deze speciale gebeurtenishandler-macro moet worden ingevoerd in het codepaneel dat aan uw specifieke werkblad is gekoppeld. Een bespreking van hoe u dit in het projectvenster kunt vinden, vindt u in deze gearchiveerde tip.
U zou dan de volgende code invoeren:
Public OldRng As Range Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not OldRng Is Nothing Then OldRng.Interior.ColorIndex = xlNone End If Target.Interior.ColorIndex = 6 Set OldRng = Target End Sub
Dit programma gebruikt een openbare variabele genaamd OldRng om het laatst geselecteerde bereik te onthouden, zodat de kleur weer naar wit kan worden teruggezet wanneer u een nieuw bereik selecteert.