Omówiliśmy już wprowadzenie do funkcji ciągów w naszym samouczku VBA Strings and Substrings Functions. Przyjrzymy się teraz, jak łączyć ciągi tekstowe.
Połącz ciągi
Możesz użyć operatora & w VBA, aby połączyć ciągi tekstowe.
| 1 | MsgBox "Scal" i "Tekst" |
Połącz komórki
Możesz także łączyć ze sobą komórki. Poniżej mamy ciągi tekstowe w A1 i B1:
Poniższy kod pokazuje, jak połączyć ciągi tekstowe z komórki A1 i B1 za pomocą operatora & w komórce C1:
| 1 | Zakres("C1").Wartość = Zakres("A1").Wartość i zakres("B1").wartość |
Wynik to:
Połącz zmienne
Jest to pełna procedura łączenia ze sobą dwóch komórek za pomocą zmiennych łańcuchowych.
| 1234567891011 | Sub ConcatenateStrings()Dim StringOne jako StringDim StringDwa jako StringStringOne = Zakres("A1").WartośćStringTwo = Zakres("B1").WartośćRange("C1").Value = StringOne & StringTwoNapis końcowy |
Używanie & Operatora ze spacjami
Gdy chcesz uwzględnić spacje, których używasz w połączeniu z „ ”. Poniższy kod pokazuje, jak należy uwzględnić spacje:
| 123456789101112 | Sub ConcatenatingStrings With Spaces()Dim StringOne As StringDim StringDwa jako ciągDim StringThree As StringStringOne = "To jest"StringTwo = "tekst"StringThree = StringOne & " " & StringTwoMsgBox StringTrzyNapis końcowy |
Wynik MessageBox to:
Używanie operatora & do łączenia cudzysłowu
Załóżmy, że ciąg tekstowy zawiera znak cudzysłowu, poniższy kod pokazuje, jak umieścić znak cudzysłowu w ciągu tekstowym:
| 12345678910111213 | Sub ConcatenatingAQuotationMark()Dim StringOne As StringDim StringDwa jako ciągDim StringThree As StringStringOne = "To jest cudzysłów"Ciąg dwa = """"StringThree = StringOne & " " & StringTwoMsgBox StringTrzyNapis końcowy |
Wynik to:
Umieszczanie ciągów na nowej linii
Załóżmy, że masz pięć ciągów tekstowych, możesz umieścić każdy ciąg tekstowy w nowym wierszu lub akapicie, używając funkcji vbNewLine, vbCrLf, vbCr lub Chr. Poniższy kod pokazuje, jak umieścić każdy ciąg tekstowy w nowej linii:
| 123456789101112131415161718 | Sub PuttingEachTextStringOnANewLine()Dim StringOne As StringDim StringDwa jako ciągDim StringThree As StringDim StringCztery jako ciągDim StringFive As StringStringOne = "To jest pierwszy ciąg"StringTwo = "To jest drugi ciąg"StringThree = "To jest trzeci ciąg"StringFour = "To jest czwarty ciąg"StringFive = "To jest piąty ciąg"MsgBox StringOne & vbNewLine & StringTwo & vbCrLf & StringThree & vbCr & StringFour & Chr(13) & StringFiveNapis końcowy |
Wynik to:
