Excel - tõstke esile aktiivne rida
![](http://img.brin-designs.com/img/games/197/excel-highlight-active-row.png)
See väike funktsioon tõstab esile rea, kuhu kursor praegu asub.
Lisa moodulilehele:
Privaatne alamtööleht_ValikMuudatus (ByVal Target as Range)Staatiline AncAdress nii kaua
'Kui funktsiooni aktiveerimine / deaktiveerimine on rakendatud, lisage allolev rida
kui ActivationLine väljub alammenüüst
Kui Target.Count> 1 Siis välju Sub
Kui AncAdress 0 siis “taastage normaalne
Read (AncAdress) .Interior.ColorIndex = xlNone
Read (AncAdress) .Font.ColorIndex = 0
Lõpeta kui
Target.EntireRow.Font.ColorIndex = 6
Target.EntireRow.Interior.ColorIndex = 3
Target.EntireRow.Interior.Pattern = xlSolid
AncAdress = Target.Row
Lõpeta alam
Lisa üldmoodulisse (nt moodul 1)
Kui soovite funktsiooni aktiveerida / deaktiveerida:
- Või pane makrole nupp
- Või pane otsetee
Praegune rida tõstetakse vaikimisi esile, klõpsates nuppu või otsetee, et muuta selle olekut:
Avalik aktiveerimisliides on booleanAlamaktiveerimine ()
ActivationLigne = ei aktiveerimissertifikaat
lõpu alam