/ / Smyčka přes celý sloupec v aplikaci Excel VBA

Smyčka přes celý sloupec v aplikaci Excel VBA

Níže se podíváme na program v Excel VBA že smyčky přes celý první sloupec a barvy všech hodnot, které jsou nižší než určitá hodnota.

Loop přes celý sloupec v aplikaci Excel VBA

Loop přes celý sloupec v aplikaci Excel VBA

Umístěte na pracovní list příkazové tlačítko a přidejte následující řádky kódu:

1. Nejprve deklarujte proměnnou nazvanou i typu Long. Používáme proměnnou typu Long zde, protože dlouhé proměnné mají větší kapacitu než celočíselné proměnné.

Dim i As Long

2. Dále přidejte kódový řádek, který změní barvu písma všech buněk ve sloupci A na černou.

Columns(1).Font.Color = vbBlack

3. Přidejte smyčku.

For i = 1 To Rows.Count

Next i

Poznámka: listy mohou mít v aplikaci Excel 2003 až 65536 řádků a až 1.048.576 řádků v aplikaci Excel 2007 nebo novějších. Bez ohledu na verzi, kterou používáte, kódový řádek výše přechází přes všechny řádky (soubor Excel lze stáhnout ve formátu aplikace Excel 97-2003).

4. Dále zbarví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
    Cells(i, 1).Font.Color = vbRed
End If

Výsledek po klepnutí na příkazové tlačítko na listu (může to chvíli trvat):

Smyčka přes celý sloupec výsledek

Smyčka přes celý sloupec výsledek

Také si přečtěte: