Excel Vba 文本框段落

Question

我正在创建一个仅用作指导线的文本框，我的文本框具有多行且 Enterkeybehaviour= True。

TextBox2 从 TextBox1 获取值，现在我有 TextBox2 = TextBox1，我需要一个回车符，以便下一个输入的值将转到 TextBox2 第二行。

例如，我在 TextBox1 上写了一些内容，然后按 Enter 键，文本将转到 TextBox2 并执行一个段落。不能不覆盖，因为该过程可以重复。

Answer 1

插入带有常量的回车符

vbCr

。

myString = "First line." & vbCr & "Second line."

如果您想要换行而不是回车，那就是

vbLf

。两者加起来就是

vbCrLf

。

Answer 2

TextBox2.Text = TextBox1.Text & VbLf & "Something"

或

TextBox2.Text = TextBox1.Text &  chr(13) & "Something"

---

还有一些最小的例子：

Option Explicit

Sub TestMe()

    Dim someVar As String
    someVar = "ale"
    someVar = someVar & vbLf & "Something"

    MsgBox someVar

End Sub

Answer 3

试试这个：

Textbox2.Value = Textbox2.Value & vbLf & Textbox1.Value

如果您希望避免无缘无故地在 Textbox2 开头添加回车符，那么：

If Not Textbox2.Value = "" Then
    Textbox2.Value = Textbox2.Value & 
    vbLf & Textbox1.Value
    Else Textbox2.Value = 
    Textbox1.Value
End if