Ve VBA můžete procházet řadou buněk a aplikovat akce na každou buňku v rozsahu.
Pokud chcete testovat podmínku pro každou buňku v rozsahu pomocí VBA, nejlepší způsob je procházet rozsahem a testovat každou buňku. Zde jsou dva příklady kódu, které ukazují, jak procházet rozsahem. Hodnotu rozsahu můžete nahradit jakýmkoli rozsahem, který potřebujete pro smyčku.
Smyčka přes rozsah buněk
Tento příklad bude procházet řadou buněk. Příkaz if testuje podmínku, pokud buňka obsahuje text „FindMe“ a zobrazí okno se zprávou s umístěním textu, pokud je nalezen.
1234567891011 | Public Sub LoopCells ()Dim c As RangePro každé c v rozsahu („A1: A10“)Pokud c.Value = "FindMe" PakMsgBox „FindMe found at“ & c.AddressKonec IfDalší cEnd Sub |
Smyčka skrz celý sloupec
Tento příklad prochází celým rozsahem sloupce A.
1234567891011 | Veřejný dílčí sloupec ()Dim c As RangePro každé c v dosahu („A: A“)Pokud c.Value = "FindMe" PakMsgBox „FindMe found at“ & c.AddressKonec IfDalší cEnd Sub |
Smyčka přes celou řadu
Následující příklad opakuje řádek 1 s ohledem na celý řádek v rozsahu.
1234567891011 | Public Sub LoopRow ()Dim c As RangePro každé c v rozsahu („1: 1“)Pokud c.Value = "FindMe" PakMsgBox „FindMe found at“ & c.AddressKonec IfDalší cEnd Sub |