Podczas pracy z ciągami w VBA użyj vbNewLine, vbCrLf lub vbCR, aby wstawić podział wiersza / nowy akapit.
W tym artykule omówiono również, jak używać znaku kontynuacji wiersza w celu kontynuowania instrukcji w rzeczywistym kodzie VBA w nowym wierszu.
Korzystanie z vbNewLine
Poniższy kod pokazuje, jak użyć vbNewLine, aby umieścić drugi ciąg tekstowy w nowej linii w oknie bezpośrednim:
1234567891011 | Sub za pomocą vbNewLine()Dim StringOne As StringDim StringDwa jako ciągStringOne = "To jest String One"StringTwo = "To jest String Dwa"Debug.Print StringOne & vbNewLine & StringTwoNapis końcowy |
Wynik to:
Korzystanie z vbCrLf
Poniższy kod pokazuje, jak użyć vbCrLf, aby umieścić drugi ciąg tekstowy w nowej linii kształtu:
123456789101112131415 | Sub za pomocą vbCrLf()Dim StringOne As StringDim StringDwa jako ciągStringOne = "To jest String One"StringTwo = "To jest String Dwa"ActiveSheet.Shapes.AddShape(msoShapeRectangle, 15, 15, 100, 50). WybierzZ zaznaczeniem.Characters.Text = StringOne & vbCrLf & StringTwoKończyć zNapis końcowy |
Wynik to:
Korzystanie z vbCR
Poniższy kod pokazuje, jak użyć vbCR, aby umieścić drugi ciąg tekstowy w nowym wierszu w oknie komunikatu:
1234567891011 | Sub za pomocą vbCR()Dim StringOne As StringDim StringDwa jako ciągStringOne = "To jest String One"StringTwo = "To jest String Dwa"MsgBox StringOne & vbCr & StringTwoNapis końcowy |
Wynik to:
Kontynuacja oświadczenia w VBA
Możesz użyć znaku kontynuacji wiersza („_” czyli podkreślenia), aby kontynuować instrukcję od jednego wiersza do następnego w kodzie VBA. Poniższy kod pokazuje, jak używać znaku kontynuacji wiersza:
12345 | PodliniaKontynuacja ()Jeśli Zakres("b1").Wartość > 0 Wtedy _Range("c1").Value = "Większe niż zero"Napis końcowy |