VBA til sløjfe - sløjfe gennem en række celler - eksempler på VBA -kode

I VBA kan du sløjfe gennem en række celler og anvende handlinger på hver celle i området.

Hvis du vil teste en tilstand for hver celle i et område ved hjælp af VBA, er den bedste måde at gå gennem området og teste hver celle. Her er to kodeeksempler for at demonstrere, hvordan man går gennem et område. Du kan erstatte intervalværdien for det område, du har brug for at gå igennem.

Sløjfe gennem række celler

Dette eksempel går gennem en række celler. If -sætningen tester betingelsen, hvis cellen indeholder teksten "FindMe" og viser en meddelelsesboks med placeringen af ​​teksten, hvis den findes.

1234567891011

Offentlig Sub LoopCells ()Dim c Som områdeFor hver c In Range ("A1: A10")Hvis c.Value = "FindMe" SåMsgBox "FindMe fundet på" & c.AddressAfslut HvisNæste cAfslut Sub

Sløjfe gennem hele kolonnen

Dette eksempel går gennem hele kolonne A -området.

1234567891011

Offentlig Sub LoopColumn ()Dim c Som områdeFor hver c i området ("A: A")Hvis c.Value = "FindMe" SåMsgBox "FindMe fundet på" & c.AddressAfslut HvisNæste cAfslut Sub

Sløjfe gennem hele rækken

Det næste eksempel går gennem række 1, da hele rækken betragtes som et område.

1234567891011

Offentlig Sub LoopRow ()Dim c Som områdeFor hver c In Range ("1: 1")Hvis c.Value = "FindMe" SåMsgBox "FindMe fundet på" & c.AddressAfslut HvisNæste cAfslut Sub