Când lucrați cu șiruri în VBA, utilizați vbNewLine, vbCrLf sau vbCR pentru a insera o întrerupere de linie / un nou paragraf.
Acest articol va discuta, de asemenea, cum să utilizați caracterul de continuare a liniei pentru a continua o declarație în codul dvs. VBA real pe o nouă linie.
Folosind vbNewLine
Următorul cod vă arată cum ați utiliza vbNewLine pentru a pune al doilea șir de text pe o nouă linie în fereastra Imediat:
1234567891011 | Sub Utilizarea vbNewLine ()Dim StringOne As StringDim StringTwo As StringStringOne = "Acesta este șirul unu"StringTwo = "Acesta este șirul doi"Debug.Print StringOne & vbNewLine & StringTwoSfârșitul Sub |
Rezultatul este:
Folosind vbCrLf
Următorul cod vă arată cum ați utiliza vbCrLf pentru a pune al doilea șir de text pe o nouă linie într-o formă:
123456789101112131415 | Sub Utilizarea vbCrLf ()Dim StringOne As StringDim StringTwo As StringStringOne = "Acesta este șirul unu"StringTwo = "Acesta este șirul doi"ActiveSheet.Shapes.AddShape (msoShapeRectangle, 15, 15, 100, 50). SelectațiCu Selecție.Characters.Text = StringOne & vbCrLf & StringTwoSe termina cuSfârșitul Sub |
Rezultatul este:
Folosind vbCR
Următorul cod vă arată cum ați utiliza vbCR pentru a pune al doilea șir de text pe o nouă linie într-o casetă de mesaj:
1234567891011 | Sub Utilizarea vbCR ()Dim StringOne As StringDim StringTwo As StringStringOne = "Acesta este șirul unu"StringTwo = "Acesta este șirul doi"MsgBox StringOne & vbCr & StringTwoSfârșitul Sub |
Rezultatul este:
Continuarea unei declarații în VBA
Puteți utiliza caracterul de continuare a liniei („_” aka subliniul) pentru a continua o instrucțiune de la o linie la alta în codul dvs. VBA. Următorul cod vă arată cum să utilizați caracterul de continuare a liniei:
12345 | Sub LineContinuation ()Dacă Range ("b1"). Valoare> 0 Atunci _Gama ("c1"). Valoare = "Mai mare decât zero"Sfârșitul Sub |