Fungsi Split VBA (Contoh) - Bagaimana Membahagi Rentetan di Excel VBA?

Isi kandungan

Apakah Fungsi Split VBA di Excel?

Apakah Fungsi Split VBA di Excel?

Fungsi split dalam VBA adalah fungsi rentetan yang sangat berguna yang digunakan untuk memisahkan rentetan menjadi beberapa substring berdasarkan pembatas yang disediakan untuk fungsi dan kaedah perbandingan, ada fungsi rentetan lain juga yang mengubah rentetan menjadi substring tetapi fungsi split dapat membelah memasukkan lebih daripada satu substring.

Dalam fungsi LEFT lembaran kerja normal, fungsi MID, dan KANAN dalam excel digunakan sebagai fungsi teks di excel untuk mengekstrak bahagian ayat. Contohnya pengekstrakan nama depan, nama tengah, dan nama belakang adalah senario biasa yang pernah kita lihat. Tetapi di VBA kami mempunyai fungsi yang lebih serba boleh yang disebut SPLIT yang akan melakukan pekerjaan yang serupa untuk anda. SPLIT adalah fungsi terbina dalam Excel VBA yang dapat membahagikan ayat yang disediakan berdasarkan pembatas. Sebagai contoh, jika anda ingin membahagikan alamat e-mel ke bahagian yang berbeza, elemen umum dalam alamat e-mel adalah "@" di semua id e-mel, jadi "@" menjadi pembatas di sini.

Fungsi String Split VBA

Seperti fungsi lain, split juga mempunyai sintaks tersendiri. Berikut adalah parameter fungsi rentetan Split VBA excel.

Nilai atau Ekspresi: Ini hanyalah nilai sebenarnya yang cuba kita bahagikan. Contohnya, jika anda mahu membelah nama depan dan nama belakang, nama penuh adalah nilai di sini.
(Pembatas): Apakah elemen umum untuk membagi Nilai atau Ungkapan? Dalam e-mel Id "@" adalah elemen umum, dalam koma alamat (,) adalah elemen umum. Sekiranya anda mengabaikan ini, ia menganggap watak ruang sebagai nilai lalai.
(Had): Berapa banyak substring yang anda mahukan dari Nilai atau Ekspresi yang anda berikan. Sebagai contoh, jika nilainya adalah "Nama saya Excel", jika anda memberikan 3 sebagai had, ia akan menunjukkan hasilnya dalam tiga baris seperti "My", "name", "is Excel"
(Bandingkan): Oleh kerana kami tidak menggunakan membandingkan argumen, tinggalkan argumen pilihan ini.

Di bahagian seterusnya artikel, kita akan melihat bagaimana menggunakan fungsi SPLIT dalam excel VBA secara praktikal.

Contoh Fungsi Split String VBA

Berikut adalah contoh praktikal Fungsi Berpisah di Excel VBA.

Contoh # 1 - Membahagi Kalimat

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

Andaikan anda mempunyai perkataan "My Name is Excel VBA" di sel A1.

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

Langkah 1: Mulakan makro dengan nama.

Kod:

Sub Split_Contoh1 () Akhir Sub Langkah 2: Menyatakan tiga pemboleh ubah.

Kod:

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

Langkah 3: Sekarang untuk pemboleh ubah yang ditentukan, Teks Saya memberikan perkataan "My Name is Excel VBA" .

Kod:

Sub Split_Example1 () Dim MyText Sebagai String Dim i As Integer Dim MyResult () Sebagai String MyText = "My Name is Excel VBA" End Sub

Langkah 4: Sekarang untuk pemboleh ubah Hasil Saya menggunakan fungsi rentetan pemisah VBA

Kod:

Sub Split_Example1 () Dim MyText Sebagai String Dim i As Integer Dim MyResult () Sebagai String MyText = "My Name is Excel VBA" MyResult = Split (End Sub

Langkah 5: Ungkapan adalah nilai teks kami. Oleh kerana kami telah menetapkan nilai teks kami ke pemboleh ubah Teks Saya masukkan argumen ini di sini.

Kod:

Sub Split_Example1 () Dim MyText Sebagai String Dim i As Integer Dim MyResult () Sebagai String MyText = "My Name is Excel VBA" MyResult = Split (MyText) End Sub

Catatan: Seperti sekarang abaikan semua parameter lain.

Langkah 6: Jadi sekarang Hasil Saya memperoleh keputusan perpecahan ini. Seperti yang saya ceritakan sebelumnya, fungsi split menyimpan hasilnya sebagai array jadi di sini

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

Walaupun kod ini tidak memberi kesan untuk memulakan fungsi SPLIT, kita boleh menggunakan kod ini.

Contoh # 2 - Rentetan SPLIT VBA dengan Fungsi UBOUND

Untuk menyimpan hasil 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 ialah 5.

Ambil perkataan yang sama "My Name is Excel VBA". Mari pisahkan perkataan 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.