Šiame straipsnyje bus parodyta, kaip naudojant VBA rasti reikšmę stulpelyje.
Mes galime naudoti „Range.Find“, norėdami peržvelgti VBA verčių stulpelį, kad surastumėte visas diapazono ląsteles, atitinkančias nurodytus kriterijus.
Kreipimasis į stulpelį su diapazonu. Rasti ir diapazonas. Rasti kitą
Žemiau pateiktame pavyzdyje mes peržiūrime stulpelio duomenis ir ieškome žodžio „pavėluotas“. Radęs žodį, jis pažymės langelį, pakeisdamas langelio teksto spalvą į raudoną. Tada mes naudosime Range.FindNext metodą, kad pereitume į kitą langelį ir toliau ieškotume žodžio, tęsdami kilpą iki nurodyto langelių diapazono pabaigos.
| 1234567891011121314151617 | „FindLoop“ ()Pritemdyti strFirstAddress kaip eilutęDim rngFindValue kaip diapazonasDim rngSearch As RangeDim rngFind As RangeNustatykite rngFind = ActiveSheet.Range ("F1: F17")Nustatykite rngSearch = rngFind.Cells (rngFind.Cells.Count)Nustatykite rngFindValue = rngFind.Find ("Pavėluotas", rngSearch, xlValues)Jei ne „rngFindValue“, tada nieko nėrastrFirstAddress = rngFindValue.AddressrngFindValue.Font.Color = vbRedDarykNustatykite rngFindValue = rngFind.FindNext (rngFindValue)rngFindValue.Font.Color = vbRedCiklas iki rngFindValue.Address = strFirstAddressPabaiga JeiPabaiga Sub |
Kai kodas paleidžiamas, jis išsaugo pirmo langelio, kuriame duomenys yra kintamajame, adresą strFirstAddress ir pakeičia teksto spalvą į raudoną. Tada sukuriama kilpa, kad būtų surastas kitas langelis, kuriame yra reikalingi duomenys. Suradus reikšmę, teksto spalva pakeičiama į raudoną, o tada langelio, kuriame vertė randama, adresas lyginamas su eilute strFirstAddress. Jei tai nėra tas pats, ciklas tęsiamas, randant kiekvieną žodžio „Pavėluotas“ egzempliorių. Kai kilpa pasieks ląstelių diapazono pabaigą (ty F17), ji prasidės diapazono pradžioje (F1) ir toliau tęsis. Kai jis antrą kartą pasiekia langelio adresą F3, nes jis yra toks pat kaip ir išsaugotas kintamasis strFirstAddress, kilpa sustos.
