સામગ્રીઓનું કોષ્ટક
એક્સેલ VBA કોડ્સ સાથે કામ કરતી વખતે, અમે કેટલાક બિલ્ટ-ઇન ફંક્શન્સ પર આવીએ છીએ જે જટિલ કાર્યને નાના વન-લાઇન કોડમાં રૂપાંતરિત કરે છે. InStr એ એક્સેલ VBA માં ઉપલબ્ધ એવું ફંક્શન છે જે આપેલ પોઝિશનથી શરૂ કરીને અન્ય આપેલ સ્ટ્રિંગમાં ચોક્કસ સ્ટ્રિંગ માટે શોધ કરે છે. આજે હું બતાવીશ કે તમે કેવી રીતે VBA માં InStr ફંક્શનનો ઉપયોગ અન્ય આપેલ સ્ટ્રિંગમાં ચોક્કસ સ્ટ્રિંગ શોધવા માટે કરી શકો છો.
પ્રેક્ટિસ વર્કબુક ડાઉનલોડ કરો
InStr Function.xlsm
VBA InStr ફંક્શન
- નો પરિચય સારાંશ
આપેલ સ્થાનથી શરૂ કરીને, આપેલ સ્ટ્રીંગમાં ચોક્કસ સ્ટ્રિંગ માટે શોધે છે. જો કોઈ મેળ મળે, તો આપેલ સ્ટ્રીંગમાં સ્થાન આપે છે જ્યાંથી મેચ શરૂ થઈ હતી.
- સિન્ટેક્સ
InStr([start) ],string1,string2,[compare])
- દલીલો
| દલીલ | જરૂરીયાત | વર્ણન
|
|---|---|---|
| [પ્રારંભ કરો] | વૈકલ્પિક | તે સ્થાન કે જ્યાંથી તે શોધવાનું શરૂ કરશે. ડિફૉલ્ટ 1 છે. |
| સ્ટ્રિંગ1 | જરૂરી | જે સ્ટ્રિંગમાં તે આપેલ સ્ટ્રિંગ માટે શોધે છે. |
| સ્ટ્રિંગ2 | જરૂરી | તે આપેલ સ્ટ્રિંગમાં જે સ્ટ્રિંગ શોધે છે. |
| [સરખાવો] | વૈકલ્પિક | {-1,0,1,2} ની વચ્ચેનું આંકડાકીય મૂલ્ય જે સરખામણીના પ્રકારનો ઉલ્લેખ કરે છે. આડિફોલ્ટ છે -1 (vbUseCompareOption). જો વિકલ્પ તુલના વિધાન ઉલ્લેખિત નથી, તો બાઈનરી સરખામણી કરો. |
નોંધ:
- જોકે [પ્રારંભ] દલીલ અને [સરખાવો] દલીલ વૈકલ્પિક છે, જો તમે [સરખાવો] દલીલનો ઉલ્લેખ કરો તો તમારે [પ્રારંભ] દલીલની જરૂર છે. નહિંતર, તે એક ભૂલ ઊભી કરશે.
- જો [પ્રારંભ] દલીલમાંથી એક અથવા બંને અને [સરખાવો] દલીલ નલ<2 છે>, તમને એક ભૂલનો સામનો કરવો પડશે.
- [તુલના કરો] દલીલમાં ચાર ઉલ્લેખિત મૂલ્યો ચાર અલગ અલગ પ્રકારની સરખામણી કરે છે. તેઓ નીચે દર્શાવેલ છે:
| વેલ્યુ | કોન્સટન્ટ | DESCRIPTION
|
|---|---|---|
| -1 | vbUseCompareOption | માં ઉલ્લેખિત સરખામણી કરે છે વિકલ્પ સરખામણી નિવેદન. |
| 0 | vbBinaryCompare | બાઈનરી સરખામણી કરે છે. |
| 1 | vbTextCompare | ટેક્સ્ટ સરખામણી કરે છે. |
| 2 | vbDatabaseCompare | તમારા ડેટાબેઝના આધારે સરખામણી કરે છે . |
- વિકલ્પ સરખામણી સ્ટેટમેન્ટ એ મુખ્ય VBA કોડ શરૂ થાય તે પહેલાં આપવામાં આવેલ નિવેદન છે. તે સ્પષ્ટ કરે છે કે કોડ જ્યારે જરૂર પડે ત્યારે બાઈનરી સરખામણી અથવા ટેક્સ્ટ સરખામણી માટે શોધ કરશે.
ટેક્સ્ટની સરખામણી કરવાનો વિકલ્પ
-
- સરળ શબ્દોમાં , બાઈનરી સરખામણી નો અર્થ કેસ-સંવેદી છેસરખામણી.
- સાદા શબ્દોમાં , ટેક્સ્ટ સરખામણી નો અર્થ થાય છે કેસ-અસંવેદનશીલ સરખામણી.
- વળતર મૂલ્ય
- સ્ટ્રિંગ1 માં તે સ્થાન પરત કરે છે જ્યાંથી સ્ટ્રિંગ2 શરૂ થયું હતું.
- જો સ્ટ્રિંગ2 ન મળે તો string1 ની અંદર start પોઝિશનથી શરૂ કરીને, 0 પરત કરે છે.
- જો string1 શૂન્ય-લંબાઈની હોય, તો 0 પરત કરે છે.
- જો સ્ટ્રિંગ2 શૂન્ય-લંબાઈની હોય, તો દલીલ પ્રારંભ કરો પરત કરે છે.
- અને અંતે, જો કોઈ પણ સ્ટ્રિંગ1 અથવા string2 Null છે, એક ભૂલ પરત કરે છે.
VBA InStr ફંક્શનનો ઉપયોગ કરવા માટે 3 સરળ ઉદાહરણો
માં આ વિભાગ, આપણે એક્સેલમાં VBA InStr ફંક્શનને લાગુ કરવાના ત્રણ સરળ ઉદાહરણો જોઈશું. ચાલો VBA કોડ્સમાં InStr ફંક્શનનું પ્રથમ ઉદાહરણ જોઈએ.
1. VBA InStr ફંક્શનનો ઉપયોગ કરીને સરનામું ઈમેલ એડ્રેસ છે કે નહીં તે નક્કી કરવું
અહીં, અમે ગ્રાહકોના કેટલાક સંપર્ક સરનામાં ધરાવતો ડેટા સેટ લીધો છે. અહીં અમારો ધ્યેય એ ઓળખવાનો રહેશે કે સરનામાંઓ ઇમેઇલ સરનામાં છે કે નહીં.
હવે અમે ઓળખવા માટે InStr ફંક્શનનો ઉપયોગ કરીને VBA કોડ વિકસાવીશું. તે ઇમેઇલ સરનામું છે કે નહીં. તે કરવા માટે, નીચેના પગલાંઓ અનુસરો.
પગલાઓ:
- શરૂઆતમાં, વિકાસકર્તા ટેબ પર જાઓ અને <પસંદ કરો 1>વિઝ્યુઅલ બેઝિક (અથવા VBA ખોલવા માટે Alt+F11) દબાવોવિન્ડો.
- પછી, VBA વિન્ડો પર, Insert > પર જાઓ. મોડ્યુલ .
- તે પછી, મોડ્યુલ પર, નીચેનો કોડ પેસ્ટ કરો:
3895
<27
- વધુમાં, અમે નિર્ણય નામનું ફંક્શન બનાવ્યું છે. તે નક્કી કરે છે કે સરનામું ઇમેઇલ સરનામું છે કે નહીં. ચાલો આપણી પાસેના ડેટા સેટ પર ફંક્શન લાગુ કરીએ.
- સેલ C5 પર, નીચેનું સૂત્ર લખો અને પછી ફિલ હેન્ડલ નો ઉપયોગ કરીને બાકીના કોષોને ઓટોફિલ કરો.
=DECISION(B5) 
- જેમ આપણે જોઈ શકીએ છીએ, અમે દરેક સરનામું ઓળખી કાઢ્યું છે કે શું તે ઇમેઇલ સરનામું છે. અથવા નહીં.
🎓 કોડ કેવી રીતે કાર્ય કરે છે?
- ફંક્શન DECISION(સ્ટ્રિંગ તરીકે string1)
પ્રથમ, આ એક સાથે DECISION નામનું ફંક્શન બનાવે છે. string1 નામની સ્ટ્રિંગ દલીલ.
- પૂર્ણાંક તરીકે મંદ સ્થિતિ
તે સ્થિતિ<નામનું પૂર્ણાંક ચલ જાહેર કરે છે 2>.
- પોઝિશન = InStr(1, string1, “@”, 0)
આ ની કિંમત અસાઇન કરે છે દલીલો 1, સ્ટ્રિંગ1, “@” અને 0 સાથે InStr ફંક્શનના આઉટપુટ તરીકે સ્થિતિ ચલ. ટૂંકમાં, આ સરનામાંમાં સ્થાન અસાઇન કરે છે જ્યાં “@” હોય છે.
- જો પોઝિશન = 0 હોય તો DECISION = “ઈમેલ નહીં”
તે DECISION ફંક્શનના આઉટપુટને “ઈમેલ નથી” તરીકે અસાઇન કરે છે, જો સ્થિતિ ચલ 0 છે, એટલે કે સરનામામાં કોઈ “@” નહોતું.
(જો આપેલ સ્ટ્રિંગમાં કોઈ સ્ટ્રિંગ ન મળે તો યાદ કરો, InStr ફંક્શન 0 પરત કરે છે).
- અન્ય નિર્ણય = "ઈમેલ"
આ સોંપે છે જો સરનામામાં “@” હોય તો “ઈમેલ” તરીકે નિર્ણય કાર્યનું આઉટપુટ. આમ જ્યાં “@” છે તે સરનામાને ઈમેલ તરીકે વર્ગીકૃત કરવામાં આવે છે, અને બાકીનાને “ઈમેલ નથી” તરીકે વર્ગીકૃત કરવામાં આવે છે.
સમાન રીડિંગ્સ
- Excel માં VBA UCASE ફંક્શનનો ઉપયોગ કેવી રીતે કરવો (4 ઉદાહરણો)
- Excel VBA માં MsgBox ફંક્શનનો ઉપયોગ કરો (એક સંપૂર્ણ માર્ગદર્શિકા)
- એક્સેલમાં VBA સ્પ્લિટ ફંક્શનનો ઉપયોગ કેવી રીતે કરવો (5 ઉદાહરણો)
- એક્સેલમાં VBA માં LCase ફંક્શનનો ઉપયોગ કરો (સાથે 4 ઉદાહરણો)
- એક્સેલ VBA માં ફિક્સ ફંક્શનનો ઉપયોગ કેવી રીતે કરવો (4 ઉદાહરણો)
2. VBA InStr ફંક્શનનો ઉપયોગ કેટલાક ઈમેલ એડ્રેસના એક્સ્ટેંશનને એક્સટ્રેક્ટ કરવા માટે
અહીં, અમારી પાસે કેટલાક ગ્રાહકોના ઈમેલ એડ્રેસની યાદી છે. આ વખતે અમે ઈમેલ એડ્રેસનું એક્સટેન્શન એક્સટ્રેક્ટ કરીશું જેમ કે તેમની પાસે gmail.com અથવા yahoo.com છે.
તે કરવા માટે, નીચેના પગલાંઓ અનુસરો.
પગલાઓ:
- શરૂઆત કરવા માટે, અગાઉની પદ્ધતિની જેમ, નવી VBA<2 ખોલો> મોડ્યુલ કરો અને નીચેના કોડને વિન્ડોમાં પેસ્ટ કરો.
7586
- આ ઉપરાંત, અમે એક ફંક્શન બનાવ્યું છે એક્સ્ટેંશન . તે કોઈપણ ઈમેલ એડ્રેસના એક્સટેન્શનને એક્સટ્રેક્ટ કરે છે.
- વધુમાં, ચાલો આ ફંક્શનને આપણી પાસેના ડેટા સેટ પર લાગુ કરીએ. પ્રથમ, સેલ C5 પર આ ફોર્મ્યુલા દાખલ કરો અને પછી ફિલ હેન્ડલ પર ડબલ-ક્લિક કરો.
=EXTENSION(B5) 
- છેલ્લે, આપણે જોઈ શકીએ છીએ કે અમે તમામ ઈમેલના એક્સટેન્શનને સફળતાપૂર્વક એક્સટ્રેક્ટ કરી લીધું છે.
🎓 કોડ કેવી રીતે કાર્ય કરે છે?
- ફંક્શન EXTENSION(Email as String)
આ EXTENSION નામનું એક નવું ફંક્શન બનાવે છે, જેમાં ઈમેલ નામની સ્ટ્રિંગ દલીલ.
- પૂર્ણાંક તરીકે મંદ સ્થિતિ
આ ભાગ પોઝિશન નામનું પૂર્ણાંક ચલ જાહેર કરે છે .
- પોઝિશન = InStr(1, ઈમેઈલ, “@”, 0)
આ <1 ની કિંમત અસાઇન કરે છે 1, ઈમેઈલ, “@” અને 0 સાથે InStr ફંક્શનના આઉટપુટ તરીકે>પોઝિશન ચલ. ટૂંકમાં, આ ઈમેલ માં સ્થાન અસાઇન કરે છે જ્યાં “@” છે.
- એક્સટેન્શન = જમણે(ઈમેલ, (લેન (ઈમેલ) – સ્થિતિ))
આ ભાગ “@” પ્રતીક પછીના અક્ષરો તરીકે EXTENSION ફંક્શનના આઉટપુટને સોંપે છે. આ ઈમેલ નું આવશ્યક વિસ્તરણ છે.
3. VBA InStr ફંક્શનનો ઉપયોગ કરીને નામમાંથી પ્રથમ અથવા છેલ્લું નામ કાઢવું
આખરે, અમે એક વિશિષ્ટ રીતે અલગ કાર્ય કરીશું. આ વખતે અમારી પાસે કેટલાક કર્મચારીઓના નામ છેએક કંપની. અને અમે કર્મચારીઓનું પ્રથમ નામ અથવા છેલ્લું નામ કાઢવા માટે ફંક્શન બનાવવાનો પ્રયાસ કરીશું.
તે કરવા માટે, નીચેના પગલાંઓ અનુસરો.
પગલાઓ:
- પ્રથમ, પદ્ધતિ 1 ની જેમ, VBA વિન્ડોમાં નવા મોડ્યુલમાં નીચેના કોડને પેસ્ટ કરો.
3397
- અહીં, અમે SHORTNAME નામનું ફંક્શન બનાવ્યું છે જે નામમાંથી પ્રથમ નામ અથવા છેલ્લું નામ કાઢે છે. ચાલો આ ફોર્મ્યુલાને આપણા ડેટા સેટમાં લાગુ કરીએ.
- પ્રથમ, પ્રથમ નામ કાઢવા માટે, નીચે આપેલ ફોર્મ્યુલા સેલ C5 માં લખો.
=SHORTNAME(B5,-1) 
- છેલ્લે, છેલ્લું નામ કાઢવા માટે, અમે નીચેનું સૂત્ર D5 માં લખીએ છીએ:
=SHORTNAME(B5,1) 
- પછી, જો આપણે બાકીના કોષોને ફિલ હેન્ડલર<2 વડે ઓટો-ફિલ કરીએ>, અમે અમારું ઇચ્છિત પરિણામ જોઈશું.
🎓 કોડ કેવી રીતે કાર્ય કરે છે?
- ફંક્શન SHORTNAME(Name as String, First_or_Last as Integer)
તે SHORTNAME<2 નામનું નવું ફંક્શન બનાવે છે નામ નામની એક સ્ટ્રિંગ દલીલ અને પ્રથમ_અથવા_છેલ્લી નામની એક પૂર્ણાંક દલીલ સાથે.
- પૂર્ણાંક તરીકે ડિમ બ્રેક
આ ભાગ બ્રેક નામનું નવું પૂર્ણાંક ચલ જાહેર કરે છે.
- Break = InStr(1, Name, ” “, 0) <10
તે દલીલો સાથે InStr ફંક્શનના આઉટપુટ તરીકે Break ચલની કિંમત અસાઇન કરે છે 1, નામ, “ ” અને 0 . ટૂંકમાં, આ નામ માં સ્થાન અસાઇન કરે છે જ્યાં સ્પેસ (“ ”).
- જો First_or_Last = -1 હોય તો SHORTNAME = Left(નામ, બ્રેક – 1)
આ લીટી SHORTNAME ફંક્શનના આઉટપુટને સ્પેસ પહેલાંના અક્ષરો તરીકે સોંપે છે, જો First_or_Last દલીલ -1 છે. આ પહેલું નામ છે.
- SHORTNAME = રાઇટ(નામ, લેન(નામ) – બ્રેક)
આ ભાગ આઉટપુટ સોંપે છે SHORTNAME એ સ્પેસ પછીના અક્ષરો તરીકે કાર્ય કરે છે, જો First_or_Last દલીલ 1 છે. આ છેલ્લું નામ છે.
નિષ્કર્ષ
આ રીતે, તમે InStr ફંક્શન સાથે VBA કોડ્સ લખી શકો છો જે આપેલ બીજામાં ચોક્કસ સ્ટ્રિંગની સ્થિતિ શોધે છે. શબ્દમાળા, અને પછી તમે વિવિધ ઉપયોગો માટે તમારા પોતાના કાર્યો બનાવી શકો છો. વધુમાં, જો તમને કોઈ પ્રશ્નો હોય, તો અમને પૂછો.
