Karthik se ptá:
Pracuji na kódu události pro zvýraznění aktivní buňky, v podstatě zobrazit změnu barvy pozadí aktivní buňky. Použil jsem událost změny a to změní hodnotu aktivní buňky pouze v případě, že se hodnota změnila.
Jaká skvělá otázka. Trik spočívá v použití události změny Worksheet_Selection namísto události Worksheet_Change. Toto makro obslužné rutiny speciální události musí být zadáno v podokně kódu přidruženého k vašemu konkrétnímu listu. Diskuse o tom, jak to najít v podokně projektu, je u tohoto archivovaného tipu.
Poté byste zadali následující kód:
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 SubTento program používá veřejnou proměnnou nazvanou OldRng k zapamatování posledního rozsahu, který byl vybrán, aby bylo možné při výběru nového rozsahu obnovit barvu zpět na bílou.
