VBA dalītā funkcija (piemēri) Kā sadalīt virknes programmā Excel VBA?

Satura rādītājs

Kas ir VBA sadalīšanas funkcija programmā Excel?

Kas ir VBA sadalīšanas funkcija programmā Excel?

Sadalīšanas funkcija VBA ir ļoti noderīga virkņu funkcija, ko izmanto virkņu sadalīšanai vairākos apakšvirsrakstos, pamatojoties uz funkcijai paredzēto atdalītāju un salīdzināšanas metodi, ir arī citas virknes funkcijas, kas virkni pārveido par apakšvirsmu, bet sadalīšanas funkcija var sadalīt virkni virkne vairākās apakšpozīcijās.

Parastajā darblapā LEFT funkcija MID funkcijas un RIGHT programmā Excel tiek izmantotas kā teksta funkcijas programmā Excel, lai izvilktu teikuma daļu. Piemēram, vārda, vidējā vārda un uzvārda ieguve ir biežāk redzamie scenāriji. Bet VBA mums ir daudzpusīgāka funkcija ar nosaukumu SPLIT, kas darīs līdzīgu darbu jūsu vietā. SPLIT ir iebūvēta funkcija Excel VBA, kas var sadalīt piegādāto teikumu, pamatojoties uz atdalītāju. Piemēram, ja vēlaties sadalīt e-pasta adresi uz dažādām daļām, kopējais e-pasta adreses elements ir “@” visos e-pasta ID, tāpēc “@” šeit kļūst par norobežotāju.

VBA sadalītās virknes funkcija

Tāpat kā visām pārējām funkcijām, arī sadalījumam ir sava sintakse. Zemāk ir Excel VBA Split virknes funkcijas parametri.

Vērtība vai izteiksme: tas nekas cits kā faktiskā vērtība, kuru mēs mēģinām sadalīt. Piemēram, ja vēlaties sadalīt vārdu un uzvārdu, šeit vērtība ir pilns vārds.
(Norobežotājs): Kāds ir kopīgais elements, lai sadalītu vērtību vai izteiksmi? E-pastā Id kopīgais elements ir “@”, adreses komats (,) ir kopīgais elements. Ja jūs to ignorējat, atstarpes raksturs tiek uzskatīts par noklusējuma vērtību.
(Limit): cik daudz apakšvirsrakstu vēlaties no jūsu norādītās vērtības vai izteiksmes. Piemēram, ja vērtība ir “Mans vārds ir Excel”, ja kā ierobežojumu norādāt 3, rezultāts tiks parādīts trīs rindās, piemēram, “Mans”, “Nosaukums”, “Ir Excel”.
(Salīdzināt): Tā kā mēs neizmantojam salīdzināšanas argumentu, izlaidiet šo izvēles argumentu.

Raksta nākamajās sadaļās mēs redzēsim, kā praktiski izmantot funkciju SPLIT programmā Excel VBA.

VBA sadalītās virknes funkcijas piemēri

Tālāk ir sniegti praktiski piemēri par sadalīšanas funkciju programmā Excel VBA.

1. piemērs - sadaliet teikumu

Sadalījums atgriež masīva rezultātu, kas sāksies no 0. Visi masīvi sākas ar 0, nevis no 1.

Pieņemsim, ka šūnā A1 ir vārds “Mans vārds ir Excel VBA”.

Tagad jūs vēlaties sadalīt šo teikumu tādos gabalos kā “Mans”, “Vārds”, “is”, “Excel”, “VBA”. Izmantojot Excel VBA SPLIT virknes funkciju, mēs varam atgriezt šo rezultātu.

1. darbība: sāciet makro ar nosaukumu.

Kods:

Apakšsadalījums_piemērs1 () Beigas 2. apakšsolis : paziņojiet trīs mainīgos.

Kods:

Sub Split_Example1 () Dim MyText kā virkne Dim i kā vesels skaitlis Dim MyResult () kā virknes beigu apakšsadaļa

3. solis: Tagad definētajam mainīgajam mans teksts piešķir vārdu “Mans vārds ir Excel VBA” .

Kods:

Sub Split_Example1 () Dim MyText kā virkne Dim i kā vesels skaitlis Dim MyResult () As String MyText = "Mans vārds ir Excel VBA" Beigas Sub

4. solis: Tagad mainīgajam My Result izmantojiet VBA split string funkciju.

Kods:

Sub Split_Example1 () Dim MyText kā virkne Dim i kā vesels skaitlis Dim MyResult () As String MyText = "Mans vārds ir Excel VBA" MyResult = Split (End Sub

5. darbība: izteiksme ir mūsu teksta vērtība. Tā kā mēs jau esam piešķīruši sava teksta vērtību mainīgajam My Text, ievadiet šo argumentu šeit.

Kods:

Sub Split_Example1 () Dim MyText kā virkne Dim i kā vesels skaitlis Dim MyResult () As String MyText = "Mans vārds ir Excel VBA" MyResult = Split (MyText) Beigas Sub

Piezīme: tāpat kā tagad, ignorējiet visus pārējos parametrus.

6. solis: Tātad mans rezultāts tur šo dalīto rezultātu. Kā es teicu iepriekš ziņojumā, sadalīšanas funkcija rezultātu saglabā kā masīvu, tāpēc šeit

Mans rezultāts (0) = “Mans”
Mans rezultāts (1) = “Vārds”
Mans rezultāts (2) = “ir”
Mans rezultāts (3) = “Excel”
Mans rezultāts (4) = “VBA”

Lai gan šis kods nedara nekādu iespaidu, lai sāktu funkciju SPLIT, mēs varam izmantot šo kodu.

2. piemērs - VBA SPLIT virkne ar funkciju UBOUND

Lai saglabātu funkcijas SPLIT rezultātu, mēs varam izmantot funkciju vba UBOUND kopā ar funkciju SPLIT.

UBOUND atgriež masīva maksimālo garumu. Iepriekš minētajā piemērā masīva maksimālais garums bija 5.

Paņemiet to pašu vārdu “Mans vārds ir Excel VBA”. Sadalīsim šo vārdu un glabāsim no šūnas A1.

Step 1: Let’s continue from where we left off in the previous example.

Step 2: Now apply FOR NEXT LOOP in VBA from 0 to maximum length of the array i.e. UBOUND.

The reason we started from zero because SPLIT will store the result from zero, not from 1.

Step 3: Now apply VBA CELLS property and store the result.

Code:

Cells(i + 1, 1).Value = MyResult(i)

Step 4: Run this code, we would have split values.

Complete Code:

Sub Split_Example1() Dim MyText As String Dim i As Integer Dim MyResult() As String MyText = "My Name is Excel VBA" MyResult = Split(MyText) For i = 0 To UBound(MyResult) Cells(i + 1, 1).Value = MyResult(i) Next i End Sub

Return Word Count

We can also show the total number of words in the supplied value. Use the below code to show the total number of word counts. Code:

Sub Split_Example2() Dim MyText As String Dim i As Integer Dim MyResult() As String MyText = "My Name is Excel VBA" MyResult = Split(MyText) i = UBound(MyResult()) + 1 MsgBox "Total Words Count is " & i End Sub

Copy and paste the above VBA code and run it, the message box will return the result.

Things to Remember

If the delimiter is not supplied SPLIT automatically thinks the delimiter as space.
If you want to split except space then you need to specify the delimiter in double-quotes.
SPLIT stores the result as array results.
UBOUND function returns the maximum length of the array.