Fungsi Split VBA (Contoh) - Bagaimana cara Membagi String di Excel VBA?

Daftar Isi

Apa itu Fungsi Split VBA di Excel?

Apa itu Fungsi Split VBA di Excel?

Fungsi split di VBA adalah fungsi string yang sangat berguna yang digunakan untuk membagi string menjadi beberapa substring berdasarkan pemisah yang disediakan untuk fungsi dan metode perbandingan, ada juga fungsi string lain yang mengubah string menjadi substring tetapi fungsi split dapat memisahkan a string menjadi lebih dari satu substring.

Dalam worksheet normal fungsi LEFT, fungsi MID, dan RIGHT di excel digunakan sebagai fungsi teks di excel untuk mengekstrak porsi kalimat. Misalnya ekstraksi nama depan, nama tengah, dan nama belakang adalah skenario umum yang telah kita lihat. Tetapi di VBA kami memiliki fungsi yang lebih serbaguna yang disebut SPLIT yang akan melakukan pekerjaan serupa untuk Anda. SPLIT adalah fungsi bawaan di Excel VBA yang dapat membagi kalimat yang diberikan berdasarkan pembatas. Misalnya, jika Anda ingin membagi alamat email menjadi beberapa bagian, elemen umum di alamat email adalah "@" di semua ID email, jadi "@" menjadi pembatas di sini.

Fungsi String Split VBA

Seperti semua fungsi lainnya, split juga memiliki sintaksnya sendiri. Di bawah ini adalah parameter dari fungsi string excel VBA Split.

Nilai atau Ekspresi: Ini hanyalah nilai sebenarnya yang kami coba pisahkan. Misalnya, jika Anda ingin memisahkan nama depan dan nama belakang, nama lengkapnya adalah nilainya di sini.
(Pembatas): Apa elemen umum untuk memisahkan Nilai atau Ekspresi? Dalam email Id "@" adalah elemen umum, di alamat koma (,) adalah elemen umum. Jika Anda mengabaikannya, ini menganggap karakter spasi sebagai nilai default.
(Batas): Berapa banyak substring yang Anda inginkan dari Nilai atau Ekspresi yang telah Anda berikan. Misalnya, jika nilainya adalah "Nama saya Excel", jika Anda memasukkan 3 sebagai batas, hasilnya akan ditampilkan dalam tiga baris seperti "Saya", "nama", "adalah Excel".
(Bandingkan): Karena kami tidak menggunakan argumen bandingkan, lewati argumen opsional ini.

Pada bagian artikel selanjutnya, kita akan melihat bagaimana menggunakan fungsi SPLIT di excel VBA secara praktis.

Contoh Fungsi String Split VBA

Di bawah ini adalah contoh praktis dari Fungsi Split di Excel VBA.

Contoh # 1 - Pisahkan Kalimat

Split mengembalikan hasil dalam array yang akan dimulai dari 0. Semua array dimulai dari 0 bukan dari 1.

Asumsikan Anda memiliki kata "My Name is Excel VBA" di sel A1.

Sekarang Anda ingin membagi kalimat ini menjadi beberapa bagian seperti "Saya", "Nama", "adalah", "Excel", "VBA". Menggunakan fungsi Excel VBA SPLIT String kita dapat mengembalikan hasil ini.

Langkah 1: Mulai makro dengan nama.

Kode:

Sub Split_Example1 () End Sub Langkah 2: Deklarasikan tiga variabel.

Kode:

Sub Split_Example1 () Redupkan MyText Sebagai String Dim i Sebagai Integer Dim MyResult () As String End Sub

Langkah 3: Sekarang untuk variabel yang ditentukan, Teks Saya memberikan kata "Nama Saya adalah Excel VBA" .

Kode:

Sub Split_Example1 () Redupkan MyText Sebagai String Dim i Sebagai Integer Dim MyResult () As String MyText = "Nama Saya adalah Excel VBA" End Sub

Langkah 4: Sekarang untuk variabel Hasil Saya menerapkan fungsi string terpisah VBA.

Kode:

Sub Split_Example1 () Redupkan MyText Sebagai String Dim i Sebagai Integer Dim MyResult () As String MyText = "Nama Saya Excel VBA" MyResult = Split (End Sub

Langkah 5: Ekspresi adalah nilai teks kita. Karena kami telah menetapkan nilai teks kami ke variabel Teks Saya masukkan argumen ini di sini.

Kode:

Sub Split_Example1 () Redupkan MyText Sebagai String Dim i Sebagai Integer Dim MyResult () As String MyText = "Nama Saya adalah Excel VBA" MyResult = Split (MyText) End Sub

Catatan: Seperti sekarang abaikan semua parameter lainnya.

Langkah 6: Jadi sekarang Hasil Saya memegang hasil pemisahan ini. Seperti yang saya katakan sebelumnya di posting, fungsi split menyimpan hasilnya sebagai array jadi di sini

Hasil Saya (0) = “Saya”
Hasil Saya (1) = “Nama”
Hasil Saya (2) = "adalah"
Hasil Saya (3) = “Excel”
Hasil Saya (4) = “VBA”

Meskipun kode ini tidak berdampak apa pun untuk memulai fungsi SPLIT, kita dapat menggunakan kode ini.

Contoh # 2 - VBA SPLIT String dengan Fungsi UBOUND

Untuk menyimpan hasil dari fungsi SPLIT, kita dapat menggunakan fungsi vba UBOUND bersama dengan fungsi SPLIT.

UBOUND akan mengembalikan panjang maksimum array. Dalam contoh di atas, panjang maksimum array adalah 5.

Ambil kata yang sama "My Name is Excel VBA". Mari kita pisahkan kata ini dan simpan dari sel A1 dan seterusnya.

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.