Mes jau peržiūrėjome eilutės funkcijų įvadą mūsų VBA eilučių ir antrinių eilučių funkcijų vadovėlyje. Dabar pažiūrėsime, kaip sujungti teksto eilutes.
Sujungti eilutes
Norėdami sujungti teksto eilutes, VBA galite naudoti & operatorių.
| 1 | „MsgBox“ „Sujungti“ ir „Tekstas“ |
Sujungti ląsteles
Taip pat galite sujungti ląsteles kartu. Žemiau yra teksto eilutės A1 ir B1:
Šis kodas parodo, kaip sujungti teksto eilutes iš langelio A1 ir B1 naudojant & operatorių langelyje C1:
| 1 | Diapazonas („C1“). Vertė = diapazonas („A1“). Vertė ir diapazonas („B1“). Vertė |
Rezultatas yra toks:
Sujungti kintamuosius
Tai yra visa procedūra, skirta sujungti dvi ląsteles, naudojant eilutės kintamuosius.
| 1234567891011 | Sub ConcatenateStrings ()„Dim StringOne“ kaip eilutė„Dim StringTwo“ kaip eilutėStringOne = Diapazonas („A1“). ReikšmėStringTwo = Diapazonas („B1“). ReikšmėDiapazonas („C1“). Reikšmė = StringOne & StringTwoPabaiga Sub |
& Operatoriaus naudojimas su tarpais
Kai norite įtraukti tarpus, naudojate ir kartu su „“. Šis kodas parodo, kaip įtraukti tarpus:
| 123456789101112 | Sub ConcatenatingStringsWithSpaces ()„Dim StringOne“ kaip eilutėDim StringTwo As StringTrijų kaip eilutėStringOne = "Tai yra"StringTwo = "tekstas"StringThree = StringOne & "" & StringTwo„MsgBox StringThree“Pabaiga Sub |
„MessageBox“ rezultatas yra toks:
& Operatoriaus naudojimas citatos ženklui sujungti
Tarkime, kad jūsų teksto eilutėje yra kabutė, toliau pateiktas kodas parodo, kaip įtraukti kabutę į teksto eilutę:
| 12345678910111213 | Sub ConcatenatingAQuotationMark ()„Dim StringOne“ kaip eilutėDim StringTwo As StringTrijų kaip eilutėStringOne = "Tai yra kabutė"StringTwo = "" ""StringThree = StringOne & "" & StringTwo„MsgBox StringThree“Pabaiga Sub |
Rezultatas yra toks:
Styginių perkėlimas į naują eilutę
Tarkime, kad turite penkias teksto eilutes, kiekvieną teksto eilutę galite įdėti į naują eilutę arba pastraipą, naudodami funkciją „vbNewLine“, „vbCrLf“, „vbCr“ arba „Chr“. Šis kodas parodo, kaip kiekvieną teksto eilutę įdėti į naują eilutę:
| 123456789101112131415161718 | Sub PuttingEachTextStringOnANewLine ()„Dim StringOne“ kaip eilutėDim StringTwo As StringTrijų kaip eilutėDim StringFour As StringPigiai kaip eilutėStringOne = "Tai pirmoji eilutė"StringTwo = "Tai yra antroji eilutė"StringThree = "Tai yra trečioji eilutė"StringFour = "Tai ketvirtoji eilutė"StringFive = "Tai penktoji eilutė"MsgBox StringOne & vbNewLine & StringTwo & vbCrLf & StringThree & vbCr & StringFour & Chr (13) & StringFivePabaiga Sub |
Rezultatas yra toks:
