Žemiau apžvelgsime programą Excel VBA kad paryškina aktyvios ląstelės eilutę ir stulpelį (pasirinkta ląstelė). Ši programa nustebins ir sužavės jūsų viršininką.
Situacija:
Kiekvieną kartą, kai keičiame 1 lapo aktyviąją ląstelę, reikia vykdyti makrokomandą. Tai galite pasiekti sukūrę darbalapio pasirinkimo keitimo įvykį.
1. Atidarykite „Visual Basic“ redaktorių.
2. „Project Explorer“ dukart spustelėkite Sheet1 (Sheet1).
3. Iš kairiojo išskleidžiamojo sąrašo pasirinkite Darbo lapas. Išskleidžiamajame dešiniajame sąraše pasirinkite „SelectionChange“.
Į darbalapio pasirinkimo keitimo įvykį įtraukite šias kodo eilutes:
4. Deklaruojame keturis Integer tipo kintamuosius. Vienas pavadintas rowNumberValue, vienas pavadintas columnNumberValue, vienas pavadintas i ir vienas pavadintas j.
Dim rowNumberValue as Integer, columnNumberValue as Integer, i As Integer, j As Integer
5. Pirmiausia pridedame eilutę, kuri keičia visų langelių fono spalvą į „Neužpildyti“.
Cells.Interior.ColorIndex = 0
6. Inicijuojame kintamąjį rowNumberValue su Active Cell eilutės numeriu ir kintamąjį columnNumberValue su Active Cell stulpelio numeriu.
rowNumberValue = ActiveCell.row
columnNumberValue = ActiveCell.column
7. Stulpelį paryškiname mėlynai. Tai yra: visos ląstelės, kurių eilutės numeris yra mažesnis arba lygus rowNumberValue, o stulpelio numeris lygus columnNumberValue
Jei i = 1 Į eilutėsSkaičiusVertė
Ląstelės (i, columnNumberValue). Interior.ColorIndex = 37
Kitas I.
Paaiškinimas: šiame pavyzdyje (žr. Paveikslėlį aukščiau) „rowNumberValue“ yra lygus 12, o „columnNumberValue“ - lygus 8. Kodo eilutės tarp „For“ ir „Next“ bus vykdomos dvylika kartų. Jei i = 1, „Excel VBA“ nuspalvina langelį 1 eilutės ir 8 stulpelio sankirtoje. Jei i = 2, „Excel VBA“ nuspalvina langelį 2 eilutės ir 8 stulpelio sankirtoje ir kt.
Pastaba: vietoj „ColorIndex“ numerio 37 (mėlyna) galite naudoti bet kurį „ColorIndex“ numerį.
8. Panašiai paryškiname mėlyną eilutę. Tai yra: visos ląstelės, kurių eilutės numeris lygus rowNumberValue, o stulpelio numeris mažesnis arba lygus columnNumberValue.
J = 1 Į stulpelįNumberValue
Ląstelės (rowNumberValue, j). Interior.ColorIndex = 37
Kitas j
9. Dabar atėjo laikas išbandyti programą. Atsisiųskite „Excel“ failą ir pažiūrėkite, kaip aktyvios ląstelės eilutė ir stulpelis paryškinami kiekvieną kartą keičiant aktyvųjį langelį.
