Excel - tõstke esile aktiivne rida

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

Kui soovite funktsiooni aktiveerida / deaktiveerida:

Praegune rida tõstetakse vaikimisi esile, klõpsates nuppu või otsetee, et muuta selle olekut:

 Avalik aktiveerimisliides on boolean
Alamaktiveerimine ()
ActivationLigne = ei aktiveerimissertifikaat
lõpu alam