Níže se podíváme na program v Excel VBA že zvýrazní řádek a sloupec aktivní buňky (vybraná buňka). Tento program ohromí a zapůsobí na vašeho šéfa.
Situace:
Pokaždé, když změníme aktivní buňku na listu1, je třeba spustit makro. Toho můžete dosáhnout vytvořením události SelectionChange pracovního listu.
1. Otevřete editor jazyka.
2. Poklepejte na List1 (List1) v Průzkumníku projektů.
3. V levém rozevíracím seznamu vyberte list. V pravém rozevíracím seznamu vyberte SelectionChange.
Přidejte následující řádky kódu do události SelectionChange pracovního listu:
4. Deklarujeme čtyři proměnné typu Integer. Jeden pojmenovaný rowNumberValue, jeden pojmenovaný columnNumberValue, jeden pojmenovaný i a jeden pojmenovaný j.
Dim rowNumberValue As Integer, columnNumberValue As Integer, i As Integer, j As Integer
5. Nejprve přidáme řádek, který změní barvu pozadí všech buněk, na „Bez výplně“.
Cells.Interior.ColorIndex = 0
6. Proměnnou rowNumberValue inicializujeme číslem řádku aktivní buňky a proměnnou columnNumberValue číslem sloupce aktivní buňky.
rowNumberValue = ActiveCell.row
columnNumberValue = ActiveCell.column
7. Sloupec zvýrazníme modře. To znamená: všechny buňky s číslem řádku menším nebo rovným rowNumberValue a číslem sloupce rovným columnNumberValue
Pro i = 1 Do rowNumberValue
Buňky (i, columnNumberValue) .Interior.ColorIndex = 37
Příště já
Vysvětlení: pro tento příklad (viz obrázek výše) se rowNumberValue rovná 12 a columnNumberValue se rovná 8. Řádky kódu mezi For a Next budou provedeny dvanáctkrát. Pro i = 1 Excel VBA vybarví buňku na průsečíku řádku 1 a sloupce 8. Pro i = 2 Excel VBA vybarví buňku na průsečíku řádku 2 a sloupce 8 atd.
Poznámka: místo ColorIndex číslo 37 (modré) můžete použít libovolné číslo ColorIndex.
8. Podobným způsobem zvýrazníme řádek modře. To znamená: všechny buňky s číslem řádku rovným rowNumberValue a číslem sloupce menším nebo rovným columnNumberValue.
Pro j = 1 Do columnNumberValue
Buňky (rowNumberValue, j) .Interior.ColorIndex = 37
Další j
9. Nyní je čas program otestovat. Stáhněte si soubor aplikace Excel a uvidíte, jak se zvýrazní řádek a sloupec aktivní buňky při každé změně aktivní buňky.