Olemme jo käyneet läpi merkkijonotoimintojen esittelyn VBA -merkkijonojen ja alimerkkitoimintojen opetusohjelmassa. Katsomme nyt, miten tekstiketjut yhdistetään.
Yhdistä merkkijonot
Voit käyttää VBA: n & -operaattoria tekstimerkkijonojen yhdistämiseen.
| 1 | MsgBox "Yhdistä" ja "Teksti" |
Yhdistä solut
Voit myös yhdistää soluja yhteen. Alla on tekstin merkkijonot A1 ja B1:
Seuraavassa koodissa näytetään, kuinka liittää solun A1 ja B1 tekstimerkkijonot solun C1 & -operaattorilla:
| 1 | Alue ("C1"). Arvo = Alue ("A1"). Arvo ja alue ("B1"). Arvo |
Tulos on:
Yhdistä muuttujat
Tämä on täydellinen menettely kahden solun yhdistämiseksi yhteen käyttämällä merkkijonomuuttujia.
| 1234567891011 | Sub ConcatenateStrings ()Dim StringOne merkkijononaDim StringTwo merkkijononaStringOne = Alue ("A1"). ArvoStringTwo = Alue ("B1"). ArvoAlue ("C1"). Arvo = StringOne & StringTwoEnd Sub |
& Operaattorin käyttäminen välilyönnien kanssa
Kun haluat sisällyttää välilyöntejä, joita käytät & yhdessä "" -merkin kanssa. Seuraava koodi näyttää, miten lisäät välilyöntejä:
| 123456789101112 | AlakonkreenaatioJonotWithSpaces ()Himmennä merkkijono Yksi merkkijononaHimmennä merkkijono Kaksi merkkijononaHimmennä merkkijonoKolme merkkijononaStringOne = "Tämä on"StringTwo = "teksti"StringThree = StringOne & "" & StringTwoMsgBox StringThreeEnd Sub |
MessageBox -tulos on:
& Operaattorin käyttäminen lainausmerkin yhdistämisessä
Oletetaan, että tekstimerkkijono sisältää lainausmerkin, seuraava koodi näyttää lainausmerkin sisällyttämisen tekstimerkkijonoon:
| 12345678910111213 | AlakonkatenointiA Lainausmerkki ()Himmennä merkkijono Yksi merkkijononaHimmennä merkkijono Kaksi merkkijononaHimmennä merkkijonoKolme merkkijononaStringOne = "Tämä on lainausmerkki"StringTwo = "" ""StringThree = StringOne & "" & StringTwoMsgBox StringThreeEnd Sub |
Tulos on:
Jousien asettaminen uudelle riville
Oletetaan, että sinulla on viisi tekstimerkkijonoa, voit laittaa jokaisen tekstimerkkijonon uudelle riville tai kappaleelle käyttämällä joko vbNewLine-, vbCrLf-, vbCr- tai Chr -funktiota. Seuraava koodi näyttää, kuinka jokainen tekstimerkkijono lisätään uudelle riville:
| 123456789101112131415161718 | Sub PuttingEachTextStringOnANewLine ()Himmennä merkkijono Yksi merkkijononaHimmennä merkkijono Kaksi merkkijononaHimmennä merkkijonoKolme merkkijononaHimmennä merkkijono Neljä merkkijononaHimmennä merkkijono Viisi merkkijononaStringOne = "Tämä on ensimmäinen merkkijono"StringTwo = "Tämä on toinen merkkijono"StringThree = "Tämä on kolmas merkkijono"StringFour = "Tämä on neljäs merkkijono"StringFive = "Tämä on viides merkkijono"MsgBox StringOne & vbNewLine & StringKaksi & vbCrLf & StringKolme & vbCr & StringFour & Chr (13) & StringFiveEnd Sub |
Tulos on:
