Als je met strings in VBA werkt, gebruik dan vbNewLine, vbCrLf of vbCR om een regeleinde / nieuwe alinea in te voegen.
In dit artikel wordt ook besproken hoe u het regelvervolgteken kunt gebruiken om een instructie in uw eigenlijke VBA-code op een nieuwe regel voort te zetten.
vbNewLine gebruiken
De volgende code laat zien hoe u vbNewLine zou gebruiken om de tweede tekstreeks op een nieuwe regel in het venster Onmiddellijk te plaatsen:
1234567891011 | Sub met behulp van vbNewLine()Dim StringOne As StringDim StringTwo As StringStringOne = "Dit is String One"StringTwo = "Dit is String Twee"Debug.Print StringOne & vbNewLine & StringTwoEinde sub |
Het resultaat is:
vbCrLf gebruiken
De volgende code laat zien hoe je vbCrLf zou gebruiken om de tweede tekststring op een nieuwe regel in een vorm te plaatsen:
123456789101112131415 | Sub met behulp van vbCrLf()Dim StringOne As StringDim StringTwo As StringStringOne = "Dit is String One"StringTwo = "Dit is String Twee"ActiveSheet.Shapes.AddShape(msoShapeRectangle, 15, 15, 100, 50).SelecterenMet selectie.Characters.Text = StringOne & vbCrLf & StringTwoEindigt metEinde sub |
Het resultaat is:
vbCR . gebruiken
De volgende code laat zien hoe u vbCR zou gebruiken om de tweede tekstreeks op een nieuwe regel in een berichtvenster te plaatsen:
1234567891011 | Sub met behulp van vbCR()Dim StringOne As StringDim StringTwo As StringStringOne = "Dit is String One"StringTwo = "Dit is String Twee"MsgBox StringOne & vbCr & StringTwoEinde sub |
Het resultaat is:
Voortzetting van een verklaring in VBA
U kunt het vervolgteken van de regel ("_" ook wel het onderstrepingsteken genoemd) gebruiken om een verklaring van de ene regel naar de volgende in uw VBA-code voort te zetten. De volgende code laat zien hoe u het lijnvervolgteken gebruikt:
12345 | SublijnVervolg ()If Range ("b1"). Waarde > 0 Dan _Bereik ("c1"). Waarde = "Groter dan nul"Einde sub |