Spodaj si bomo ogledali program v Excel VBA to označuje vrstico in stolpec aktivne celice (izbrana celica). Ta program bo navdušil in navdušil vašega šefa.
Situacija:
Vsakič, ko spremenimo aktivno celico na listu 1, je treba izvesti makro. To lahko dosežete tako, da ustvarite dogodek Izbira spremembe delovnega lista.
1. Odprite urejevalnik Visual Basic.
2. Dvokliknite Sheet1 (Sheet1) v Raziskovalcu projektov.
3. Na levem spustnem seznamu izberite Delovni list. Na desnem spustnem seznamu izberite SelectionChange.
V dogodek Izbira delovnega lista spremenite naslednje kodne vrstice:
4. Razglasimo štiri spremenljivke tipa Integer. Eno poimenovano rowNumberValue, eno poimenovano columnNumberValue, eno z imenom i in eno z imenom j.
Dim rowNumberValue As Integer, columnNumberValue As Integer, i As Integer, j As Integer
5. Najprej dodamo vrstico, ki spremeni barvo ozadja vseh celic v "Brez zapolnitve".
Celice.Interior.ColorIndex = 0
6. Spremenljivko rowNumberValue inicializiramo s številko vrstice aktivne celice in spremenljivko columnNumberValue s številko stolpca aktivne celice.
rowNumberValue = ActiveCell.row
columnNumberValue = stolpec ActiveCell
7. Stolpec označimo modro. To pomeni: vse celice s številko vrstice, manjšo ali enako vrsticiNumberValue in številko stolpca, ki je enaka stolpcuNumberValue
Za i = 1 Za rowNumberValue
Celice (i, columnNumberValue) .Interior.ColorIndex = 37
Naprej i
Pojasnilo: v tem primeru (glej sliko zgoraj) je rowNumberValue enako 12, columnNumberValue pa 8. Kodirane vrstice med For in Next bodo izvedene dvanajstkrat. Za i = 1 Excel VBA obarva celico na presečišču vrstice 1 in stolpca 8. Za i = 2 Excel VBA obarva celico na presečišču vrstice 2 in stolpca 8 itd.
Opomba: namesto številke ColorIndex 37 (modra) lahko uporabite katero koli številko ColorIndex.
8. Na podoben način označimo vrstico modro. To pomeni: vse celice s številko vrstice, ki je enaka rowNumberValue, in številko stolpca, manjšo ali enako stolpcuNumberValue.
Za j = 1 V stolpecNumberValue
Celice (rowNumberValue, j) .Interior.ColorIndex = 37
Naprej j
9. Zdaj je čas, da preizkusite program. Prenesite datoteko Excel in si oglejte, kako sta vrstica in stolpec aktivne celice označeni vsakič, ko spremenite aktivno celico.