VBA silmuse jaoks - silmus läbi erinevate rakkude - VBA koodi näited

VBA -s saate loopida lahtrite vahemikku, rakendades iga vahemiku lahtri jaoks toiminguid.

Kui soovite VBA abil testida vahemiku iga lahtri tingimusi, on parim viis vahemikust läbi vaadata, testides iga lahtrit. Siin on kaks koodinäidet, mis demonstreerivad, kuidas vahemikus ringi liikuda. Vahemiku väärtuse saate asendada mis tahes vahemiku jaoks, mida peate läbima.

Silmus läbi rakkude vahemiku

See näide liigub läbi lahtrite vahemiku. Kui lause testib tingimust, kas lahtris on tekst „FindMe” ja kuvatakse sõnumikast koos teksti asukohaga, kui see on leitud.

1234567891011

Avalikud alamringid ()Dim c As RangeIga c vahemikus ("A1: A10")Kui c.Value = "FindMe" SiisMsgBox "FindMe leitud aadressilt" & c.AddressLõpp KuiJärgmine cEnd Sub

Korda kogu veergu

See näide liigub läbi kogu veeru A vahemiku.

1234567891011

Avalik alamringi veerg ()Dim c As RangeIga vahemiku c kohta ("A: A")Kui c.Value = "FindMe" SiisMsgBox "FindMe leitud aadressilt" & c.AddressLõpp KuiJärgmine cEnd Sub

Korda kogu rida läbi

Järgmine näide liigub läbi rea 1, arvestades kogu rea vahemikku.

1234567891011

Avalik alamring ()Dim c As RangeIga c vahemikus ("1: 1")Kui c.Value = "FindMe" SiisMsgBox "FindMe leitud aadressilt" & c.AddressLõpp KuiJärgmine cEnd Sub