Chúng ta đã xem qua phần giới thiệu về các hàm chuỗi trong hướng dẫn Hàm chuỗi và hàm con trong VBA của chúng tôi. Bây giờ chúng ta sẽ xem xét cách nối các chuỗi văn bản.
Kết nối chuỗi
Bạn có thể sử dụng toán tử & trong VBA để nối các chuỗi văn bản.
1 | MsgBox "Hợp nhất" & "Văn bản" |
Nối các ô
Bạn cũng có thể nối các ô với nhau. Dưới đây, chúng tôi có các chuỗi văn bản trong A1 và B1:
Đoạn mã sau chỉ cho bạn cách nối các chuỗi văn bản từ ô A1 và B1 bằng toán tử &, trong ô C1:
1 | Phạm vi ("C1"). Giá trị = Phạm vi ("A1"). Giá trị & Phạm vi ("B1"). Giá trị |
Kết quả là:
Nối các biến
Đây là quy trình đầy đủ để nối hai ô với nhau bằng cách sử dụng các biến chuỗi.
1234567891011 | Sub ConcatenateStrings ()Dim StringOne as StringDim StringTwo dưới dạng chuỗiStringOne = Range ("A1"). Giá trịStringTwo = Phạm vi ("B1"). Giá trịPhạm vi ("C1"). Giá trị = StringOne & StringTwoKết thúc Sub |
Sử dụng & Operator với Spaces
Khi bạn muốn bao gồm các khoảng trắng mà bạn sử dụng và kết hợp với ”“. Đoạn mã sau đây cho bạn biết bạn sẽ bao gồm khoảng trắng như thế nào:
123456789101112 | Sub ConcatenatingStringsWithSpaces ()Dim StringOne As StringDim String Hai As StringDim String Ba As StringStringOne = "Đây là"StringTwo = "văn bản"StringThree = StringOne & "" & StringTwoMsgBox StringThreeKết thúc Sub |
Kết quả MessageBox là:
Sử dụng toán tử & để ghép một dấu ngoặc kép
Giả sử chuỗi văn bản của bạn có chứa dấu ngoặc kép, đoạn mã sau cho bạn biết cách bao gồm dấu ngoặc kép trong chuỗi văn bản:
12345678910111213 | Sub ConcatenatingAQuotationMark ()Dim StringOne As StringDim String Hai As StringDim String Ba As StringStringOne = "Đây là dấu ngoặc kép"StringTwo = "" ""StringThree = StringOne & "" & StringTwoMsgBox StringThreeKết thúc Sub |
Kết quả là:
Đặt chuỗi trên một dòng mới
Giả sử bạn có năm chuỗi văn bản, bạn có thể đặt mỗi chuỗi văn bản trên một dòng hoặc đoạn mới, sử dụng Hàm vbNewLine, vbCrLf, vbCr hoặc Chr. Đoạn mã sau chỉ cho bạn cách đặt mỗi chuỗi văn bản trên một dòng mới:
123456789101112131415161718 | Sub PuttingEachTextStringOnANewLine ()Dim StringOne As StringDim String Hai As StringDim String Ba As StringDim StringFour As StringDim StringFive As StringStringOne = "Đây là chuỗi đầu tiên"StringTwo = "Đây là chuỗi thứ hai"StringThree = "Đây là chuỗi thứ ba"StringFour = "Đây là chuỗi thứ tư"StringFive = "Đây là chuỗi thứ năm"MsgBox StringOne & vbNewLine & StringTwo & vbCrLf & StringThree & vbCr & StringFour & Chr (13) & StringFiveKết thúc Sub |
Kết quả là: