VBA InStr | ఎక్సెల్ VBA InStr ఫంక్షన్ ఉపయోగించడానికి టాప్ 5 ఉదాహరణలు

ఎక్సెల్ VBA InStr ఫంక్షన్

VBA లో ఇన్‌స్ట్రార్ ఫంక్షన్‌కు పోలిక పద్ధతిని మేము పేర్కొన్న తర్వాత స్ట్రింగ్‌లో ఇచ్చిన సబ్‌స్ట్రింగ్ యొక్క స్థానాన్ని తెలుసుకోవడానికి ఉపయోగిస్తారు, ఈ ఫంక్షన్‌కు నాలుగు వేర్వేరు పోలిక పద్ధతులు ఉన్నాయి, ఇన్‌స్ట్రర్ ఒక స్ట్రింగ్ ఫంక్షన్ కానీ ఫంక్షన్ ద్వారా తిరిగి వచ్చే అవుట్పుట్ సంఖ్యాపరంగా ఉంటుంది అవుట్పుట్ ఈ ఫంక్షన్ పూర్ణాంక వేరియబుల్ లో ఉంది.

VBA లోని స్ట్రింగ్ అనేది అక్షరాల శ్రేణి తప్ప మరొకటి కాదు, అనగా డబుల్ కోట్లతో అందించబడిన అన్ని పాఠాలు తీగలుగా పరిగణించబడతాయి. InStr ఫంక్షన్ అనేది స్ట్రింగ్స్‌ను మార్చటానికి ఉపయోగించే అంతర్నిర్మిత టెక్స్ట్ ఫంక్షన్. ఉదాహరణకు - మీరు ఒక వాక్యం నుండి ఒక సబ్‌స్ట్రింగ్‌ను తీయాలనుకుంటే లేదా మీరు అక్షరాల శ్రేణిలో ఒక నిర్దిష్ట స్ట్రింగ్‌కు ఫాంట్ డిజైన్ మార్పులను వర్తింపజేయాలనుకుంటే లేదా మీరు పాత్ర యొక్క స్థానం మరియు అనేక ఇతర అవకాశాలను కనుగొనాలనుకుంటే, మీరు ఉపయోగించవచ్చు InStr.

సింటాక్స్

దిగువ చిత్రంలో చూపిన విధంగా దీనికి 4 వాదనలు ఉన్నాయి.

  • [ప్రారంభం]: ఇది తప్పనిసరి కాదు. సరఫరా చేయబడిన వచనం కోసం స్ట్రింగ్ Instr ఫంక్షన్ యొక్క ఏ స్థానం నుండి ప్రారంభించాలో మనం పేర్కొనవలసిన సంఖ్యా విలువ ఇది. ఉదాహరణకు: మీరు అక్షరాన్ని శోధించాలనుకుంటే “అ” పదంలో “బెంగళూరు” 3 వ స్థానం నుండి మనం Instr ఫంక్షన్ ప్రారంభ స్థానం 3 గా చెప్పాలి. కాబట్టి 3 వ స్థానం అక్షరం నుండి “అ” 5 వ స్థానంలో ఉంది. మీరు ఈ పరామితిని విస్మరిస్తే డిఫాల్ట్ విలువ 1.
  • స్ట్రింగ్ 1: ఇది మేము సరఫరా చేస్తున్న అసలు స్ట్రింగ్, అనగా ఈ టెక్స్ట్ నుండి మేము సబ్‌స్ట్రింగ్‌ను కనుగొనడానికి ప్రయత్నిస్తున్నాము. ఉదాహరణకు, మీరు స్ట్రింగ్ కోసం చూస్తున్నట్లయితే “అ” లో “బెంగళూరు”, బెంగళూరులో స్ట్రింగ్ 1.
  • స్ట్రింగ్ 2: ఇది మనం వెతుకుతున్న స్ట్రింగ్ తప్ప మరేమీ కాదు. ఉదాహరణకు, మీరు స్ట్రింగ్ కోసం చూస్తున్నట్లయితే “అ” లో “బెంగళూరు”, స్ట్రింగ్ 2 ఉంది a.
  • [సరిపోల్చండి]: ఇది మళ్ళీ ఐచ్ఛిక వాదన. [పోల్చండి] వాదనలో మూడు రకాల ఎంపికలు అందుబాటులో ఉన్నాయి.

  • vbBinaryCompare: ఇది స్ట్రింగ్ 1 లోని సబ్‌స్ట్రింగ్ (స్ట్రింగ్ 2) యొక్క కేస్ సెన్సిటివ్ సెర్చ్ తప్ప మరొకటి కాదు. ఉదాహరణకు, మేము శోధిస్తుంటే “అ” పదంలో “బెంగళూరు” Instr ఫలితంగా 2 తిరిగి వస్తుంది మరియు మీరు శోధిస్తుంటే “ఎ” పదంలో “బెంగళూరు” సరఫరా చేసిన స్ట్రింగ్ అప్పర్ కేస్ విలువ అయినందున Instr ఫలితంగా 0 తిరిగి వస్తుంది.

మనం సున్నా (0) ను కూడా వాదనగా ఉంచవచ్చు.

vbTextCompare: ఇది స్ట్రింగ్ 1 లోని స్ట్రింగ్ 2 యొక్క కేస్ సెన్సిటివ్ సెర్చ్ కాదు. ఉదాహరణకు, మేము శోధిస్తుంటే “అ” పదంలో “బెంగళూరు” Instr ఫలితంగా 2 తిరిగి వస్తుంది మరియు మీరు శోధిస్తుంటే “ఎ” పదంలో “బెంగళూరు” Instr 2 కూడా తిరిగి వస్తుంది. లాజిక్ A = a, B = b, C = c మొదలైనవి….

మనం ఒకటి (1) ను కూడా వాదనగా ఉంచవచ్చు.

vbDatabaseCompare: మీ డేటాబేస్ నుండి సమాచారాన్ని పోల్చడానికి ఇది ఉపయోగించబడుతుంది, అంటే మైక్రోసాఫ్ట్ యాక్సెస్ డేటాబేస్.

మనం ఒకటి (-1) ను కూడా వాదనగా ఉంచవచ్చు.

VBA ఇన్‌స్ట్రర్ ఫంక్షన్‌ను ఉపయోగించటానికి టాప్ 5 ఉదాహరణలు

మీరు ఈ VBA Instr Function Excel మూసను ఇక్కడ డౌన్‌లోడ్ చేసుకోవచ్చు - VBA Instr Function Excel Template

ఉదాహరణ # 1

మొదటి ఉదాహరణతో ప్రారంభిద్దాం. మాటలో బెంగళూరు పాత్ర యొక్క స్థానాన్ని కనుగొనండి a.

క్రింద కోడ్ మాకు పనిని చేస్తుంది.

కోడ్:

 ఉప Instr_Example1 () Dim i As Variant i = InStr ("బెంగళూరు", "a") MsgBox i End Sub 

ఇప్పుడు పైన ఇచ్చిన VBA కోడ్‌ను F5 కీని ఉపయోగించి అమలు చేయండి లేదా క్రింద ఇచ్చిన స్క్రీన్‌షాట్‌లో చూపిన విధంగా మీరు ఈ కోడ్‌ను మానవీయంగా అమలు చేయవచ్చు.

అవుట్పుట్:

ఉదాహరణ # 2

ఇప్పుడు మాటలో బెంగళూరు పాత్ర యొక్క స్థానాన్ని కనుగొనండి “అ” మూడవ స్థానం నుండి.

దిగువ కోడ్ మాకు పనిని చేస్తుంది.

కోడ్:

 ఉప Instr_Example2 () Dim i As Variant i = InStr (3, "బెంగళూరు", "a") MsgBox i End Sub 

పైన ఇచ్చిన కోడ్‌ను అమలు చేయడానికి, మీరు F5 కీని ఉపయోగించవచ్చు లేదా క్రింద ఇచ్చిన స్క్రీన్‌షాట్‌లో చూపిన విధంగా మీరు ఈ కోడ్‌ను మానవీయంగా అమలు చేయవచ్చు.

అవుట్పుట్:

ఇప్పుడు పై చిత్రంలో, మునుపటి కోడ్ నుండి వ్యత్యాసాన్ని చూడండి. మేము పాత్ర యొక్క ప్రారంభ స్థానాన్ని 3 గా పేర్కొన్నందున ఇది మొదటి అక్షరాన్ని విస్మరించింది “అ” 2 వ స్థానంలో.

ఉదాహరణ # 3

ఇప్పుడు మనం కేస్ సెన్సిటివ్ సెర్చ్ చూస్తాము. మాటలో బెంగళూరు లేఖను కనుగొనండి “అ”.

దీని కోసం, మేము పోలిక వాదనను సరఫరా చేయాలి vbBinaryCompare.

కోడ్:

 ఉప Instr_Example3 () Dim i As Variant i = InStr (1, "బెంగళూరు", "A", vbBinaryCompare) MsgBox i End Sub 

ఇప్పుడు రన్ చేయండి, ఈ కోడ్ F5 కీని ఉపయోగించి లేదా మీరు ఈ కోడ్‌ను మానవీయంగా అమలు చేయవచ్చు.

అవుట్పుట్:

మేము పోలిక వాదనను సరఫరా చేసినందున vbBinaryCompare పెద్ద అక్షరం లేనందున Instr ఫంక్షన్ ఫలితాన్ని సున్నాగా ఇచ్చింది “ఎ” ఉంది.

