Naudokite ypatybę „WorksheetFunction“ Excel VBA prieiti prie VLOOKUP funkcija. Viskas, ko jums reikia, yra viena kodo eilutė.
Situacija:
1. Įdėkite komandų mygtuką į savo darbalapį ir pridėkite šią kodo eilutę:
Diapazonas („H3“). Reikšmė = WorksheetFunction.VLookup (Diapazonas („H2“), diapazonas („B3: E9“), 4, klaidinga)
Kai darbalapyje spustelėsite komandų mygtuką, „Excel VBA“ naudoja funkciją VLOOKUP, kad surastų ID 53 atlyginimą ir įdėtų rezultatą į langelį H3.
Pastaba: apsilankykite mūsų puslapyje apie funkciją VLOOKUP ir sužinokite daugiau apie šią „Excel“ funkciją.
Jei funkcija VLOOKUP neranda atitikties, „Excel VBA“ grąžina „Nepavyko gauti „VLookup“ nuosavybė klaida „WorksheetFunction class“.
2. Pavyzdžiui, į langelį H2 įveskite 28 reikšmę.
Rezultatas, kai lape spustelėsite komandų mygtuką:
3. Jei norite pakeisti šią klaidą draugišku pranešimu, atnaujinkite kodą taip.
Dėl klaidos „GoTo InvalidValue“:
Diapazonas („H3“). Reikšmė = WorksheetFunction.VLookup (Diapazonas („H2“), diapazonas („B3: E9“), 4, klaidinga)
Išeiti iš Sub
InvalidValue: Diapazonas ("H3"). Vertė = "Nerasta"
Rezultatas, kai lape spustelėsite komandų mygtuką:
Pastaba: apsilankykite mūsų puslapyje apie klaidų tvarkymą ir sužinokite daugiau apie šią temą.