VBA For Loop - Loop Through a Range of Cells - VBA -kodeeksempler

I VBA kan du gå gjennom en rekke celler og bruke handlinger på hver celle i området.

Hvis du vil teste en tilstand for hver celle i et område ved hjelp av VBA, er den beste måten å gå gjennom området og teste hver celle. Her er to kodeksempler for å demonstrere hvordan du går gjennom et område. Du kan erstatte områdeverdien for det området du trenger å gå gjennom.

Sløyfe gjennom rekkevidde av celler

Dette eksemplet går gjennom en rekke celler. If -setningen tester tilstanden hvis cellen inneholder teksten “FindMe” og viser en meldingsboks med plasseringen av teksten hvis den blir funnet.

1234567891011

Offentlig Sub LoopCells ()Dim c As RangeFor hver c In Range ("A1: A10")Hvis c.Value = "FindMe" DaMsgBox "FindMe funnet på" og c.AddressSlutt omNeste cSlutt Sub

Sløyfe gjennom hele kolonnen

Dette eksemplet går gjennom hele kolonne A -området.

1234567891011

Offentlig Sub LoopColumn ()Dim c As RangeFor hver c i rekkevidde ("A: A")Hvis c.Value = "FindMe" DaMsgBox "FindMe funnet på" og c.AddressSlutt omNeste cSlutt Sub

Sløyfe gjennom hele raden

Det neste eksemplet går gjennom rad 1 med tanke på at hele raden er et område.

1234567891011

Offentlig Sub LoopRow ()Dim c As RangeFor hver c In Range ("1: 1")Hvis c.Value = "FindMe" DaMsgBox "FindMe funnet på" og c.AddressSlutt omNeste cSlutt Sub