Dirbdami su eilutėmis VBA, naudokite „vbNewLine“, „vbCrLf“ arba „vbCR“, kad įterptumėte eilutės lūžį / naują pastraipą.
Šiame straipsnyje taip pat bus aptarta, kaip naudoti eilutės tęsinio simbolį, kad naujoje eilutėje būtų tęsiamas faktinio VBA kodo teiginys.
„VbNewLine“ naudojimas
Šis kodas parodo, kaip galėtumėte naudoti „vbNewLine“, kad antrą teksto eilutę įdėtumėte į naują eilutę nedelsiant:
1234567891011 | Naudojant „vbNewLine“ ()„Dim StringOne“ kaip eilutėDim StringTwo As StringStringOne = "Tai viena eilutė"StringTwo = "Tai yra antra eilutė"Derinti. Spausdinti „StringOne“ ir „vbNewLine & StringTwo“Pabaiga Sub |
Rezultatas yra toks:
Naudojant vbCrLf
Šis kodas parodo, kaip galėtumėte naudoti „vbCrLf“, kad antroji teksto eilutė būtų įdėta į naują formos eilutę:
123456789101112131415 | Sub, naudojant „vbCrLf“ ()„Dim StringOne“ kaip eilutėDim StringTwo As StringStringOne = "Tai viena eilutė"StringTwo = "Tai yra antra eilutė"ActiveSheet.Shapes.AddShape (msoShapeRectangle, 15, 15, 100, 50). PasirinkiteSu atranka.Characters.Text = StringOne & vbCrLf & StringTwoPabaiga suPabaiga Sub |
Rezultatas yra toks:
Naudojant vbCR
Šis kodas parodo, kaip galėtumėte naudoti „vbCR“, kad antroji teksto eilutė būtų įtraukta į naują pranešimų laukelio eilutę:
1234567891011 | Naudojant „vbCR“ ()„Dim StringOne“ kaip eilutėDim StringTwo As StringStringOne = "Tai yra viena eilutė"StringTwo = "Tai yra antra eilutė"„MsgBox StringOne“ ir „vbCr & StringTwo“Pabaiga Sub |
Rezultatas yra toks:
Tęsdamas pareiškimą VBA
Norėdami tęsti teiginį iš vienos eilutės į kitą savo VBA kode, galite naudoti eilutės tęsinio simbolį („_“, dar vadinamą pabraukimu). Šis kodas parodo, kaip naudoti eilutės tęsinio simbolį:
12345 | Antrinė eilutė Tęsinys ()Jei diapazonas ("b1"). Reikšmė> 0 Tada _Diapazonas ("c1"). Vertė = "Didesnis nei nulis"Pabaiga Sub |