Naudodami VBA galite pereiti per langelių diapazoną, taikydami veiksmus kiekvienai diapazono langeliui.
Jei norite išbandyti kiekvienos diapazono ląstelės būklę naudodami VBA, geriausias būdas yra pereiti per diapazoną, išbandant kiekvieną langelį. Pateikiame du kodo pavyzdžius, parodančius, kaip pereiti per diapazoną. Diapazono vertę galite pakeisti bet kokiam diapazonui, kurį reikia atlikti.
Keliaukite per ląstelių diapazoną
Šis pavyzdys apims daugybę langelių. Jei teiginys patikrina būklę, jei langelyje yra tekstas „FindMe“, ir parodomas pranešimų langelis su teksto vieta, jei ji randama.
| 1234567891011 | Viešosios antrinės kilpos ląstelės ()Dim c As DiapazonasKiekvienam c diapazone („A1: A10“)Jei c.Value = "FindMe" Tada„MsgBox“ „FindMe“ rasta adresu „& c.AddressPabaiga JeiKitas cPabaiga Sub |
Keliaukite per visą stulpelį
Šis pavyzdys tęsiasi per visą A stulpelio diapazoną.
| 1234567891011 | Viešoji antrinė kolona ()Dim c As DiapazonasKiekvienam diapazonui priklausančiam c („A: A“)Jei c.Value = "FindMe" Tada„MsgBox“ „FindMe“ rasta adresu „& c.AddressPabaiga JeiKitas cPabaiga Sub |
Keliaukite per visą eilę
Kitas pavyzdys tęsiasi per 1 eilutę, atsižvelgiant į visą eilutės diapazoną.
| 1234567891011 | Viešoji antrinė eilutė ()Dim c As DiapazonasKiekvienam c diapazone („1: 1“)Jei c.Value = "FindMe" Tada„MsgBox“ „FindMe“ rasta adresu „& c.AddressPabaiga JeiKitas cPabaiga Sub |
