Nedenfor ser vi på et program i Excel VBA at markerer raden og kolonnen i den aktive cellen (valgt celle). Dette programmet vil forbløffe og imponere sjefen din.
Situasjon:
Hver gang vi endrer Active Cell på Sheet1, må en makro utføres. Du kan oppnå dette ved å opprette en regnearksvalgendring.
1. Åpne Visual Basic Editor.
2. Dobbeltklikk på Sheet1 (Sheet1) i Project Explorer.
3. Velg Regneark fra rullegardinlisten til venstre. Velg SelectionChange fra rullegardinlisten til høyre.
Legg til følgende kodelinjer i regnearket SelectionChange Event:
4. Vi deklarerer fire variabler av typen Heltall. En som heter rowNumberValue, en som heter columnNumberValue, en som heter i og en som heter j.
Dim rowNumberValue As Integer, columnNumberValue As Integer, i As Integer, j As Integer
5. Først legger vi til linjen som endrer bakgrunnsfargen på alle cellene til "Ingen fylling".
Cells.Interior.ColorIndex = 0
6. Vi initialiserer variabelen rowNumberValue med radnummeret til den aktive cellen og variabelen columnNumberValue med kolonnenummeret til den aktive cellen.
rowNumberValue = ActiveCell.row
columnNumberValue = ActiveCell.column
7. Vi markerer kolonnen blå. Det vil si: alle cellene med radnummer mindre eller lik rowNumberValue og kolonnenummer lik columnNumberValue
For i = 1 To rowNumberValue
Celler (i, columnNumberValue) .Interior.ColorIndex = 37
Neste jeg
Forklaring: for dette eksemplet (se bildet ovenfor) er rowNumberValue lik 12 og columnNumberValue lik 8. Kodelinjene mellom For og Next vil bli utført tolv ganger. For i = 1 farger Excel VBA cellen i krysset mellom rad 1 og kolonne 8. For i = 2 farger Excel VBA cellen i krysset mellom rad 2 og kolonne 8, etc.
Merk: i stedet for ColorIndex nummer 37 (blått) kan du bruke et hvilket som helst ColorIndex -nummer.
8. På en lignende måte markerer vi raden blå. Det vil si: alle cellene med radnummer lik rowNumberValue og kolonnenummer mindre eller lik columnNumberValue.
For j = 1 Til columnNumberValue
Celler (rowNumberValue, j) .Interior.ColorIndex = 37
Neste j
9. Nå er det på tide å teste programmet. Last ned Excel -filen og se hvordan raden og kolonnen i den aktive cellen utheves hver gang du endrer den aktive cellen.