Úvod do funkcií reťazca sme si už prešli v našom návode na používanie funkcií reťazcov a podreťazcov VBA. Teraz sa pozrieme na to, ako zreťaziť textové reťazce.
Spojte reťazce
Na spájanie textových reťazcov môžete použiť operátor & vo VBA.
| 1 | MsgBox „Zlúčiť“ a „Text“ |
Spojte bunky
Bunky môžete tiež spojiť dohromady. Nasledujú textové reťazce v A1 a B1:
Nasledujúci kód ukazuje, ako spojiť textové reťazce z bunky A1 a B1 pomocou operátora & v bunke C1:
| 1 | Rozsah („C1“). Hodnota = rozsah („A1“). Hodnota a rozsah („B1“). Hodnota |
Výsledkom je:
Spojte premenné
Toto je úplný postup na zreťazenie dvoch buniek dohromady pomocou reťazcových premenných.
| 1234567891011 | Sub ConcatenateStrings ()Dim StringOne ako reťazecDim StringDwo as StringStringOne = Rozsah ("A1"). HodnotaStringTwo = Rozsah ("B1"). HodnotaRozsah („C1“). Hodnota = StringOne & StringTwoKoniec pod |
Používanie & operátora s priestormi
Ak chcete zahrnúť medzery, ktoré používate, v spojení s „“. Nasledujúci kód ukazuje, ako by ste zahrnuli medzery:
| 123456789101112 | Sub ConcatenatingStringsWithSpaces ()Dim StringOne As StringDim String Dva ako reťazecDim String Tri ako reťazecStringOne = "Toto je"StringTwo = "text"StringThree = StringOne & "" & StringTwoMsgBox StringThreeKoniec pod |
Výsledok MessageBoxu je:
Použitie & operátora na zreťazenie úvodzovky
Povedzme, že váš textový reťazec obsahuje úvodzovky, nasledujúci kód vám ukáže, ako do textového reťazca vložiť úvodzovku:
| 12345678910111213 | Sub ConcatenatingAQuotationMark ()Dim StringOne As StringDim String Dva ako reťazecDim String Tri ako reťazecStringOne = "Toto je úvodzovka"StringTwo = "" ""StringThree = StringOne & "" & StringTwoMsgBox StringThreeKoniec pod |
Výsledkom je:
Uvedenie reťazcov na nový riadok
Povedzme, že máte päť textových reťazcov, každý textový reťazec môžete vložiť na nový riadok alebo odsek pomocou funkcie vbNewLine, vbCrLf, vbCr alebo Chr. Nasledujúci kód ukazuje, ako vložiť každý textový reťazec do nového riadka:
| 123456789101112131415161718 | Sub PuttingEachTextStringOnANewLine ()Dim StringOne As StringDim String Dva ako reťazecDim String Tri ako reťazecDim String Štyri ako reťazecDim StringPäť ako reťazecStringOne = "Toto je prvý reťazec"StringTwo = "Toto je druhý reťazec"StringThree = "Toto je tretí reťazec"StringFour = "Toto je štvrtý reťazec"StringFive = "Toto je piaty reťazec"MsgBox StringOne & vbNewLine & StringTwo & vbCrLf & StringTree & vbCr & StringFour & Chr (13) & StringFiveKoniec pod |
Výsledkom je:
