Tabloya naverokê
Di vê gotarê de, ez ê nîşanî we bidim ka hûn çawa dikarin di VBA de xêzek li rêzek veqetînin. Split yek ji wan fonksiyonên herî girîng û berfireh e ku em di VBA de bikar tînin. Hûn ê fêr bibin ku rêzek di VBA de bi her cûre awayên gengaz veqetînin.
Fonksiyona Parçebûnê ya VBA (Nêrîna Zû)
=Split(Expression As String, [Delimiter], [Limit As Long=1], [CompareAsVbCompareMethod=vbBinaryCompare])
Pirtûka Xebatê ya Praktîkê dakêşin
Rêlekê li Arrayekê veqetînin.xlsm
3 Awayên Parvekirina Rêzikê Di VBAyê de Di Arrayekê de
Werin em di destê me de rêzek hebin “Me serî li vîzaya DY, Kanada, Avusturalya û Fransa da. ." .
Ez ê nîşanî we bidim ka hûn çawa dikarin vê rêzê bi her cûre awayên mimkun bi karanîna fonksiyona Parçekirinê ya VBA ve bikin rêzek. .
1. Ji bo veqetandina xêzekê di nav rêzekê de di VBA-yê de Her Veqetandek bikar bînin
Hûn dikarin her xêzek wekî veqetandek bikar bînin da ku di VBA de xêzek li rêzek dabeş bikin.
Dibe ku valahiyek (" ") , koma (",") , nîvgirek (":") , yek tîp, a rêzika tîpan, an jî tiştekî din.
⧭ Mînak 1:
Werin em rêzê bi biryara wekî nîşana ji hev veqetînin. veqetanker.
Rêza kodê dê bibe:
Arr = Split(Text, ",")
Têmahiya Koda VBA dê bibe:
⧭ Koda VBA:
9714
⧭ Derketin:
Ew ê rêzê di nav rêzek ku ji pêk tê veqetîne, "Me serî li vîzaya DY kir", "Kanada", "Australya", "Fransa”}.
⧭ Mînak 2:
Her weha hûn dikarin valahiyek (“ ”) wekî veqetandek bikar bînin.
Rêza kodê dê bibe:
Arr = Split(Text, " ")
Bi tevahî Koda VBA dê bibe:
⧭ Koda VBA:
8309
⧭ Derketin:
Ew ê rêzika ku ji {"Em", "sepandî", "ji bo" pêk tê veqetîne. "ew", "vîza", "ya", "DYA", "Kanada", "Australya", "Fransa"}.
⧭ Tiştên Bîne Bîranîn:
- Veqetandeka xwerû valahî ye (“ ”) .
- Ango, heke hûn veqetandek nexin, ew ê vala wekî veqetandek bikar bîne.
Bixwîne: Di Excel de Rêzê bi Karakterê veqetînin (6 Awayên Minasib)
Xwendinên Bi vî rengî:
- Nivîs li çendan parçe bikin hucreyên di Excel de
- VBA ku Nirxên Yekta ji Stûnê bigire nav Array di Excel de (3 Krîteran)
- Excel VBA: Meriv çawa bi Gelek Parzûn dike Pîvanên di Array (7 Way)
2. Li gora xwesteka xwe xêzek bi çend hêmanan veqetîne nav rêzekê
Hûn dikarin li gorî daxwaza xwe xêzekê bikin rêzek.
Hejmara hêmanan wekî argumana 3yemîn ya Fonksiyonek Parçebûnê .
⧭ Mînak:
Werin em ji hev veqetînin di nav 3 hêmanên yekem de bi vala wekî veqetandek rêz bike.
Rêza kodê dêbe:
Arr = Split(Text, " ", 3)
Û koda VBA dê bibe:
⧭ Koda VBA:
7481
⧭ Derketin:
Ew ê xêzekê bike yek array ku ji 3 hêmanên ewil pêk tê ku ji hêla veqetandarê mekan ve hatine veqetandin.
⧭ Tiştên Bîrnebûnê:
- Argumana xwerû -1 e.
- Ev tê wê maneyê, ger hûn argumanê nenivîsin, ew ê ji hev veqete. string nav herî zêde hejmara caran gengaz.
Zêdetir Bixwîne: Meriv çawa String li gorî Dirêjiyê di Excel de Parçe dike (8 Away)
3. Ji bo veqetandina xêzek di VBA-yê de hem veqetandekên hesas û hem jî nehessas bikar bînin
Fonksiyona Split pêşkêşî we dike ku hûn hem hesas bi dozê û hem jî bikar bînin. qedirbilind veqetandek.
Ji bo veqetandeka nehessasiya mezin , argumana 4emîn wekî 1 têxe.
Û ji bo veqetandek nehessas-case , argumana 4emîn wekî 0 têxe.
⧭ Nimûne 1: Veqetandekên nehesiyar
Di rêza diyarkirî de, em nivîsa “FOR” wekî veqetandek û 2 wekî veqetandek bihesibînin. jimareya giştî ya hêmanên rêzê.
Niha, ji bo rewşek nehesas-doze , rêza kodê dê bibe:
Arr = Split(Text, "FOR ", 3,1)
Û tam koda VBA dê bibe:
⧭ Koda VBA:
5685
⧭ Derketin:
Ji ber ku veqetandek nehessasîyeta meseleyê ye li vir, "FOR ” dê wekî "ji bo" bixebite û ew ê rêzika du hêmanan veqetîne.
⧭ Mînak 2: Veqetandeka hesas a meseleyê
Dîsa, ji bo halekî hesas bi meseleyê , rêza kodê dê bibe:
Arr = Split(Text, "FOR ", 3,0)
Û tam koda VBA dê bibe:
⧭ Koda VBA:
4470
⧭ Derketin:
Ji ber ku veqetandek li vir hesas e , “ JI BO” wê ne wekî “ji bo” be û ew ê rêzika du hêmanan parçe neke.
Zêdetir Bixwîne: Excel VBA: Dûberan ji Arrayekê derxîne (2 Nimûne)
⧭ Tiştên Bîranîn:
- Nirxa xwerû ya argumana 0 e.
- Ango heke hûn nirxa argumana 4emîn nexin, ew ê ji bo berhevdana hessas-doze bixebite.
Encam
Ji ber vê yekê, bi karanîna van rêbazan, hûn dikarin Fonksiyonek veqetandin ya VBA ji bo veqetandina xêzekê di nav rêzek hêmanan de. Pirsên te hene? Xwe ji me bipirsin.