ఉదాహరణ # 4

ఇప్పుడు మనం మరో కేసు సున్నితమైన శోధనను చూస్తాము. మాటలో బెంగళూరు లేఖను కనుగొనండి “అ”. మునుపటి ఉదాహరణ ఫలితాన్ని సున్నాగా ఇచ్చింది.

ఇక్కడ కేసు సున్నితమైన విధానాన్ని అధిగమించడానికి, మేము పోలిక వాదనను సరఫరా చేయాలి vbTextCompare.

కోడ్:

 ఉప Instr_Example4 () Dim i As Variant i = InStr (1, "బెంగళూరు", "A", vbTextCompare) MsgBox i End Sub 

ఇప్పుడు రన్ చేయండి, ఈ కోడ్ F5 కీని ఉపయోగించి లేదా మీరు ఈ కోడ్‌ను మానవీయంగా అమలు చేయవచ్చు.

అవుట్పుట్:

ఉదాహరణ # 5

ఇప్పుడు మనం ఇన్‌స్ట్రర్ ఫంక్షన్ యొక్క అధునాతన స్థాయిని చూస్తాము. మీకు ఎక్కువ లేదా అంతకంటే తక్కువ సారూప్య పేరు ఉన్న చాలా షీట్లు ఉంటే మరియు మీరు ఆ షీట్లన్నింటినీ ఒకేసారి దాచాలనుకుంటే, మేము ఒక నిర్దిష్ట షీట్‌ను దాచడానికి క్రింది కోడ్‌ను ఉపయోగించవచ్చు.

ఉదాహరణకు, నా దగ్గర 5 షీట్లు ఉన్నాయి సారాంశం 1, సారాంశం 2, సారాంశం 3, సారాంశం 4 మరియు డేటా షీట్.

ఇప్పుడు నేను పదం ఉన్న అన్ని షీట్లను దాచాలనుకుంటున్నాను “సారాంశం”. సారాంశం అనే పదాన్ని దాని పేరిట ఉన్న అన్ని షీట్లను దాచడానికి క్రింది కోడ్‌ను ఉపయోగించండి.

కోడ్:

 Act ToWHide_Specific_Sheet () Dim Ws ActiveWorkbook లోని ప్రతి Ws కు వర్క్‌షీట్‌గా ఉంటుంది. 'అది కనుగొంటే అది ఎండ్ సబ్ దాచబడుతుంది 

ఇప్పుడు రన్ చేయండి, ఈ కోడ్ F5 కీని ఉపయోగించి లేదా మీరు ఈ కోడ్‌ను మాన్యువల్‌గా రన్ చేసి అవుట్పుట్ చూడవచ్చు.

అదేవిధంగా ఆ షీట్లన్నింటినీ దాచడానికి క్రింది కోడ్‌ను ఉపయోగించండి.

కోడ్:

 Act ToWUn_ide_Specific_Sheet () Dim Ws ActiveWorkbook లోని ప్రతి Ws కు వర్క్‌షీట్‌గా. వర్క్‌షీట్‌లు InStr (Ws.Name, "సారాంశం")> 0 అయితే Ws.Visible = xlSheetVisible End ఉంటే Ws 'InStr ఫంక్షన్ షీట్ పేరులోని పదం లేదా పదబంధాన్ని చూస్తుంది 'అది కనుగొంటే అది ఎండ్ సబ్ దాచబడుతుంది 

ఇప్పుడు రన్ చేయండి, ఈ కోడ్ F5 కీని ఉపయోగించి లేదా మీరు కూడా ఈ కోడ్‌ను మాన్యువల్‌గా రన్ చేసి అవుట్పుట్ చూడవచ్చు.

గుర్తుంచుకోవలసిన విషయాలు

  • Instr అనేది కేస్ సెన్సిటివ్ ఫంక్షన్. ఈ కేసు సున్నితమైన సమస్యను తొలగించడానికి, మీరు [పోల్చండి] వాదనను సరఫరా చేయాలి.
  • మీరు కేస్ సెన్సిటివ్ క్యారెక్టర్ కోసం శోధిస్తుంటే, మీరు [పోల్చండి] ఆర్గ్యుమెంట్‌ను డిఫాల్ట్‌గా సరఫరా చేయాలి, మీరు సరఫరా చేయకపోయినా VBA దీనిని ఆర్గ్యుమెంట్‌గా తీసుకుంటుంది.
  • Instr ఒక VBA ఫంక్షన్ కాబట్టి మీరు దీన్ని ఇతర అంతర్నిర్మిత సూత్రాల మాదిరిగా ఎక్సెల్ వర్క్‌షీట్‌లో ఉపయోగించలేరు.
  • ఫంక్షన్ స్ట్రింగ్ 2 ను కనుగొనలేకపోతే ఫలితం సున్నా అవుతుంది.