A VBA Strings and Substrings Functions oktatóanyagunkban már áttekintettük a string függvények bevezetését. Most megvizsgáljuk, hogyan lehet szöveges karakterláncokat összekapcsolni.
Karakterláncok összefűzése
A VBA & operátorával szöveges karakterláncokat kapcsolhat össze.
| 1 | MsgBox "Egyesítés" és "Szöveg" |
Sejtek összefűzése
A sejteket össze is kapcsolhatja. Az alábbiakban az A1 és B1 szöveges karakterláncok találhatók:
A következő kód bemutatja, hogyan lehet szöveges karakterláncokat összekapcsolni az A1 és B1 cellából a & operátor segítségével a C1 cellában:
| 1 | Tartomány ("C1"). Érték = tartomány ("A1"). Érték és tartomány ("B1"). Érték |
Az eredmény:
Változók összefűzése
Ez a teljes eljárás két cella összefűzésére karakterlánc -változók segítségével.
| 1234567891011 | Sub ConcatenateStrings ()StringOne mint karakterláncStringTwo mint karakterláncStringOne = Tartomány ("A1"). ÉrtékStringTwo = Tartomány ("B1"). ÉrtékTartomány ("C1"). Érték = StringOne & StringTwoEnd Sub |
Az & operátor használata szóközökkel
Ha be szeretné illeszteni a szóközöket, használja a „” billentyűt. A következő kód megmutatja, hogyan kell szóközöket beilleszteni:
| 123456789101112 | Sub ConcatenatingStringsWithSpaces ()StringOne mint karakterláncHalvány karakterláncHalvány karakterláncStringOne = "Ez"StringTwo = "a szöveg"StringThree = StringOne & "" & StringTwoMsgBox StringThreeEnd Sub |
A MessageBox eredménye:
Az & operátor használata idézőjel összekapcsolására
Tegyük fel, hogy a szöveges karakterlánc idézőjelet tartalmaz, a következő kód megmutatja, hogyan kell idézőjelet beilleszteni a szöveges karakterláncba:
| 12345678910111213 | Sub ConcatenatingAQuotationMark ()StringOne mint karakterláncHalvány karakterláncHalvány karakterláncStringOne = "Ez az idézőjel"StringTwo = "" ""StringThree = StringOne & "" & StringTwoMsgBox StringThreeEnd Sub |
Az eredmény:
A karakterláncok új sorba állítása
Tegyük fel, hogy öt szöveges karakterlánccal rendelkezik, és minden vonalat új sorba vagy bekezdésbe helyezhet a vbNewLine, vbCrLf, vbCr vagy Chr függvény használatával. A következő kód bemutatja, hogyan kell minden szöveges karakterláncot új sorba helyezni:
| 123456789101112131415161718 | Sub PuttingEachTextStringOnANewLine ()StringOne mint karakterláncHalvány karakterláncHalvány karakterláncHalvány karakterlánc Négy karakterlánckéntHalvány karakterlánc Öt mint karakterláncStringOne = "Ez az első karakterlánc"StringTwo = "Ez a második karakterlánc"StringThree = "Ez a harmadik karakterlánc"StringFour = "Ez a negyedik karakterlánc"StringFive = "Ez az ötödik karakterlánc"MsgBox StringOne & vbNewLine & StringKét & vbCrLf & StringThree & vbCr & StringFour & Chr (13) & StringFiveEnd Sub |
Az eredmény:
