Shaxda tusmada
Inta aan la shaqaynayno koodhadhka VBA-da ee Excel, waxa aanu la kulannaa dhawr hawlood oo la dhisay oo hawl adag u beddelaya kood hal-line ah oo yar. InStr waa shaqada noocan oo kale ah oo laga heli karo Excel VBA oo ka raadinaysa xadhig gaar ah oo ku dhex jira xadhig kale oo la bixiyay oo ka bilaabmaya boos la siiyay. Maanta waxaan tusi doonaa sida aad u isticmaali karto InStr shaqada VBA si aad u raadiso xadhig gaar ah oo ku dhex jira xadhig kale 6>>
InStr Function.xlsm >
> Hordhac VBA InStr Function >
>- Soo koobid > >
Waxay raadisaa xadhig gaar ah oo ku dhex jira xadhig la bixiyay, oo ka bilaabmaya boos la siiyay. Haddii la helo ciyaar, ku soo celi booska xadhkaha la siiyay halka ay ciyaartu ka bilaabantay ],string1,string2,[ barbar dhig])
- >
- Doodaha
| DOOD | SHURUUD > | SHAraxa > | ||||
|---|---|---|---|---|---|---|
| [bilow] | ||||||
| string1 | loo baahan yahay | Xadhiga ay ku dhex raadinayso xadhig la bixiyay | string2 | Waxa loo baahan yahay | Xadhiga ay ka dhex raadiso xadhig la bixiyay Ikhtiyaar ah | Qiimaha nambarada ee u dhexeeya {-1,0,1,2} kaas oo qeexaya nooca isbarbardhigga. Thedefault waa -1 (vbUseCompareOption). Haddii bayaanka Isbarbardhigga ikhtiyaariga ah aan la cayimin, samee Isbarbardhigga Binary. |
Xusuusnow:
>- In kastoo [bilaw] dooda iyo [isbarbardhig] dooddu waa ikhtiyaari, waxaad u baahan tahay [bilaaban] dooda haddii aad caddeyso [barbardhig] doodda. Haddii kale, waxay kicinaysaa qalad.
- Haddii midkood ama labadaba [bilow] dooda iyo [ barbar dhig] waa Null >, waxaad la kulmi doontaa qalad.
- Afarta qiyam ee la cayimay ee ku jira [barbardhig] waxay fulisaa afar nooc oo isbarbardhigga. Waxay hoos ku xusan yihiin:
| Qiimaha | joogto >> | 1> SHARAXA > ikhtiyaarka Isbarbardhiga qoraalka. |
|---|---|---|
| 0 | vbBinaryCompare | Wuxuu sameeyaa isbarbardhigga Binary. |
| 1 | vbTextCompare | Wuxuu sameeyaa isbarbardhig qoraal ah |
- >
- Isbarbardhig Xulashada waa bayaan la bixiyey ka hor inta uusan billaaban koodka VBA-da ee ugu weyn. Waxay qeexaysaa in koodka uu raadin doono Isbarbardhigga Binary ama Isbarbardhigga Qoraalka marka loo baahdo Erayada fudud , Isbarbardhigga Binary macnaheedu waa kiis xasaasi ahisbarbardhigga.
- Erayada fudud , Isbarbardhigga qoraalka waxaa loola jeedaa isbarbardhigga kiiska. 2>
- >
- Waxay soo celisaa booska string1 oo string2 ka bilaabmay.
- Haddii string2 la waayo. gudaha string1 laga bilaabo bilawga , soo noqda 0.
- Haddii string1 yahay eber-dherer, soo noqda 0.
- Haddii string2 uu yahay dhererka eber, wuxuu soo celiyaa dooda bilaaban .
- Ugu dambayntii, haddii mid ka mid ah string1 ama string2 waa Null , soo celiyaa khalad.
>
In Qaybtan, waxaan arki doonaa saddex tusaale oo fudud oo ku saabsan adeegsiga VBA InStr ee Excel. Aynu aragno tusaalaha ugu horreeya ee InStr ee ku jira koodka VBA.
> 1>1. Go'aaminta haddii ciwaanka uu yahay ciwaanka iimaylka iyo in kale > adigoo isticmaalaya VBA InStr Function > Hadafkayagu halkan waxa uu noqon doonaa in aanu aqoonsano in ciwaanadu yihiin ciwaanno iimayl iyo in kale.
Hadda waxaanu samayn doonaa koodka VBA-da anagoo adeegsanayna InStr function si loo aqoonsado haday tahay ciwaanka emailka iyo hadii kale. Si aad taas u samayso, raac tillaabooyinka hoose
>Tallaabooyinka: >
> 
- >
- Markaas, daaqada VBA , aad Insert > Module .
>>>>>>>> > 6447
<27
- >
- Waxaa intaa dheer, waxaan abuurnay shaqo la yiraahdo GO'AANKA . Waxay go'aaminaysaa in ciwaanku yahay ciwaanka iimaylka iyo in kale. Aynu shaqada ku dabaqno xogta aynu hayno >C5 unugga C5 , qor qaacidada soo socota ka dibna si otomaatig ah u buuxi unugyada intiisa kale adigoo isticmaalaya Buuxi Handle .
=DECISION(B5) 
>
- Sida aan aragno, waxaan aqoonsannay ciwaan kasta haddii uu yahay ciwaanka emailka. ama maya. 11>
- > GO'AANKA shaqada (string1 As String)
- > Mawqifka Dim Sida Isku-dhafka
- Position = InStr(1, string1, "@", 0)
- Haddii booska = 0 kadibna GO'AAN = "Email ma aha"
- > GO'AAN KALE = "Email" >
> > >
>🎓 Sidee buu Xeerku u shaqeeyaa?
- >
Marka hore, tani waxay abuurtaa hawl la yiraahdo GO'AANKA string string oo magaceedu yahay string1 .
- >>
Waxay caddaynaysaa doorsoomayaal isku-dhafan oo lagu magacaabo Position .
Tani waxay ku meelaynaysaa qiimaha Booska doorsoome sida wax soo saarka InStr oo la shaqeeya doodaha 1, string1, “@” iyo 0 . Marka la soo koobo, tani waxay ku meelaynaysaa booska ciwaanka halkaas oo uu jiro “@” .
Waxay u qoondaysaa wax-soo-saarka GO’AANKA u shaqeeyo sida “Ma Email” , haddii Position doorsoome waa 0 , taas macnaheedu waa, majirin “@” ciwaanka.
1>InStr shaqadu waxay soo noqotaa 0 ). >>Akhrisyo la mid ah >
- >>
- > Sida loo Isticmaalo Shaqada VBA UCASE ee Excel (4 Tusaalayaal) >
- Isticmaal Function MsgBox gudaha Excel VBA (A Guideline Complete) > >
- > Sida loo isticmaalo shaqada VBA SPLIT gudaha Excel 4 Tusaalayaal) >
- > Sida Loo Isticmaalo Fix Function gudaha Excel VBA (4 Tusaalayaal) >
>
Si taas loo sameeyo, raac tillaabooyinka hoose
> Tallaabooyinka:- >Si aad u bilowdo, sida habkii hore, fur VBA<2 cusub> module oo ku dheji koodka soo socda daaqadda.
5793
- Intaa waxaa dheer, waxaan abuurnay hawl la yiraahdo KORDHINTA . Waxay soo saartaa kordhinta ciwaan kasta oo iimayl ah.
- Intaa waxaa dheer, aan ku dabaqno shaqadan xogta aan hayno. Marka hore, geli qaaciidadan unugga C5 kadib laba-guji Qalabka Buuxi .
=EXTENSION(B5) 3> 
>
- Ugu dambayntii, waxaan arki karnaa inaan si guul leh u soo saarnay Fidinta dhammaan iimayllada. 1> 🎓 Sidee buu Xeerku u shaqeeyaa?
- Furction EXTENSION (Email As String)
- > Mawqifka Dim Sida Isku-dhafka
- Position = InStr(1, Email, "@", 0)
- EXTENSION = Xaq(Email, (Len) (Email) – Booska)) > >
- Marka hore, oo la mid ah habka 1 , ku dheji koodka hoose module cusub ee daaqada VBA. > 11>
- >
Tani waxay abuurtaa hawl cusub oo loo yaqaan EXTENSION , oo leh string dood la magac baxay Email .
>- >
Tani waxa ay tilmaamaysaa qiimaha Booska doorsoome sida wax soo saarka InStr oo la shaqeeya doodaha 1, Email, "@" iyo 0 . Marka la soo koobo, tani waxay ku meelaynaysaa booska Emailka halkaas oo uu jiro “@” .
3. Ka Soo Saarida Magaca Hore ama Dambe Magaca >Adoo Isticmaala VBA InStr Function
Ugu dambayntii, waxaanu qaban doonaa hawl gaar ah oo ka duwan. Markan waxaan haynaa magacyada qaar ka mid ah shaqaalahashirkad. Waxaan isku dayi doonaa inaan dhisno shaqo si aan u soo saarno magaca koowaad ama magaca dambe ee shaqaalaha >
> 3> Si taas loo sameeyo, raac tallaabooyinka hoose. 0> Tallaabooyinka: 8020
- Halkan, waxaanu ku abuurnay hawl la yidhaahdo MAGACA GAABAN oo ka soo saarta magaca hore ama magaca dambe. Aynu ku dabaqno qaacidada xogtayada
- Marka hore, si aad magaca hore u soo saartid, ku qor caanaha hoose ee unugga C5 .
=SHORTNAME(B5,-1) > 
>
- >Ugu dambayn, si aan u soo saarno magacyadii dambe, waxaan ku qornaa qaacidada soo socota D5 : 11> >
- Dabadeed, haddaynu si toos ah ugu buuxinno unugyada intiisa kale Buuxi Gacan-hayaha >, waxaan arki doonaa natiijada aan rabno.
=SHORTNAME(B5,1) 
>
> 
🎓 Sidee buu Xeerku u shaqeeyaa?
>- >
- Function SHORTNAME(Magaca As String, First_ama_Dambe Sida Integer)
Waxay abuurtaa hawl cusub oo loo yaqaan SHORTNAME oo leh hal dood Xareed oo magaceedu yahay Magac iyo hal dood dhex-dhexaad ah oo magaceedu yahay Kow_ama_ugu dambeeya .
- >
- > Dim Break As Integer >
Qaybtani waxay ku dhawaaqeysaa isbeddel cusub oo isku dhafan oo la yiraahdo Fasax
Waxay u qoondaysaa qiimaha Break doorsoome sida wax soo saarka InStr oo la shaqeeya doodaha. 1, Magaca, “” iyo 0 . Marka la soo koobo, tani waxay ku meelaynaysaa booska Magaca halkaas oo uu jiro meel (“"). >
- >
- Haddii Koowaad_ama_Ugu dambayn = -1 Kadib MAGAC GAABAN = Bidix (Magac, nasasho - 1) >
- MAGACA GAABAN = Xaq (Magaca, Len (Magaca) - Jebinta MAGACA GAABAN waxa uu u shaqeeyaa sidii jilayaasha ka dambeeya space , haddii Kowaad_ama_Dambe dooddu tahay 1. Kani waa magaca dambe.
> Gabagabo
> Sidan, waxaad ku qori kartaa koodka VBA-ga InStr xadhig, ka dibna waxaad abuuri kartaa hawlahaaga isticmaalka kala duwan. Intaa waxaa dheer, haddii aad wax su'aalo ah qabtid, xor u noqo inaad na waydiiso.
