Excel VBA文本框自动滚动到底部

所以我有一个用户窗体里面的文本框和一个垂直滚动条。 作为一个macros，文本将以下列方式附加到文本框中：

UserForm1.TextBox1.Value = UserForm1.TextBox1.Value & "**Opened file " & i & "**" & vbNewLine 

但问题是当显示的文本太多时，滚动条出现，但不会向下滚动以显示添加的文本。 但是我需要在运行macros的过程中看到文本。 我试过了

 UserForm1.TextBox1.CurLine = -1 

和

 UserForm1.TextBox1.CurLine = UserForm1.TextBox1.LineCount-1 

但似乎都没有工作。 我该怎么做？

Answer 1

这里是答案

使用文本框自动滚动到底部

 AppendText "Bla de bla bla." sub AppendText(strText As String) with txtStatus .setfocus '//required .value = .value & strText & vbNewLine .selstart = len(.Value) end with end sub