Jedwali la yaliyomo
Katika makala haya, nitakuonyesha jinsi unavyoweza kugawanya kamba katika safu katika VBA . Split ni mojawapo ya vitendaji muhimu na vinavyotumika sana ambavyo tunatumia katika VBA . Utajifunza kugawanya mfuatano katika VBA kwa aina zote za njia iwezekanavyo.
Kazi ya Kugawanya VBA (Mwonekano wa Haraka)
=Split(Expression As String, [Delimiter], [Limit As Long=1], [CompareAsVbCompareMethod=vbBinaryCompare])
Pakua Kitabu cha Mazoezi
Gawa Kamba katika Mkusanyiko.xlsm
Njia 3 za Kugawanya Mfuatano katika Mkusanyiko katika VBA
Tuwe na kamba mkononi mwetu “Tulituma maombi ya visa ya U.S, Kanada, Australia na Ufaransa .” .
Nitakuonyesha jinsi unavyoweza kugawanya mfuatano huu katika safu katika aina zote za njia uwezavyo kwa kutumia Kitendakazi cha Kugawanya ya VBA .
1. Tumia Delimiter Yoyote Kugawanya Mfuatano katika Mkusanyiko katika VBA
Unaweza kutumia mfuatano wowote kama kikomo ili kugawanya kamba katika safu katika VBA .
Inaweza kuwa nafasi (“ “) , koma (“,”) , semicolon (“:”) , herufi moja, a mfuatano wa herufi, au kitu chochote.
⧭ Mfano 1:
Hebu tugawanye mfuatano kwa kutumia koma kama delimiter.
Mstari wa msimbo utakuwa:
Arr = Split(Text, ",")
Msimbo wa VBA kamili utakuwa:
⧭ Msimbo wa VBA:
6621
⧭ Toleo:
Itagawanya mfuatano katika safu inayojumuisha {“Tulituma maombi ya visa ya U.S”, “Kanada”, “Australia”, “Ufaransa”}.
⧭ Mfano 2:
Unaweza pia kutumia nafasi (“ ”) kama kikomo.
Mstari wa msimbo utakuwa:
Arr = Split(Text, " ")
0>Msimbo kamili wa VBAutakuwa:⧭ Msimbo wa VBA:
1440
⧭ Toleo:
Itagawanya mfuatano katika safu inayojumuisha {“Sisi”, “tumetumika”, “kwa ajili ya”, “the”, “visa”, “ya”, “U.S,”, “Canada,”, “Australia,”, “France,”}.
⧭ Mambo ya Kukumbuka:
- Kitenganishi chaguomsingi ni nafasi (“ ”) .
- Yaani, usipoweka kikomo chochote, itatumia nafasi kama kikomo.
Soma Zaidi: Gawanya Mfuatano kwa Herufi katika Excel (Njia 6 zinazofaa)
Masomo Sawa:
- Gawanya maandishi kuwa nyingi seli katika Excel
- VBA ili Kupata Thamani za Kipekee kutoka Safu wima hadi Mkusanyiko katika Excel (Vigezo 3)
- Excel VBA: Jinsi ya Kuchuja kwa Nyingi Vigezo katika Mpangilio (Njia 7)
2. Gawa Mfuatano katika Mkusanyiko wenye Idadi Yoyote ya Vipengee
Unaweza kugawanya mfuatano katika safu na idadi yoyote ya vipengee kulingana na matakwa yako.
Ingiza idadi ya vipengee kama unavyotaka. hoja ya 3 ya kitendakazi cha Kugawanya .
⧭ Mfano:
Hebu tugawanye weka kamba kwenye vipengee 3 vya kwanza vilivyo na nafasi kama kitenganishi.
Mstari wa msimbo utakuwakuwa:
Arr = Split(Text, " ", 3)
Na Msimbo wa VBA utakuwa:
⧭ Msimbo wa VBA:
7746
⧭ Pato:
Itagawanya kamba kuwa safu inayojumuisha vipengee 3 vya kwanza vilivyotenganishwa na kitenganishi nafasi .
⧭ Mambo ya Kukumbuka:
- Hoja chaguo-msingi ni -1 .
- Hiyo inamaanisha, usipoingiza hoja, itagawanyika. mfuatano ndani ya idadi ya juu zaidi ya nyakati zinazowezekana.
Soma Zaidi: Jinsi ya Kugawanya Kamba kwa Urefu katika Excel (Njia 8)
3. Tumia Kitatuzi Kinachoguswa na Nyeti na Isiyogusika Kugawanya Mfuatano Mkusanyiko katika VBA
Kitendakazi cha Kugawanya hukupa kutumia nyeti kwa kesi na haijalishi kitenganishi.
Kwa kipingamizi kisichojali kesi , weka hoja ya nne kama 1. 3>
Na kwa kipingamizi kisichojali kesi , weka hoja ya 4 kama 0 .
⧭ Mfano wa 1: Kilinganishi kisichojali Kesi
Katika mfuatano uliotolewa, hebu tuzingatie maandishi “KWA” kama kikomo na 2 kama jumla ya idadi ya vipengee vya safu.
Sasa, kwa kesi isiyojali , mstari wa msimbo utakuwa:
Arr = Split(Text, "FOR ", 3,1)
Na nambari kamili ya VBA itakuwa:
⧭ Msimbo wa VBA:
1613
⧭ Pato:
Kama kitenganishi hakijalishi kesi hapa, “KWA ” itafanya kazi kama “kwa” na itagawanya kamba katika safu ya vitu viwili.
⧭ Mfano wa 2: Kitatuzi Kinachojali Kesi
Tena, kwa kesi nyeti , mstari wa msimbo utakuwa:
Arr = Split(Text, "FOR ", 3,0)
Na nambari kamili ya VBA itakuwa:
⧭ Msimbo wa VBA:
3336
⧭ Pato:
Kama kitenganishi ni nyeti kwa kesi hapa, “ KWA” haitakuwa kama “kwa” na haitagawanya kamba katika safu ya vitu viwili.
Soma Zaidi: Excel VBA: Ondoa Nakala kutoka kwa Mkusanyiko (Mifano 2)
⧭ Mambo ya Kukumbuka:
- Thamani chaguo-msingi ya hoja ni 0 .
- Yaani, usipoweka thamani ya hoja ya 4 , itafanya kazi kwa mechi nyeti kwa kesi .
Hitimisho
Kwa hivyo, kwa kutumia mbinu hizi, unaweza kutumia Gawanya chaguo za kukokotoa kati ya VBA ili kugawanya mfuatano katika safu ya vipengee. Je, una maswali yoyote? Jisikie huru kutuuliza.