Vo VBA môžete prechádzať rozsahom buniek a aplikovať akcie na každú bunku v rozsahu.
Ak chcete otestovať podmienku pre každú bunku v rozsahu pomocou VBA, najlepším spôsobom je prejsť rozsahom a otestovať každú bunku. Tu sú dva príklady kódu na ukázanie, ako prechádzať cez rozsah. Hodnotu rozsahu môžete nahradiť akýmkoľvek rozsahom, v ktorom sa musíte opakovať.
Smyčka cez rozsah buniek
Tento príklad bude prechádzať celým radom buniek. Príkaz if testuje stav, či bunka obsahuje text „FindMe“ a v prípade nájdenia zobrazí okno so správou s umiestnením textu.
| 1234567891011 | Public Sub LoopCells ()Dim c As RangePre každé c v rozsahu („A1: A10“)Ak c.Value = "FindMe" PotomMsgBox „FindMe found at“ & c.AddressKoniec AkĎalej cKoniec pod |
Smyčka celým stĺpcom
Tento príklad prechádza celým rozsahom stĺpca A.
| 1234567891011 | Verejný stĺpcový stĺpik ()Dim c As RangePre každé c v rozsahu („A: A“)Ak c.Value = "FindMe" PotomMsgBox „FindMe found at“ & c.AddressKoniec AkĎalej cKoniec pod |
Smyčka cez celý riadok
Nasledujúci príklad opakuje riadok 1, pričom celý rad považuje za rozsah.
| 1234567891011 | Public Sub LoopRow ()Dim c As RangePre každé c v rozsahu („1: 1“)Ak c.Value = "FindMe" PotomMsgBox „FindMe found at“ & c.AddressKoniec AkĎalej cKoniec pod |
