VBA paieškos funkcija - Kaip naudotis paieškos funkcija? (Pavyzdžiai)

„Excel VBA LOOKUP“ funkcija

Peržiūra yra funkcija, padedanti mums gauti duomenis iš pagrindinės lentelės pagal vieną paieškos vertę. VBA LOOKUP funkcija nereikalauja tokios duomenų struktūros, LOOKUP funkcijai nesvarbu, ar rezultatų stulpelis yra dešinėje, ar kairėje nuo paieškos vertės, vis tiek ji gali patogiai gauti duomenis.

Tai veikia panašiai kaip funkcija VLOOKUP, bet dar svarbiau, kad duomenų struktūroje tai yra lanksti. Kai sakome, kad duomenų struktūroje yra lankstus, tai reiškia, kad VLOOKUP reikia visų reikšmių, esančių dešinėje nuo paieškos vertės pagrindinėje lentelėje, ir nieko, kas liko paieškos vertei VLOOKUP, jos neras.

Sintaksė

Jei jau ieškojote LOOKUP formulės VBA redaktoriuje, esu tikras, kad išprotėjote, nes VBA yra formulė, vadinama LOOKUP.

Priežastis, kodėl ji nėra prieinama pagal numatytuosius nustatymus, nes LOOKUP nėra VBA funkcija, tai yra darbalapio funkcija. Taigi, norėdami naudoti funkciją LOOKUP, pirmiausia turime naudoti VBA klasės darbalapio funkciją.

  • Arg 1 reiškia paieškos vertę
  • Arg 2 yra mūsų paieškos vektorius, ty mūsų paieškos vertės stulpelio diapazonas
  • Arg 3 yra mūsų rezultatų vektorius.

Kaip naudotis VBA paieškos funkcija? (Pavyzdžiai)

1 pavyzdys

Turime šiuos duomenis, iš kurių norime gauti vidutinę konkretaus produkto pavadinimo kainą, naudojant „VBA Excel“ funkciją „Ieškoti“.

Norėdami gauti vidutinę mobiliųjų priedų kainą, naudokite šį kodą.

1 veiksmas: pradėkite antrinę procedūrą VBA.

Kodas:

Antrinis ieškojimas_pavyzdys1 () Pabaigos sub

2 žingsnis: Man reikia rezultato F3 langelyje. Taigi mano kodas yra diapazonas („F3“). Reikšmė =.

Kodas:

Sub lookup_Example1 () Range ("F3"). Reikšmė End Sub

3 žingsnis: Kaip jau sakiau, mes negalėjome iš karto pasiekti LOOKUP funkcijos. Taigi pirmiausia naudokite „Worksheet Function“ klasę.

4 žingsnis: Kai pritaikome „Worksheet Function“ klasę, VBA galime pamatyti visas galimas šios klasės formules, todėl iš šio sąrašo pasirinkite LOOKUP.

5 žingsnis: Naudodami VBA darbalapio funkcijas nematome aiškių formulės argumentų. Čia „Arg 1“ reiškia paieškos vertę. Mūsų paieškos vertė yra langelyje E3, todėl parašykite kodą kaip diapazoną („E3“).

Kodas:

Sub lookup_Example1 () Range ("F3"). Reikšmė = WorksheetFunction.Lookup (Range ("E3"). Reikšmė End Sub

6 žingsnis: „ Arg 2“ yra mūsų paieškos vektorius, ty mūsų paieškos vertės stulpelio diapazonas. Šiame pavyzdyje mūsų paieškos vektoriaus diapazonas yra nuo B3 iki B10.

Kodas:

Sub lookup_Example1 () Range ("F3"). Reikšmė = WorksheetFunction.Lookup (Range ("E3"). Reikšmė, Range ("B3: B10"), End Sub

7 žingsnis: Arg 3 yra mūsų rezultatų vektorius. Rezultatas mums reikalingas iš stulpelio „Vid. Kaina“, todėl rezultatų vektorius yra nuo diapazono C3 iki C10.

Kodas:

Sub lookup_Example1 () Range ("F3"). Reikšmė = WorksheetFunction.Lookup (Range ("E3"). Vertė, Range ("B3: B10"), Range ("C3: C10")) Pabaiga Sub

Gerai, mes baigėme VBA kodavimą.

Paleiskime kodą ir rezultatą turėtume gauti langelyje F3.

Taip galime naudoti funkciją LOOKUP, esančią darbalapio funkcijų klasėje, kad gautume pateiktos paieškos vertės duomenis.

2 pavyzdys

Funkcijai LOOKUP naudokite kintamuosius

Naudodami kintamuosius taip pat galime gauti rezultatus. Žemiau pateikiamas paieškos funkcijos su kintamaisiais pavyzdys.

Kodas:

Sub Lookup_Example2() Dim ResultCell As Range Dim LookupValueCell As Range Dim LookupVector As Range Dim ResultVector As Range Set ResultCell = Range("F3") Set LookupValueCell = Range("E3") Set LookupVector = Range("B3:B10") Set ResultVector = Range("C3:C10") ResultCell = WorksheetFunction.Lookup(LookupValueCell, LookupVector, ResultVector) End Sub

Even though it looks lengthy, it will give good exposure to variables in VBA. Instead of supplying all the values to the formula directly, we have declared variables and assigned set of ranges and values to them.

Declaring variables and setting the reference to those variables is always a good practice in any coding language.

Things to Remember

  • LOOKUP is an alternative function to VLOOKUP.
  • LOOKUP nebūtinai reikalauja, kad rezultatų stulpelis būtų rodomos vertės dešinėje.
  • Paieškos vektoriaus ir rezultato vektoriaus diapazono ilgis turėtų būti vienodas.
  • Dar svarbiau tai, kad turime pateikti stulpelio indekso numerį, kuris reikalingas funkcijai VLOOKUP.

Įdomios straipsniai...