VBA silmukalle - silmukka solualueiden läpi - esimerkkejä VBA -koodista

VBA: ssa voit selata solualueen läpi soveltamalla toimintoja kaikkiin alueen soluihin.

Jos haluat testata ehdon kullekin alueen solulle VBA: n avulla, paras tapa on kiertää alue läpi ja testata jokainen solu. Seuraavassa on kaksi koodiesimerkkiä, jotka osoittavat, kuinka silmukka kierretään alueen läpi. Voit korvata alueen arvon millä tahansa alueella, jonka haluat kiertää.

Kierrä soluvalikoima läpi

Tämä esimerkki kiertää solualueen läpi. If -lause testaa tilan, jos solu sisältää tekstin "FindMe" ja näyttää viestiruudun, jossa on tekstin sijainti, jos se löytyy.

1234567891011

Julkiset alisilmukkasolut ()Dim c Kuten alueJokaista c alueella ("A1: A10")Jos c.Value = "FindMe" SittenMsgBox "FindMe löytyi osoitteesta" & c.AddressLoppu JosSeuraava cEnd Sub

Kierrä koko sarake läpi

Tämä esimerkki kiertää koko sarakkeen A alueen.

1234567891011

Julkinen alisilmukkaSarake ()Dim c Kuten alueJokaista c alueella ("A: A")Jos c.Value = "FindMe" SittenMsgBox "FindMe löytyi osoitteesta" & c.AddressLoppu JosSeuraava cEnd Sub

Kierrä koko rivi läpi

Seuraava esimerkki kulkee rivin 1 läpi ottaen huomioon koko rivin alueen.

1234567891011

Julkinen alisilmukka ()Dim c Kuten alueJokaista c alueella ("1: 1")Jos c.Value = "FindMe" SittenMsgBox "FindMe löytyi osoitteesta" & c.AddressLoppu JosSeuraava cEnd Sub