Utilizați proprietatea WorksheetFunction în Excel VBA pentru a accesa CĂUTARE funcţie. Tot ce aveți nevoie este o singură linie de cod.
Situatie:
1. Plasați un buton de comandă pe foaia de lucru și adăugați următoarea linie de cod:
Interval ("H3"). Valoare = WorksheetFunction.VLookup (Interval ("H2"), Interval ("B3: E9"), 4, Fals)
Când faceți clic pe butonul de comandă din foaia de lucru, Excel VBA folosește funcția VLOOKUP pentru a căuta salariul ID 53 și plasează rezultatul în celula H3.
Notă: vizitați pagina noastră despre funcția VLOOKUP pentru a afla mai multe despre această funcție Excel.
Dacă funcția VLOOKUP nu poate găsi o potrivire, Excel VBA returnează „Imposibil de obținut Proprietatea VLookup a clasei WorksheetFunction "eroare.
2. De exemplu, introduceți valoarea 28 în celula H2.
Rezultatul când faceți clic pe butonul de comandă de pe foaie:
3. Pentru a înlocui această eroare cu un mesaj prietenos, actualizați codul după cum urmează.
On Error GoTo InvalidValue:
Interval ("H3"). Valoare = WorksheetFunction.VLookup (Interval ("H2"), Interval ("B3: E9"), 4, Fals)
Ieșiți din Sub
InvalidValue: Range ("H3"). Value = "Not Found"
Rezultatul când faceți clic pe butonul de comandă de pe foaie:
Notă: accesați pagina noastră despre gestionarea erorilor pentru a afla mai multe despre acest subiect.
