VBA podijeljena funkcija (primjeri) - Kako podijeliti žice u programu Excel VBA?

Sadržaj

Što je funkcija VBA Split u programu Excel?

Što je funkcija VBA Split u programu Excel?

Funkcija razdvajanja u VBA vrlo je korisna funkcija niza koja se koristi za razdvajanje nizova u više podnizova na temelju graničnika koji je dat funkciji i metode usporedbe. Postoje i druge funkcije niza koje pretvaraju niz u podniz, ali funkcija razdvajanja može podijeliti niz niz u više od jednog niza.

U uobičajenom radnom listu funkcije LIJEVO, MID funkcije i DESNO u Excelu koriste se kao tekstualne funkcije u Excelu za izdvajanje dijela rečenice. Na primjer, izdvajanje imena, srednjeg imena i prezimena uobičajeni su scenariji koje smo vidjeli. Ali u VBA imamo svestraniju funkciju pod nazivom SPLIT koja će za vas napraviti sličan posao. SPLIT je ugrađena funkcija u programu Excel VBA koja može podijeliti isporučenu rečenicu na temelju graničnika. Na primjer, ako želite podijeliti adresu e-pošte na različite dijelove, uobičajeni element u adresi e-pošte je "@" u svim ID-ovima e-pošte, tako da "@" ovdje postaje razgraničenje.

VBA split funkcija gudača

Kao i sve ostale funkcije, i split ima svoju sintaksu. Ispod su parametri funkcije excel VBA Split string.

Vrijednost ili izraz: To nije ništa drugo do stvarna vrijednost koju pokušavamo podijeliti. Na primjer, ako želite podijeliti ime i prezime, ovdje je vrijednost puno ime.
(Razgraničenje): Koji je uobičajeni element za razdvajanje vrijednosti ili izraza? U e-pošti je zajednički element "@", a u adresi zarez (,) zajednički je element. Ako to zanemarite, razmak će uzeti u obzir kao zadanu vrijednost.
(Ograničenje): Koliko podnizova želite iz vrijednosti ili izraza koje ste naveli. Na primjer, ako je vrijednost "My name is Excel", ako navedete 3 kao ograničenje, rezultat će se prikazati u tri retka poput "My", "name", "is Excel".
(Usporedba): Budući da ne koristimo argument usporedbe, preskočite ovaj neobavezni argument.

U sljedećim odjeljcima članka vidjet ćemo kako se praktično koristi funkcija SPLIT u excelu VBA.

Primjeri VBA Split string funkcije

Ispod su praktični primjeri funkcije razdvajanja u programu Excel VBA.

Primjer # 1 - Podijelite rečenicu

Split vraća rezultat u nizu koji će početi od 0. Svi se nizovi počinju od 0, a ne od 1.

Pretpostavimo da imate riječ "Zovem se Excel VBA" u ćeliji A1.

Sada ovu rečenicu želite podijeliti na dijelove poput "Moje", "Ime", "je", "Excel", "VBA". Korištenjem funkcije Excel VBA SPLIT String možemo vratiti ovaj rezultat.

Korak 1: Pokrenite makronaredbu s imenom.

Kodirati:

Sub Split_Example1 () Kraj podkoraka 2: Navedite tri varijable.

Kodirati:

Sub Split_Example1 () Zatamni MyText kao niz Dim Dim As As Integer Dim MyResult () Kao String End Sub

Korak 3: Sada za definiranu varijablu, My Text dodjeljuje riječ "My Name is Excel VBA" .

Kodirati:

Sub Split_Example1 () Zatamni MyText kao niz Dim Dim As As Integer Dim MyResult () As String MyText = "My Name is Excel VBA" End Sub

Korak 4: Sada za varijablu Moj rezultat primijenite funkciju VBA podijeljenog niza.

Kodirati:

Sub Split_Example1 () Zatamni MyText kao niz Dim Dim As As Integer Dim MyResult () As String MyText = "My name is Excel VBA" MyResult = Split (End Sub

Korak 5: Izraz je naša tekstualna vrijednost. Budući da smo svoju tekstualnu vrijednost već dodijelili varijabli Moj tekst, ovdje unesite ovaj argument.

Kodirati:

Sub Split_Example1 () Zatamni MyText kao niz Dim Dim As As Integer Dim MyResult () As String MyText = "My name is Excel VBA" MyResult = Split (MyText) End Sub

Napomena: Kao i sada, zanemarite sve ostale parametre.

Korak 6: Dakle, Moj rezultat sadrži ovaj podijeljeni rezultat. Kao što sam rekao ranije u postu, funkcija razdvaja rezultat pohranjuje kao niz, dakle ovdje

Moj rezultat (0) = "Moj"
Moj rezultat (1) = "Ime"
Moj rezultat (2) = "je"
Moj rezultat (3) = "Excel"
Moj rezultat (4) = "VBA"

Iako ovaj kod ne utječe na pokretanje funkcije SPLIT, možemo ga koristiti.

Primjer # 2 - VBA SPLIT niz s funkcijom UBOUND

Da bismo pohranili rezultat funkcije SPLIT, možemo koristiti funkciju vba UBOUND zajedno sa funkcijom SPLIT.

UBOUND vraća maksimalnu duljinu niza. U gornjem primjeru maksimalna duljina niza bila je 5.

Uzmite istu riječ "My Name is Excel VBA". Podijelimo ovu riječ i pohranimo od ćelije A1 nadalje.

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.