function - 访问 VBA - 从函数内更改 TextBox 值 (ByRef)

Question

我正在尝试编写一个将获取两个参数的子程序 - 表单中的文本框和文本。我的目的是该函数会将文本附加到任何文本框中。

Sub AppendTextBox([any textbox in my form], text As String)

[code that appends the text parameter to the textbox]

End Sub

请注意，我并不是试图将文本附加到特定的文本框，而是创建一个可以接收表单中的任何文本框并将其附加到任何文本的函数。

感谢您的帮助。

Answer 1

我找到了答案，它比我想象的要简单得多:

Private Sub AAA(A)

A.Value = "Desired text"

End Sub

或者如果您想附加:

Private Sub AAA(A)

A.Value = A.Value & vbnewline & "Desired text"

End Sub