Bu öğretici, Trim, LTrim ve RTrim VBA işlevlerinin yanı sıra Trim çalışma sayfası işlevinin nasıl kullanılacağını gösterecektir.
Kırpma İşlevi
VBA Kırp işlevi, metin dizelerinden önceki ve sonraki hatalı boşlukları kaldırır ("kırpır").
Metinden Önce ve Sonra Boşlukları Kırp
VBA Trim işlevi, metin dizelerinden önceki ve sonraki boşlukları kaldıracaktır:
| 12345678910 | Alt TrimÖrnek_1()MsgBox Trim("Excel'i seviyorum")'Sonuç: "Excel'i seviyorum"MsgBox Trim("Excel'i seviyorum")'Sonuç: "Excel'i seviyorum"MsgBox Trim("Excel'i seviyorum")'Sonuç: "Excel'i seviyorum"Alt Bitiş |
Metinden Önce ve Sonra Birden Çok Boşluğu Kırp
Bu, metinden önce ve sonra birden çok boşluğu kırpmayı içerir:
| 12345678910 | Alt TrimExample_2()MsgBox Trim("Excel'i seviyorum")'Sonuç: "Excel'i seviyorum"MsgBox Trim("Excel'i seviyorum")'Sonuç: "Excel'i seviyorum"MsgBox Trim("Excel'i seviyorum")'Sonuç: "Excel'i seviyorum"Alt Bitiş |
VBA Trim, Kelimeler Arasındaki Birden Fazla Boşluğu Kaldırmayacak
Ancak, Kırp işlevi, sözcükler arasındaki birden çok boşluğu kaldırmaz:
| 12345678910 | Alt TrimExample_3()MsgBox Trim("Excel'i seviyorum")'Sonuç: "Excel'i seviyorum"MsgBox Trim("Excel'i seviyorum")'Sonuç: "Excel'i seviyorum"MsgBox Trim("Excel'i seviyorum")'Sonuç: "Excel'i seviyorum"Alt Bitiş |
Çalışma Sayfası İşlevi Olarak Kırp
Ancak, Excel Kırp çalışma sayfası işlevi, sözcükler arasındaki fazladan boşlukları kaldırmak için kullanılabilir:
VBA'da Çalışma Sayfası Kırpma İşlevini Kullanın
VBA'da Excel Kırpma İşlevini kullanmak için WorksheetFunction'ı kullanarak onu çağırın:
| 12345678910 | Alt TrimExample_4()Msgbox WorksheetFunction.Trim("Excel'i seviyorum")'Sonuç: "Excel'i seviyorum"Msgbox WorksheetFunction.Trim("Excel'i seviyorum")'Sonuç: "Excel'i seviyorum"Msgbox WorksheetFunction.Trim("Excel'i seviyorum")'Sonuç: "Excel'i seviyorum"Alt Bitiş |
VBA Kodu Örnekleri Aramaktan Bıktınız mı? AutoMacro'yu deneyin!
WorksheetFunction.Trim ve VBA Trim Arasındaki Fark
Bu, Trim ve WorksheetFunction.Trim arasındaki farkları gösterecektir:
| 1234567891011121314151617 | Alt TrimExample_5()Msgbox WorksheetFunction.Trim("Excel'i seviyorum")'Sonuç: "Excel'i seviyorum"Msgbox Trim("Excel'i seviyorum")'Sonuç: "Excel'i seviyorum"Msgbox WorksheetFunction.Trim("Excel'i seviyorum")'Sonuç: "Excel'i seviyorum"Msgbox Trim("Excel'i seviyorum")'Sonuç: "Excel'i seviyorum"Msgbox WorksheetFunction.Trim("Excel'i seviyorum")'Sonuç: "Excel'i seviyorum"Msgbox Trim("Excel'i seviyorum")'Sonuç: "Excel'i seviyorum"Alt Bitiş |
Bir Aralıkta Kırpma İşlevi eklemek için VBA kullanın
Çalışma Sayfasını Kırp işlevi, .Formül özelliği kullanılarak bir Aralığa eklenebilir:
| 123 | Alt TrimExample_6()ThisWorkbook.Worksheets("Sayfa1").Range("B1").Formula = "=trim(A1)"Alt Bitiş |
LTrim İşlevi
LTrim işlevi, yalnızca sözcüğün sol tarafındaki boşlukları kaldırır:
| 12345678910111213141516171819 | Alt TrimExample_7()MsgBox LTrim("Excel'i seviyorum")'Sonuç: "Excel'i seviyorum"MsgBox LTrim("Excel'i seviyorum")'Sonuç: "Excel'i seviyorum"MsgBox LTrim("Excel'i seviyorum")'Sonuç: "Excel'i seviyorum"MsgBox LTrim("Excel'i seviyorum")'Sonuç: "Excel'i seviyorum"MsgBox LTrim("Excel'i seviyorum")'Sonuç: "Excel'i seviyorum"MsgBox LTrim("Excel'i seviyorum")'Sonuç: "Excel'i seviyorum"Alt Bitiş |
RTrim İşlevi
RTrim işlevi, yalnızca sözcüğün sağ tarafındaki boşlukları kaldırır:
| 12345678910111213141516171819 | Alt TrimExample_8()MsgBox RTrim("Excel'i seviyorum")'Sonuç: "Excel'i seviyorum"MsgBox RTrim("Excel'i seviyorum")'Sonuç: "Excel'i seviyorum"MsgBox RTrim("Excel'i seviyorum")'Sonuç: "Excel'i seviyorum"MsgBox RTrim("Excel'i seviyorum")'Sonuç: "Excel'i seviyorum"MsgBox RTrim("Excel'i seviyorum")'Sonuç: "Excel'i seviyorum"MsgBox RTrim("Excel'i seviyorum")'Sonuç: "Excel'i seviyorum"Alt Bitiş |
Kırp, Ltrim ve Rtrim sözcükler arasındaki boşlukları kaldırmaz.
Metindeki tüm boşlukları kaldır
Kırp yalnızca sözcükler arasındaki fazla boşlukları kaldırır, ancak bir metin dizesindeki tüm boşlukları kaldırmak için Değiştir İşlevini kullanabilirsiniz:
| 1234 | Alt ReplaceExample ()MsgBox Replace("Excel'i seviyorum", " ", "")'Sonuç: "Iloveexcel"Alt Bitiş |
