Oleme juba õppinud VBA stringide ja alamstringide funktsioonide õpetuses stringifunktsioonide tutvustust. Nüüd vaatame, kuidas teksti stringe ühendada.
Ühendage stringid
Teksti stringide ühendamiseks saate VBA -s kasutada operaatorit &.
| 1 | MsgBox "Ühenda" ja "Tekst" |
Ühendage rakud
Samuti saate rakke omavahel ühendada. Allpool on meil tekstistringid A1 ja B1:
Järgmine kood näitab teile, kuidas ühendada lahtri A1 ja B1 tekstistringid lahtris C1 oleva operaatori & abil.
| 1 | Vahemik ("C1"). Väärtus = vahemik ("A1"). Väärtus ja vahemik ("B1"). Väärtus |
Tulemuseks on:
Muutujate ühendamine
See on täielik protseduur kahe lahtri ühendamiseks stringimuutujate abil.
| 1234567891011 | Sub ConcatenateStrings ()Dim StringOne kui stringDim StringTwo kui stringStringOne = Vahemik ("A1"). VäärtusStringTwo = Vahemik ("B1"). VäärtusVahemik ("C1"). Väärtus = StringOne & StringTwoEnd Sub |
& Operaatori kasutamine tühikutega
Kui soovite lisada tühikuid, mida kasutate ja koos nupuga „“. Järgmine kood näitab, kuidas tühikuid lisada:
| 123456789101112 | AlamühendamineStringsWithSpaces ()Dim StringOne kui stringKahekordne stringDim StringThree nagu stringStringOne = "See on"StringTwo = "tekst"StringThree = StringOne & "" & StringTwoMsgBox StringThreeEnd Sub |
MessageBoxi tulemus on järgmine:
& Operaatori kasutamine jutumärgi ühendamiseks
Oletame, et teie tekstistring sisaldab jutumärki, järgmine kood näitab teile, kuidas jutumärki tekstistringi lisada:
| 12345678910111213 | Sub ConcatenatingAQuotationMark ()Dim StringOne kui stringKahekordne stringDim StringThree nagu stringStringOne = "See on jutumärk"StringTwo = "" ""StringThree = StringOne & "" & StringTwoMsgBox StringThreeEnd Sub |
Tulemuseks on:
Stringide panemine uuele reale
Oletame, et teil on viis tekstistringi, saate iga tekstistringi uuele reale või lõigule panna, kasutades funktsiooni vbNewLine, vbCrLf, vbCr või Chr. Järgmine kood näitab, kuidas iga tekstistring uuele reale panna:
| 123456789101112131415161718 | Sub PuttingEachTextStringOnANewLine ()Dim StringOne kui stringKahekordne stringDim StringThree nagu stringDim StringFour nagu stringHämarda string Viis stringinaStringOne = "See on esimene string"StringTwo = "See on teine string"StringThree = "See on kolmas string"StringFour = "See on neljas string"StringFive = "See on viies string"MsgBox StringOne & vbNewLine & StringTwo & vbCrLf & StringKolmik ja vbCr & StringFour & Chr (13) & StringFiveEnd Sub |
Tulemuseks on:
