300 Exempel

Markera Active Cell

Highlight Active Cell

Nedan kommer vi att titta på ett program i Excel VBA den där markerar raden och kolumnen i den aktiva cellen (markerad cell). Detta program kommer att förvåna och imponera på din chef.





Situation:

Markera Active Cell i Excel VBA





Varje gång vi ändrar den aktiva cellen på Sheet1 måste ett makro köras. Du kan uppnå detta genom att skapa en kalkylbladshändelse.

vad är ett staplat stapeldiagram

1. Öppna Visual Basic Editor .



2. Dubbelklicka på Sheet1 (Sheet1) i Project Explorer.

3. Välj kalkylblad från den vänstra listrutan. Välj SelectionChange från den högra listrutan.

Val av arbetsblad Ändra händelse i Excel VBA

Lägg till följande kodrader i arbetsbladets urvalsändring:

4. Vi deklarerar fyra variabler av typen Heltal. En namngiven rowNumberValue, en med namnet columnNumberValue, en som heter i och en som heter j.

IngenrowNumberValueSom Heltal, columnNumberValueSom Heltal, jagSom Heltal, jSom Heltal

5. Först lägger vi till raden som ändrar bakgrundsfärgen på alla celler till 'Ingen fyllning'.

hur man lägger till ekvation i excel
Cells.Interior.ColorIndex = 0

6. Vi initierar variabeln rowNumberValue med radnumret för den aktiva cellen och variabeln columnNumberValue med kolumnnumret för den aktiva cellen.

rowNumberValue = ActiveCell.row
columnNumberValue = ActiveCell.column

7. Vi markerar kolumnen blå. Det vill säga: alla celler med radnummer mindre eller lika med rowNumberValue och kolumnnummer lika med columnNumberValue

Förjag = 1TillrowNumberValue
Celler (i, columnNumberValue) .Interior.ColorIndex = 37
Nästai

Förklaring: för detta exempel (se bilden ovan) är rowNumberValue lika med 12 och columnNumberValue lika med 8. Kodraderna mellan For och Next kommer att köras tolv gånger. För i = 1 färgar Excel VBA cellen i skärningspunkten mellan rad 1 och kolumn 8. För i = 2 färgar Excel VBA cellen i skärningspunkten mellan rad 2 och kolumn 8, etc.

Obs! I stället för ColorIndex nummer 37 (blått) kan du använda valfritt ColorIndex -nummer.

8. På ett liknande sätt markerar vi raden blå. Det vill säga: alla celler med radnummer lika med rowNumberValue och kolumnnummer mindre eller lika med columnNumberValue.

Förj = 1TillcolumnNumberValue
Celler (rowNumberValue, j) .Interior.ColorIndex = 37
Nästaj

9. Nu är det dags att testa programmet. Ladda ner Excel -filen och se hur raden och kolumnen i den aktiva cellen markeras varje gång du ändrar den aktiva cellen.

3/6 klar! Läs mer om evenemang>
Gå till nästa kapitel: Array



^