U nastavku ćemo pogledati program u Excel VBA da označava redak i stupac aktivne ćelije (odabrana ćelija). Ovaj će program zadiviti i impresionirati vašeg šefa.
Situacija:
Svaki put kad promijenimo aktivnu ćeliju na listu 1, potrebno je izvršiti makronaredbu. To možete postići stvaranjem događaja Odabir promjene radnog lista.
1. Otvorite Visual Basic Editor.
2. Dvaput kliknite na Sheet1 (Sheet1) u Project Exploreru.
3. Odaberite Radni list s lijevog padajućeg popisa. Odaberite SelectionChange s desnog padajućeg popisa.
Dodajte sljedeće retke koda događaju Odabir promjene radnog lista:
4. Deklariramo četiri varijable tipa Integer. Jedna imenovana rowNumberValue, jedna imenovana columnNumberValue, jedna s imenom i jedna s imenom j.
Zatamni rowNumberValue kao cijeli broj, columnNumberValue kao cijeli broj, i kao cijeli broj, j kao cijeli broj
5. Prvo dodajemo redak koji mijenja boju pozadine svih ćelija u "Bez ispune".
Ćelije.Interijer.Indeks boje = 0
6. Pokrećemo varijablu rowNumberValue brojem retka aktivne ćelije i varijablom columnNumberValue s brojem stupca aktivne ćelije.
rowNumberValue = ActiveCell.row
stupacNumberValue = ActiveCell.column
7. Stupac označavamo plavo. To jest: sve ćelije s brojem retka manjim ili jednakim rowNumberValue i brojem stupca jednakim columnNumberValue
Za i = 1 Za rowNumberValue
Ćelije (i, stupacNumberValue). Unutrašnjost.Indeks boje = 37
Sljedeći i
Objašnjenje: za ovaj primjer (vidi gornju sliku), rowNumberValue je jednak 12, a columnNumberValue jednak 8. Kodne linije između For i Next bit će izvedene dvanaest puta. Za i = 1, Excel VBA boji ćeliju na sjecištu retka 1 i stupca 8. Za i = 2, Excel VBA boji ćeliju na sjecištu retka 2 i stupca 8 itd.
Napomena: umjesto ColorIndex broja 37 (plavo), možete koristiti bilo koji ColorIndex broj.
8. Na sličan način označavamo red plavo. To jest: sve ćelije s brojem retka jednakim rowNumberValue i brojem stupca manjim ili jednakim columnNumberValue.
Za j = 1 Za stupacNumberValue
Ćelije (rowNumberValue, j) .Interijer.Indeks boje = 37
Sljedeće j
9. Sada je vrijeme za testiranje programa. Preuzmite Excel datoteku i pogledajte kako su red i stupac aktivne ćelije istaknuti svaki put kada promijenite aktivnu ćeliju.
