Excel VBA TextBox控件的滚动条不能刷新

问题：Excel中Textbox控件以及Form里的Textbox控件，当直接填充的内容很长时，滚动条不能实时刷新。

现象：





修改后：





原因：

虽然已经向Textbox的Text里设置了内容，但此时Textbox并没有被激活，焦点也没有变化，所以，Textbox的滚动条没有被刷新出来。

修改后的VBA程序：

-----------------------ActiveX Textbox--------------------------

Private Sub CommandButton1_Click()

TextBox1.Value = "safdasfgsdfgfhfgjhfjfghjfhjfg" _
& Chr(10) _
& "1234567890" _
& Chr(10)

'    IF the text length is long enough, ENABLE the Textbox's scroll bar
TextBox1.Activate
'    Set the current select line: 0
TextBox1.CurLine = 0

End Sub

-----------------------Form Textbox--------------------------

Private Sub CommandButton1_Click()

TextBox1.Value = "safdasfgsdfgfhfgjhfjfghjfhjfg" _
& Chr(10) _
& "1234567890" _
& Chr(10)

'    IF the text length is long enough, ENABLE the Textbox's scroll bar
TextBox1.SetFocus
'    Set the current select line: 0
TextBox1.SelStart = 0

End Sub

知识点：

ActiveX Textbox中的 TextBox1.Activate 和 Form Textbox的 TextBox1.SetFocus功能相同