Nedenfor ser vi på et program i Excel VBA at fremhæver rækken og kolonnen i den aktive celle (markeret celle). Dette program vil forbløffe og imponere din chef.
Situation:
Hver gang vi ændrer den aktive celle på Sheet1, skal der udføres en makro. Du kan opnå dette ved at oprette en regnearksudvælgelsesændring.
1. Åbn Visual Basic Editor.
2. Dobbeltklik på Sheet1 (Sheet1) i Project Explorer.
3. Vælg regneark på rullelisten til venstre. Vælg SelectionChange fra rullelisten til højre.
Tilføj følgende kodelinjer til regnearksudvælgelsesændringen:
4. Vi erklærer fire variabler af typen Heltal. En navngivet rowNumberValue, en med navnet columnNumberValue, en med navnet i og en med navnet j.
Dim rowNumberValue As Integer, columnNumberValue As Integer, i As Integer, j As Integer
5. Først tilføjer vi den linje, der ændrer baggrundsfarven på alle celler til 'Ingen udfyldning'.
Cells.Interior.ColorIndex = 0
6. Vi initialiserer variablen rowNumberValue med rækkenummeret for den aktive celle og variablen columnNumberValue med kolonnenummeret for den aktive celle.
rowNumberValue = ActiveCell.row
columnNumberValue = ActiveCell.column
7. Vi fremhæver kolonnen blå. Det vil sige: alle celler med rækketal mindre eller lig med rowNumberValue og kolonnenummer lig med columnNumberValue
For i = 1 Til rowNumberValue
Celler (i, columnNumberValue) .Interior.ColorIndex = 37
Næste i
Forklaring: for dette eksempel (se billedet ovenfor) er rowNumberValue lig med 12 og columnNumberValue lig med 8. Kodelinjerne mellem For og Next udføres tolv gange. For i = 1 farver Excel VBA cellen i skæringspunktet mellem række 1 og kolonne 8. For i = 2 farver Excel VBA cellen i skæringspunktet mellem række 2 og kolonne 8 osv.
Bemærk: I stedet for ColorIndex nummer 37 (blå) kan du bruge et hvilket som helst ColorIndex -nummer.
8. På en lignende måde fremhæver vi rækken blå. Det vil sige: alle cellerne med rækkenummer lig rowNumberValue og kolonnenummer mindre eller lig med columnNumberValue.
For j = 1 Til columnNumberValue
Celler (rowNumberValue, j) .Interior.ColorIndex = 37
Næste j
9. Nu er det tid til at teste programmet. Download Excel -filen, og se, hvordan rækken og kolonnen i den aktive celle fremhæves, hver gang du ændrer den aktive celle.
