Fungsi VBA TRIM - Bagaimana cara menggunakan Fungsi Excel VBA TRIM?

Fungsi Excel VBA TRIM

VBA TRIM dikategorikan di bawah fungsi string dan teks, fungsi ini adalah fungsi lembar kerja di VBA dan mirip dengan referensi lembar kerja, fungsi ini digunakan untuk memangkas atau menghapus spasi yang tidak diinginkan dari sebuah string, dibutuhkan satu argumen yang merupakan string input dan mengembalikan keluaran sebagai string.

Ada beberapa situasi di mana kami mengunduh data dari server online, dan kami menghadapi situasi data yang tidak terorganisir dan ruang yang tidak diinginkan di dalam sel. Berurusan dengan ruang yang tidak perlu sangat menyakitkan untuk dikerjakan. Dalam fungsi lembar kerja biasa, kami memiliki fungsi yang disebut TRIM di excel untuk menghilangkan "Spasi Terkemuka, Spasi Jejak, dan ruang di antara." Di VBA, kami juga memiliki fungsi yang disebut TRIM, yang berfungsi persis sama dengan fungsi excel, tetapi hanya ada satu perbedaan kecil di sana. Kita akan melihatnya di artikel ini nanti.

Apa Fungsi Trim?

TRIM adalah fungsi string yang menghilangkan spasi di excel dari sel yang dipilih. Di ruang, kami memiliki 3 jenis "Ruang Utama, Ruang Jejak, dan di antara ruang."

Leading Space tidak berarti apa-apa, tetapi sebelum nilai apa pun dimulai di dalam sel, jika ada spasi, maka itu disebut Leading Space.

Trailing Space tidak lain adalah setelah nilai akhir dalam sel jika ada spasi, maka disebut sebagai Trailing Space.

Di Antara Ruang tidak ada artinya setelah akhir setiap kata; idealnya, kita harus memiliki satu karakter spasi. Apa pun yang lebih dari satu karakter spasi disebut In-Between Space.

Untuk mengatasi semua jenis masalah ini, kami memiliki fungsi yang disebut TRIM.

Sintaksis

String: Apa string atau nilai yang ingin Anda pangkas? Ini bisa menjadi referensi sel serta pasokan nilai langsung ke rumus.

Contoh

Contoh 1

Sekarang kita akan melihat bagaimana menghapus spasi terdepan di excel menggunakan fungsi TRIM. Ikuti langkah-langkah di bawah ini

Langkah 1: Buat nama makro dan nyatakan variabel sebagai String.

Kode:

Sub Trim_Example1 () Dim k Sebagai String End Sub

Langkah 2: Sekarang, untuk variabel yang dideklarasikan ini, tetapkan nilai dengan menggunakan TRIM.

Kode:

Sub Trim_Example1 () Dim k Sebagai String k = Trim (End Sub

Langkah 3: Untuk jenis string ini, kata dalam tanda kutip ganda sebagai "Selamat datang di VBA".

Kode:

Sub Trim_Example1 () Dim k Sebagai String k = Trim ("Selamat datang di VBA") End Sub

Langkah 4: Sekarang tunjukkan hasil dari variabel ini di kotak pesan.

Kode:

Sub Trim_Example1 () Dim k Sebagai String k = Trim ("Selamat datang di VBA") MsgBox k End Sub

Langkah 5: Jalankan kode ini menggunakan tombol F5 atau jalankan secara manual. Kita harus mendapatkan string yang benar di kotak pesan.

Keluaran:

Jadi, fungsi TRIM menghapus semua spasi utama yang telah kita masukkan ke dalam nilai string. Sekarang hasilnya adalah kalimat yang benar, yaitu "Selamat datang di VBA".

Contoh # 2

Sekarang lihat satu contoh lagi untuk menghapus spasi tambahan. Ambil kata yang sama tapi kali ini, masukkan spasi.

“Selamat datang di VBA. “

Kode:

Sub Trim_Example2 () Dim k Sebagai String k = Trim ("Selamat datang di VBA") MsgBox k End Sub

Jalankan kode ini secara manual atau melalui tombol F5 Fungsi Trim juga menghapus spasi tertinggal.

Keluaran:

Contoh # 3 - Bersihkan Data di Sel

Sekarang kita akan melihat contoh praktis membersihkan data di sel excel. Asumsikan Anda memiliki kumpulan data seperti di bawah ini di lembar excel Anda.

When we have more than one cell data, we need to write different codes. Follow the below steps to write code.

Step 1: Declare a variable as “Range.”

Code:

Sub Trim_Example3() Dim MyRange As Range End Sub

Step 2: Since the range data type is an object, we need to set the range first. So set the range as “selection.”

Code:

Sub Trim_Example3() Dim MyRange As Range Set MyRange = Selection End Sub

Note: MyRange = Selection means whatever the cells I select becomes a range. So in that range, TRIM removes unwanted spaces.

Step 3: Now, using For Each VBA Loop, apply the TRIM function.

Code:

Sub Trim_Example3() Dim MyRange As Range Set MyRange = Selection For Each cell In MyRange cell.Value = Trim(cell) Next End Sub

Step 4: Now go back to the worksheet. Go to insert and draw a rectangular shape.

Step 5: Add a word to the inserted rectangular shape as click here to clean the data.

Step 6: Right-click on the rectangular shape and select the assigned macro.

Step 7: Now, the macro names box will open. Select the name of the macro we just created. Click on Ok.

Step 8: Now select the range where we need to clean the data.

Step 9: After selecting the range, click on the assigned macro rectangular box. It will clean the data.

So we got cleaned value, i.e., after removing leading & trailing spaces.

Difference Between Excel & VBA Trim Function

The only difference between them is VBA function cannot remove in between spaces while the worksheet function in VBA does. For example, take a look at the below example.

In cell A3, we have in-between spaces. If select and click on the rectangular shape, it will only remove trailing & leading spaces, not in-between spaces.

To overcome this problem, we need to use the trim function as a worksheet function in the code.

Code:

Sub Trim_Example3() Dim MyRange As Range Set MyRange = Selection For Each cell In MyRange cell.Value = WorksheetFunction.Trim(cell) Next End Sub

Here we have used a worksheet function, not a VBA function. This will remove all kinds of spaces.

Things to Remember

  • VBA Trim & Worksheet Trim syntax is exactly the same.
  • It can only remove leading & trailing spaces, not in-between spaces.
  • Fungsi trim Excel dapat menghapus semua jenis spasi.

Artikel yang menarik...