VBA Strings and Substrings Functions eğitimimizde string fonksiyonlarına bir giriş yaptık. Şimdi metin dizilerini nasıl birleştireceğimize bakacağız.
Dizeleri Birleştir
Metin dizelerini birleştirmek için VBA'da & operatörünü kullanabilirsiniz.
| 1 | MsgBox "Birleştir" ve "Metin" |
Hücreleri Birleştir
Ayrıca hücreleri bir araya getirebilirsiniz. Aşağıda, A1 ve B1'deki metin dizelerine sahibiz:
Aşağıdaki kod, C1 hücresindeki & operatörünü kullanarak A1 ve B1 hücresindeki metin dizelerini nasıl birleştireceğinizi gösterir:
| 1 | Aralık("C1").Değer = Aralık("A1").Değer ve Aralık("B1").değer |
Sonuç:
Değişkenleri Birleştir
Bu, dize değişkenlerini kullanarak iki hücreyi birleştirmek için tam prosedürdür.
| 1234567891011 | Alt ConcatenateStrings()Dim StringOne olarak StringDize olarak Dim StringTwoStringOne = Aralık("A1").ValueStringTwo = Aralık("B1").ValueRange("C1").Value = StringOne & StringTwoAlt Bitiş |
& Operatörünü Boşluklarla Kullanma
Boşlukları dahil etmek istediğinizde & " " ile birlikte kullanırsınız. Aşağıdaki kod, boşlukları nasıl ekleyeceğinizi gösterir:
| 123456789101112 | Alt ConcatenatingStringsWithSpaces()Dim StringOne As StringDim StringTwo As StringDim StringThree As StringStringOne = "Bu"StringTwo = "metin"StringThree = StringOne & " " & StringTwoMsgBox StringÜçAlt Bitiş |
MessageBox sonucu:
Bir Tırnak İşaretini Birleştirmek için & Operatörünü Kullanma
Diyelim ki metin dizeniz bir tırnak işareti içeriyor, aşağıdaki kod size bir metin dizesine nasıl tırnak işareti ekleyeceğinizi gösteriyor:
| 12345678910111213 | Alt BirleştirmeAQuotationMark()Dim StringOne As StringDim StringTwo As StringDim StringThree As StringStringOne = "Bu tırnak işaretidir"Stringİki = """"StringThree = StringOne & " " & StringTwoMsgBox StringÜçAlt Bitiş |
Sonuç:
Dizeleri Yeni Bir Satıra Yerleştirmek
Diyelim ki beş metin dizeniz var, vbNewLine, vbCrLf, vbCr veya Chr İşlevini kullanarak her metin dizesini yeni bir satıra veya paragrafa koyabilirsiniz. Aşağıdaki kod, her metin dizesini yeni bir satıra nasıl koyacağınızı gösterir:
| 123456789101112131415161718 | Alt PuttingEachTextStringOnANewLine()Dim StringOne As StringDim StringTwo As StringDim StringThree As StringDim StringFour As StringDim StringFive As StringStringOne = "Bu ilk dizedir"StringTwo = "Bu ikinci dizedir"StringThree = "Bu üçüncü dizedir"StringFour = "Bu dördüncü dizedir"StringFive = "Bu beşinci dizedir"MsgBox StringOne & vbNewLine & StringTwo & vbCrLf & StringThree & vbCr & StringFour & Chr(13) & StringFiveAlt Bitiş |
Sonuç:
