excel - 滚动条设置

Question

我在 Excel 工作表中使用包含大量文本的文本框，因此有垂直滚动条。但是，当您第一次打开文档时，滚动条不可见。您必须单击文本框才能看到它滚动。

有没有办法让文档一打开就可以看到滚动条？

此外，当您单击该框时，滚动条会捕捉到底部...我怎样才能使其保持在顶部？

这就是我的工作表的样子。

Answer 1

选项 A 文本框位于工作表中

您可以通过在Workbook_Open代码中设置来实现您想要的效果。将 Sheet1 更改为文本框所在的任何工作表。

Option Explicit

Private Sub Workbook_Open()
    With Sheets("Sheet1")
        .TextBox1.Activate
        DoEvents
        .TextBox1.SelStart = 0
    End With
End Sub

---

选项 B 文本框位于用户表单中

使用UserForm_Initialize事件

Option Explicit

Private Sub UserForm_Initialize()
    'TextBox1.Text = [a1].Value ' For testing

    TextBox1.SetFocus: DoEvents: TextBox1.SelStart = 0
End Sub