Karthik jautā:
Es strādāju pie notikuma koda, lai izceltu aktīvo šūnu, galvenokārt rāda izmaiņas aktīvās šūnas fona krāsā. Es izmantoju izmaiņu notikumu, un tas maina aktīvās šūnas vērtību tikai tad, kad vērtība ir mainījusies.
Cik foršs jautājums. Triks ir izmantot notikuma Worksheet_Selection maiņu notikuma Worksheet_Change vietā. Šis īpašais notikumu apstrādes makro ir jāievada koda rūtī, kas ir saistīta ar jūsu konkrēto darblapu. Diskusija par to, kā to atrast projekta rūtī, ir šajā arhivētajā padomā.
Pēc tam ievadiet šādu kodu:
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
Šī programma izmanto publisko mainīgo OldRng, lai atcerētos pēdējo atlasīto diapazonu, lai, atlasot jaunu diapazonu, krāsu varētu atjaunot baltā krāsā.