In VBA kun je een reeks cellen doorlopen en acties toepassen op elke cel in het bereik.
Als u een voorwaarde voor elke cel in een bereik wilt testen met VBA, kunt u het beste door het bereik lopen en elke cel testen. Hier zijn twee codevoorbeelden om te demonstreren hoe u door een bereik kunt lopen. U kunt de bereikwaarde vervangen door elk bereik dat u wilt doorlopen.
Loop door bereik van cellen
Dit voorbeeld doorloopt een reeks cellen. De if-instructie test de voorwaarde als de cel de tekst "FindMe" bevat en toont een berichtvenster met de locatie van de tekst, indien gevonden.
1234567891011 | Openbare Sub LoopCells()Dim c als bereikVoor elke c binnen bereik ("A1:A10")Als c.Value = "FindMe" DanMsgBox "Vind mij gevonden op " & c.AdresStop alsvolgende cEinde sub |
Loop door hele kolom
Dit voorbeeld loopt door het hele kolom A-bereik.
1234567891011 | Openbare subluskolom()Dim c als bereikVoor elke c in bereik ("A:A")Als c.Value = "FindMe" DanMsgBox "Vind mij gevonden op " & c.AdresStop alsvolgende cEinde sub |
Loop door hele rij
Het volgende voorbeeld loopt door rij 1 en beschouwt de hele rij als een bereik.
1234567891011 | Openbare sublusrij()Dim c als bereikVoor elke c binnen bereik ("1:1")Als c.Value = "FindMe" DanMsgBox "Vind mij gevonden op " & c.AdresStop alsvolgende cEinde sub |