Níže se podíváme na program v Excel VBA že prochází celým prvním sloupcem a vybarví všechny hodnoty, které jsou nižší než určitá hodnota.
Umístěte na list příkazové tlačítko a přidejte následující řádky kódu:
1. Nejprve deklarujte proměnnou s názvem i typu Long. Zde používáme proměnnou typu Long, protože dlouhé proměnné mají větší kapacitu než celočíselné proměnné.
Dim i As Long
2. Dále přidejte řádek kódu, který změní barvu písma všech buněk ve sloupci A na černou.
Sloupce (1) .Font.Color = vbBlack
3. Přidejte smyčku.
Pro i = 1 do řádků. Počet
Příště já
Poznámka: listy mohou mít v aplikaci Excel 2007 nebo novější až 1 048 576 řádků. Bez ohledu na to, jakou verzi používáte, řádek kódu výše prochází všemi řádky.
4. Dále vybarvíme všechny hodnoty, které jsou nižší než hodnota zadaná do buňky D2. Prázdné buňky jsou ignorovány. Do smyčky přidejte následující řádky kódu.
If Cells (i, 1) .Value <Range ("D2"). Value And Not IsEmpty (Cells (i, 1) .Value) Then
Buňky (i, 1). Font.Color = vbRed
Konec If
Výsledek po kliknutí na příkazové tlačítko na listu (může to chvíli trvat):