VBA Nueva línea / Retorno de carro
Cuando trabaje con cadenas en VBA, utilice vbNewLine, vbCrLf o vbCR para insertar un salto de línea / nuevo párrafo. Este artículo también discutirá cómo utilizar el carácter de continuación de línea con el fin de continuar una declaración en su código VBA real en una nueva línea.
Uso de vbNewLine
El siguiente código muestra cómo usar vbNewLine para poner la segunda cadena de texto en una nueva línea en la ventana Inmediata:
Sub Usando_vbNewLine()
Dim cadena1 As String
Dim cadena2 As String
cadena1 = "Esta es la cadena uno"
cadena2 = "Esta es la cadena dos"
Debug.Print cadena1 & vbNewLine & cadena2
End Sub
El resultado es:
Usando vbCrLf
El siguiente código muestra cómo se usaría vbCrLf para poner la segunda cadena de texto en una nueva línea en una forma:
Sub UsandovbCrLf()
Dim cadena1 As String
Dim cadena2 As String
cadena1 = "Esta es la cadena uno"
cadena2 = "Esta es la cadena dos"
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 15, 15, 100, 50).Select
With Selection
.Characters.Text = cadena1 & vbCrLf & cadena2
End With
End Sub
El resultado es:
Usando vbCR
El siguiente código muestra cómo usar vbCR para poner la segunda cadena de texto en una nueva línea en un cuadro de mensaje:
Sub usando_vbCR()
Dim cadena1 As String
Dim cadena2 As String
cadena1 = "Esta es la cadena uno"
cadena2 = "Esta es la cadena dos"
MsgBox cadena1 & vbCr & cadena2
End Sub
El resultado es:
Continuación de una sentencia en VBA
Puede utilizar el carácter de continuación de línea («_», también conocido como guión bajo) para continuar una sentencia de una línea a la siguiente en su código VBA. El siguiente código muestra cómo utilizar el carácter de continuación de línea:
Sub continuacion_de_linea()
If Range("b1").Valor > 0 Then _
Range("c1").Value = "Mayor que cero"
End Sub
VBA Coding Made Easy
Stop searching for VBA code online. Learn more about AutoMacro - A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users!Learn More!