Excel VBA TRIM İşlevi
VBA TRIM , dize ve metin işlevleri altında kategorize edilir, bu işlev VBA'da bir çalışma sayfası işlevidir ve çalışma sayfası referansına benzer şekilde, bu işlev bir dizeden istenmeyen boşlukları kırpmak veya kaldırmak için kullanılır, bir giriş dizesi olan tek bir bağımsız değişken alır ve dizge olarak bir çıktı döndürür.
Verileri çevrimiçi sunuculardan indirdiğimiz birkaç durum vardır ve hücrede organize olmayan veriler ve istenmeyen boşluklarla karşı karşıya kalırız. Gereksiz alanlarla uğraşmak, çalışmak çok zahmetlidir. Normal çalışma sayfası işlevlerinde, "Önde Gelen Boşluklar, Sondaki Boşluklar ve aradaki boşluklardan" kurtulmak için Excel'de TRIM adlı bir işleve sahibiz . VBA'da ayrıca, excel işlevi ile tam olarak aynı şekilde çalışan TRIM adında bir işleve sahibiz, ancak orada sadece küçük bir fark var. Bunu bu yazıda biraz sonra göreceğiz.
Kırpma İşlevi Ne Yapar?
TRIM, excel'deki boşlukları seçilen hücreden kaldıran bir dize işlevidir. Alanlarda, 3 tür "Öncü Boşluklar, Sondaki Boşluklar ve ara boşluklar" var.
Öncü Boşluk hiçbir şey değildir, ancak hücrede herhangi bir değer başlamadan önce, herhangi bir boşluk varsa, buna Baştaki Boşluk denir .
Sondaki Boşluk , hücrede herhangi bir boşluk varsa, hücredeki değerin bitiminden başka bir şey değildir, o zaman buna Son Boşluk denir .
Ara Boşluk , her kelimenin sonundan sonraki hiçbir şey değildir; ideal olarak, bir boşluk karakterimiz olmalıdır. Birden fazla boşluk karakteri, Arası Boşluk olarak adlandırılır .
Tüm bu tür sorunların üstesinden gelmek için TRIM adında bir fonksiyonumuz var.
Sözdizimi
Dize: Kesmek istediğiniz dize veya değer nedir? Hücre referansı olabileceği gibi, formüle doğrudan bir değer kaynağı da olabilir.
Örnekler
Örnek 1
Şimdi, TRIM işlevini kullanarak excel'deki baştaki boşlukları nasıl kaldıracağımızı göreceğiz. Aşağıdaki adımları izleyin
Adım 1: Bir makro adı oluşturun ve bir değişkeni Dize olarak bildirin.
Kod:
Alt Trim_Example1 () Dim k As String End Sub
Adım 2: Şimdi, bu beyan edilen değişken için, TRIM kullanarak bir değer atayın.
Kod:
Alt Trim_Example1 () Dim k As String k = Trim (End Sub
Adım 3: Bu dize türü için, çift tırnak içindeki kelime "VBA'ya Hoş Geldiniz" şeklinde.
Kod:
Alt Trim_Example1 () Dim k As String k = Trim ("VBA'ya Hoş Geldiniz") Son Alt
Adım 4: Şimdi bu değişkenin sonucunu mesaj kutusunda gösterin.
Kod:
Alt Trim_Example1 () Dim k As String k = Trim ("VBA'ya Hoş Geldiniz") MsgBox k End Sub
Adım 5: F5 tuşunu kullanarak bu kodu çalıştırın veya manuel olarak çalıştırın. Mesaj kutusunda doğru bir dize almalıyız.
Çıktı:
Böylece, TRIM işlevi, dize değerine girdiğimiz tüm baştaki boşlukları kaldırdı. Şimdi sonuç doğru bir cümledir, yani "VBA'ya Hoş Geldiniz".
Örnek 2
Şimdi sondaki boşlukları kaldırmak için bir örneğe daha göz atın. Aynı kelimeyi alın ama bu sefer sondaki boşlukları girin.
"VBA'ya hoş geldiniz. "
Kod:
Alt Trim_Example2 () Dim k As String k = Trim ("VBA'ya Hoş Geldiniz") MsgBox k End Sub
Bu kodu manuel olarak veya F5 tuşu Trim işlevi aracılığıyla çalıştırın, sondaki boşlukları da kaldırır.
Çıktı:
Örnek 3 - Hücrelerdeki Verileri Temizleyin
Şimdi excel hücrelerindeki verileri temizlemenin pratik örneğini göreceğiz. Excel sayfanızda aşağıdaki gibi bir veri kümeniz olduğunu varsayalım.
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.
- Excel kırpma işlevi her türlü boşluğu kaldırabilir.
