విషయ సూచిక
మేము విజువల్ బేసిక్ అప్లికేషన్ (VBA) లో ఉపయోగించే అత్యంత ముఖ్యమైన మరియు విస్తృతంగా ఉపయోగించే ఫంక్షన్లలో ఒకటి ఫైండ్ ఫంక్షన్. ఈ కథనంలో, మీరు సరైన ఉదాహరణలు మరియు దృష్టాంతాలతో FIND ఫంక్షన్ Excelని ఎలా ఉపయోగించవచ్చో నేను మీకు చూపుతాను.
ప్రాక్టీస్ వర్క్బుక్ని డౌన్లోడ్ చేయండి
Excel.xlsmలో VBAలో ఫంక్షన్ను కనుగొనండి
6 VBAలో FIND ఫంక్షన్ని ఉపయోగించడానికి శీఘ్ర ఉదాహరణలు
ఇక్కడ మేము మార్టిన్ బుక్స్టోర్ అనే పుస్తక దుకాణంలోని కొన్ని పుస్తకాల పుస్తక పేర్లు, రచయితలు మరియు ధరలు తో డేటా సెట్ చేయబడింది.
ఈరోజు ఈ డేటా సెట్ నుండి VBA యొక్క ఫైండ్ ఫంక్షన్ యొక్క వివిధ రకాల ఉపయోగాలను చూడడమే మా లక్ష్యం.
1. పరామితి లేని VBAలో ఫైండ్ ఫంక్షన్ని ఉపయోగించండి
మీరు Find function of VBA ని పారామితులు లేకుండా ఉపయోగించవచ్చు.
అప్పుడు అది సెల్ల పరిధిలో నిర్దిష్ట విలువ కోసం శోధిస్తుంది మరియు అది కనుగొన్న మొదటి సరిపోలికను అందిస్తుంది.
పేరు కోసం వెతుకుదాం “P. బి. షెల్లీ” నిలువు వరుసలో రచయిత ( C4:C13 ).
ఫైండ్ ఫంక్షన్ తో లైన్ ఇలా ఉంటుంది:
Set cell = Range("C4:C17").Find("P. B. Shelly")
పూర్తి VBA కోడ్ ఇలా ఉంటుంది:
⧭ VBA కోడ్:
2410
⧭ అవుట్పుట్:
ఇది ని ఉత్పత్తి చేస్తుంది మాక్రో కనుగొను అని పిలుస్తారు. మీరు మాక్రోను రన్ చేస్తే, అది $C$6 , P పేరుతో మొదటి సెల్ చిరునామాను అందిస్తుంది. B. Shelly .
మరింత చదవండి: VBAతో ఒక పరిధిలో కనుగొనండిExcel: ఖచ్చితమైన మరియు పాక్షిక సరిపోలికలతో సహా
2. ఆఫ్టర్ పారామీటర్తో VBAలో ఫైండ్ ఫంక్షన్ని వర్తింపజేయండి (నిర్దిష్ట సెల్ నుండి శోధించడం ప్రారంభించడానికి)
మీరు తర్వాత పరామితిని ఫైండ్ ఫంక్షన్తో ఉపయోగించవచ్చు VBA లో. అప్పుడు అది ఒక పరిధిలో సెల్ దిగువ నుండి విలువ కోసం వెతకడం ప్రారంభిస్తుంది.
ఉదాహరణకు, “P పేరు కోసం వెతకడం ప్రారంభిద్దాం. B. షెల్లీ” క్రింద సెల్ C6 నుండి.
కోడ్ లైన్ ఇలా ఉంటుంది:
Set cell = Range("C4:C13").Find("P. B. Shelly", After:=Range("C6"))
మరియు పూర్తి VBA కోడ్ ఇలా ఉంటుంది:
⧭ VBA కోడ్:
6542
⧭ అవుట్పుట్:
ఇది $C$13 ని అందిస్తుంది, ఎందుకంటే ఇది దిగువ సెల్ C6 నుండి వెతకడం ప్రారంభిస్తుంది, అది సెల్ C7 నుండి. కనుక ఇది Pని పొందుతుంది. B. షెల్లీ సెల్ C13 లో ముందుగా.
మరింత చదవండి: ఒక స్ట్రింగ్ను ఎలా కనుగొనాలి Excel
3లో VBAని ఉపయోగించి సెల్. VBAలో ఫైండ్ ఫంక్షన్ను ఆఫ్టర్ పారామీటర్ చుట్టూ చుట్టి (వృత్తాకార మార్గంలో విలువ కోసం శోధించడానికి)
తర్వాత పారామీటర్తో ఫైండ్ ఫంక్షన్ ఒక వృత్తాకార పద్ధతిలో విలువ కోసం శోధిస్తుంది
అంటే, అది ఒక పరిధిలోని సెల్ దిగువ నుండి శోధించడం ప్రారంభిస్తుంది, పరిధిలో శోధనను ముగించి, ఆపై మళ్లీ పరిధి ఎగువ నుండి ప్రారంభమవుతుంది.
ఉదాహరణకు, After పారామీటర్ని ఉపయోగించి “జాన్ కీట్స్” పేరును C8 క్రింద సెల్ నుండి శోధించడం ప్రారంభిద్దాం.
పంక్తి కోడ్ ఇలా ఉంటుంది:
Set cell = Range("C4:C13").Find("John Keats", After:=Range("C8"))
మరియు దిపూర్తి VBA కోడ్ ఇలా ఉంటుంది:
⧭ VBA కోడ్:
1435
⧭ అవుట్పుట్:
ఇది $C$7 ని అందిస్తుంది ఎందుకంటే ఇది దిగువ సెల్ C8 నుండి శోధించడం ప్రారంభిస్తుంది, దీని నుండి సెల్ C9 .
ఇది సెల్ C13 వరకు ఏమీ కనుగొనలేదు, కనుక ఇది మళ్లీ సెల్ C4 నుండి ప్రారంభమవుతుంది మరియు సెల్లో ఒకదాన్ని కనుగొంటుంది C7 .
ఇలాంటి రీడింగ్లు:
- VBAతో స్ట్రింగ్ను ఎలా కనుగొనాలి Excelలో (8 ఉదాహరణలు)
- Excelలో VBAని ఉపయోగించి ఖచ్చితమైన సరిపోలికను కనుగొనండి (5 మార్గాలు)
- VBAని ఉపయోగించి ఎలా కనుగొనాలి మరియు భర్తీ చేయాలి (11 మార్గాలు)
4. LookAt పారామీటర్తో VBAలో Find ఫంక్షన్ని ఉపయోగించుకోండి (ఖచ్చితమైన లేదా పాక్షిక సరిపోలిక కోసం)
మీరు VBA లో Find ఫంక్షన్ ని తో ఉపయోగించవచ్చు>LookAt పారామీటర్.
ఖచ్చితమైన మ్యాచ్ కోసం LookAt = xlWhole ని మరియు పాక్షికం కోసం LookAt=xlPart ని ఉపయోగించండి సరిపోలిక.
ఉదాహరణకు, పుస్తక పేరు కాలమ్ ( లో “Ode” పేరుతో ఏదైనా పుస్తకం ఉందో లేదో తెలుసుకోవడానికి ప్రయత్నిద్దాం>B4:B13 ).
మేము xlWhole ని కోడ్ లైన్లో ఉపయోగిస్తే:
Set cell = Range("B4:B13").Find("Ode", LookAt:=xlWhole)
అవుట్పుట్ లోపాన్ని చూపుతుంది ఎందుకంటే ఇది ఖచ్చితమైన సరిపోలికను కనుగొనలేదు.
కానీ మీరు ఉపయోగిస్తే:
<7 Set cell = Range("B4:B13").Find("Ode", LookAt:=xlPart)
అప్పుడు అది $B$9 తిరిగి వస్తుంది, ఎందుకంటే సెల్ లో “Ode” పేరుతో ఒక పుస్తకం ఉంది B7 , ఓడ్ టు ది నైటింగేల్.
కాబట్టి పాక్షిక మ్యాచ్ కోసం పూర్తి కోడ్ఉంది:
⧭ VBA కోడ్:
4745
5. సెర్చ్డైరెక్షన్ పరామీటర్తో VBAలో ఫైండ్ ఫంక్షన్ను ఆపరేట్ చేయండి (శోధన దిశను పేర్కొనడానికి)
మీరు VBA లో Find ఫంక్షన్ ని కూడా ఉపయోగించవచ్చు SearchDirection పరామితి.
SearchDirection = xlNext ని ఎగువ నుండి క్రిందికి శోధించడం కోసం ఉపయోగించండి.
మరియు SearchDirection = xlPrevious దిగువ నుండి పైకి శోధించడం కోసం.
ఉదాహరణకు, రచయిత కాలమ్లో రచయిత Elif Shafak ని కనుగొనడానికి ప్రయత్నిద్దాం. ( C4:C13 ).
మేము xlNext ని కోడ్ లైన్లో ఉపయోగిస్తే:
Set cell = Range("C4:C13").Find("Elif Shafak", SearchDirection:=xlNext)
అప్పుడు అది $C$5 ని అందిస్తుంది.
కానీ మీరు వీటిని ఉపయోగిస్తే:
Set cell = Range("C4:C13").Find("Elif Shafak", SearchDirection:=xlPrevious)
అప్పుడు అది తిరిగి వస్తుంది $C$11 .
కాబట్టి దిగువ నుండి పైకి <శోధించడానికి పూర్తి కోడ్ 2> ఇది:
⧭ VBA కోడ్:
5172
6. MatchCase పారామీటర్తో VBAలో ఫంక్షన్ను కనుగొనండి (కేస్-సెన్సిటివ్ లేదా ఇన్సెన్సిటివ్ మ్యాచ్ కోసం)
చివరిగా, మీరు MatchCase పారామీటర్తో Find function ని ఉపయోగించవచ్చు.
కేస్-సెన్సిటివ్ మ్యాచ్ , మరియు MatchCase=False కోసం MatchCase = True ఉపయోగించండి కేస్-ఇన్సెన్సిటివ్ మ్యాచ్.
ఉదాహరణకు, పుస్తకం పేరు కాలమ్ ( B4:B13)లో “తల్లి” పుస్తకాన్ని కనుగొనడానికి ప్రయత్నిద్దాం ).
మేము కోడ్ లైన్లో Trueని ఉపయోగిస్తే:
Set cell = Range("B4:B13").Find("mother", MatchCase:=True)
అవుట్పుట్ ఎర్రర్ను చూపుతుంది ఎందుకంటే అది ' ఏదీ కనుగొనలేదుమ్యాచ్.
కానీ మీరు వీటిని ఉపయోగిస్తే:
Set cell = Range("B4:B13").Find("mother", MatchCase:=False)
అప్పుడు అది తిరిగి వస్తుంది $ B$9 ఎందుకంటే సెల్ B8 లో “అమ్మ” అనే పుస్తకం ఉంది.
కాబట్టి దీని కోసం పూర్తి కోడ్ కేస్-సెన్సిటివ్ మ్యాచ్:
⧭ VBA కోడ్:
6852
తీర్మానం
ఈ పద్ధతులను ఉపయోగించి, మీరు విజువల్ బేసిక్ అప్లికేషన్లో ఫైండ్ ఫంక్షన్ని ఉపయోగించవచ్చు. మీకు ఏవైనా ప్రశ్నలు ఉన్నాయా? మమ్మల్ని అడగడానికి సంకోచించకండి.