Tabela e përmbajtjes
Një nga funksionet më të rëndësishme dhe më të përdorura që përdorim në Aplikacioni Visual Basic (VBA) është funksioni Find. Në këtë artikull, unë do t'ju tregoj se si mund të përdorni funksionin FIND të Excel-it me shembuj dhe ilustrime të duhura.
Shkarko librin e punës praktike
Gjeni funksionin në VBA në Excel.xlsm
6 shembuj të shpejtë për të përdorur funksionin FIND në VBA
Këtu kemi mori një grup të dhënash me Emrat e librave, autorët dhe çmimet të disa librave të një librari të quajtur Martin Bookstore.
Sot Objektivi ynë është të shohim lloje të ndryshme përdorimesh të funksionit Gjej të VBA nga ky grup të dhënash.
1. Përdorni funksionin e gjetjes në VBA pa parametër
Mund të përdorni funksionin Gjej të VBA pa parametra.
Më pas do të kërkojë një vlerë specifike brenda një gamë qelizash dhe do të kthejë përputhjen e parë që gjen.
Le të kërkojmë emrin “P. B. Shelly” në kolonën Author ( C4:C13 ).
Rreshti me funksionin Gjej do të jetë:
Set cell = Range("C4:C17").Find("P. B. Shelly") Kodi i plotë VBA do të jetë:
⧭ Kodi VBA:
5434
⧭ Prodhimi:
Prodhon një Makro i quajtur Gjej . Nëse përdorni Macron, ajo do të kthejë $C$6 , adresën e parë të qelizës me emrin P. B. Shelly .
Lexo më shumë: Gjeni brenda një diapazoni me VBA nëExcel: Përfshirja e ndeshjeve të sakta dhe të pjesshme
2. Aplikoni funksionin e gjetjes në VBA me parametrin pas (për të filluar kërkimin nga një qelizë specifike)
Mund të përdorni parametrin Pas me funksionin Gjej në VBA . Më pas do të fillojë të kërkojë një vlerë nga poshtë një qelize brenda një diapazoni.
Për shembull, le të fillojmë të kërkojmë për emrin “P. B. Shelly” nga poshtë qelizës C6 .
Rreshti i kodit do të jetë:
Set cell = Range("C4:C13").Find("P. B. Shelly", After:=Range("C6")) Dhe i plotë kodi VBA do të jetë:
⧭ Kodi VBA:
9365
⧭ Prodhimi:
Do të kthehet $C$13 sepse fillon të kërkojë nga qeliza poshtë C6 , që është nga qeliza C7 . Kështu që merr P. B. Shelly në qelizën C13 së pari.
Lexo më shumë: Si të gjesh vargun në një Qeliza duke përdorur VBA në Excel
3. Ekzekutoni funksionin e gjetjes në VBA me mbështjellje rreth parametrit pas (për të kërkuar një vlerë në mënyrë rrethore)
Parametri Pas me funksionin Gjej kërkon një vlerë në një mënyrë rrethore
Dmth, ajo fillon kërkimin nga poshtë një qelize brenda një diapazoni, përfundon kërkimin në diapazonin dhe më pas fillon përsëri nga maja e diapazonit.
0>Për shembull, le të fillojmë të kërkojmë emrin “John Keats” nga poshtë qelizës C8 duke përdorur parametrin Pas .
Rreshti i kodi do të jetë:
Set cell = Range("C4:C13").Find("John Keats", After:=Range("C8")) Dhei plotë kodi VBA do të jetë:
⧭ Kodi VBA:
2713
⧭ Prodhimi:
Do të kthejë $C$7 sepse fillon kërkimin nga poshtë qelizës C8 , që është nga qeliza C9 .
Nuk gjen asgjë deri në qelizën C13 , kështu që përsëri fillon nga qeliza C4 dhe gjen një në qelizë C7 .
Lexime të ngjashme:
- Si të gjesh vargun me VBA në Excel (8 shembuj)
- Gjeni përputhjen e saktë duke përdorur VBA në Excel (5 mënyra)
- Si të gjeni dhe zëvendësoni duke përdorur VBA (11 Mënyrat)
4. Përdorni funksionin Find në VBA me Parametrin LookAt (për përputhje të saktë ose të pjesshme)
Mund të përdorni funksionin Gjeni në VBA me <1 Parametri>LookAt .
Përdor LookAt = xlWhole për një përputhje Exact , dhe LookAt=xlPart për një Pjesshëm përputhen.
Për shembull, le të përpiqemi të gjejmë nëse ka ndonjë libër me emrin "Ode" në kolonën Emri i librit ( B4:B13 ).
Nëse përdorim xlWhole në rreshtin e kodit:
Set cell = Range("B4:B13").Find("Ode", LookAt:=xlWhole) Dalja do të tregojë një gabim sepse nuk do të gjejë ndonjë përputhje të saktë .
Por nëse përdorni:
Set cell = Range("B4:B13").Find("Ode", LookAt:=xlPart) Më pas do të kthehet $B$9 , sepse ka një libër me emrin “Ode” në qelizën B7 , Ode për Nightingale.
Pra, kodi i plotë për ndeshjen të pjesshme është:
⧭ Kodi VBA:
1451
5. Përdorni funksionin e gjetjes në VBA me parametrin SearchDirection (për të specifikuar drejtimin e kërkimit)
Mund të përdorni gjithashtu funksionin Gjej në VBA me Parametri SearchDirection .
Përdor SearchDirection = xlNext për të kërkuar nga Lart-Pottom .
Dhe SearchDirection = xlE mëparshme për kërkimin nga Poshtë lart .
Për shembull, le të përpiqemi të gjejmë Autorin Elif Shafak në kolonën Autor ( C4:C13 ).
Nëse përdorim xlNext në rreshtin e kodit:
Set cell = Range("C4:C13").Find("Elif Shafak", SearchDirection:=xlNext) Më pas do të kthehet $C$5 .
Por nëse përdorni:
Set cell = Range("C4:C13").Find("Elif Shafak", SearchDirection:=xlPrevious) Më pas do të kthehet $C$11 .
Pra, kodi i plotë për kërkimin nga poshtë lart është:
⧭ Kodi VBA:
9856
6. Gjeni funksionin në VBA me parametrin MatchCase (Për përputhjen e ndjeshme ndaj shkronjave të vogla ose të pandjeshme)
Më në fund, mund të përdorni funksionin Gjej me parametrin MatchCase .
Përdor MatchCase = True për një përputhje të ndjeshme ndaj shkronjave , dhe MatchCase=False për një përputhje e pandjeshme ndaj rasteve.
Për shembull, le të përpiqemi të gjejmë librin “nëna” në kolonën Emri i librit ( B4:B13 ).
Nëse përdorim True në rreshtin e kodit:
Set cell = Range("B4:B13").Find("mother", MatchCase:=True) Dalja do të tregojë një gabim sepse do' nuk gjeni ndonjëpërputhen.
Por nëse përdorni:
Set cell = Range("B4:B13").Find("mother", MatchCase:=False) Atëherë do të kthehet $ B$9 sepse ekziston një libër me emrin “Nëna” në qelizën B8 .
Pra, kodi i plotë për përputhja të pandjeshme ndaj shkronjave është:
⧭ Kodi VBA:
6378
Përfundim
Duke përdorur këto metoda, mund të përdorni funksionin Find në aplikacionin Visual Basic. A keni ndonjë pyetje? Mos ngurroni të na pyesni.
