Allpool vaatame programmi Exceli VBA seda tõstab esile aktiivse lahtri rea ja veeru (valitud lahter). See programm hämmastab ja avaldab ülemusele muljet.
Olukord:
Iga kord, kui muudame lehe 1 aktiivset lahtrit, tuleb makro käivitada. Seda saate saavutada, luues töölehe SelectionChange sündmuse.
1. Avage Visual Basic Editor.
2. Topeltklõpsake Project Exploreris Sheet1 (Sheet1).
3. Valige vasakpoolsest ripploendist Tööleht. Valige parempoolsest ripploendist SelectionChange.
Lisage töölehe valiku muutmise sündmusele järgmised koodiridad:
4. Deklareerime neli Integer tüüpi muutujat. Üks nimega rowNumberValue, üks nimega columnNumberValue, üks nimega i ja teine nimega j.
Dim rowNumberValue täisarvuna, columnNumberValue täisarvuna, i täisarvuna, j täisarvuna
5. Esmalt lisame rea, mis muudab kõigi lahtrite taustavärvi, olekuks „No Fill”.
Lahtrid.Interior.ColorIndex = 0
6. Initsialiseerime muutuja rowNumberValue aktiivse lahtri rea numbriga ja muutuja columnNumberValue aktiivse lahtri veerunumbriga.
rowNumberValue = ActiveCell.row
columnNumberValue = ActiveCell.column
7. Tõstame veeru esile sinisega. See tähendab: kõik lahtrid, mille rea number on väiksem või võrdne ridaNumberValue ja veeru number võrdub veerugaVäärtusVäärtus
I = 1 jaoks ReaNumberVäärtus
Lahtrid (i, columnNumberValue). Interior.ColorIndex = 37
Edasi i
Selgitus: selle näite puhul (vt ülaltoodud pilti) on ridaNumberVäärtus 12 ja veergNumberVäärtus võrdne 8. Koodiridu For ja Next vahel täidetakse kaksteist korda. Kui i = 1, värvib Excel VBA lahtri rea 1 ja veeru 8 ristumiskohas. Kui i = 2, värvib Excel VBA lahtri rea 2 ja veeru 8 ristumiskohas jne.
Märkus. ColorIndexi numbri 37 (sinine) asemel võite kasutada mis tahes ColorIndexi numbrit.
8. Sarnasel viisil tõstame rea siniseks esile. See tähendab: kõik lahtrid, mille rea number on võrdne reaNumberVäärtusega ja veeru number on väiksem või võrdne veeruVäärtusVäärtusega.
Kui j = 1 veerguNumberValue
Lahtrid (rowNumberValue, j). Interjöör. Värviindeks = 37
Järgmine j
9. Nüüd on aeg programmi testida. Laadige alla Exceli fail ja vaadake, kuidas aktiivse lahtri rida ja veerg on iga kord aktiivse lahtri muutmisel esile tõstetud.
