Excel 滚动条设置

Excel 滚动条设置,excel,vba,Excel,Vba,我在Excel工作表中使用了一个包含大量文本的文本框,因此我使用了垂直滚动条。但是,首次打开文档时,滚动条不可见。您必须单击文本框才能看到它滚动 是否有任何方法可以使滚动条在文档打开后立即可见 此外,当您在框中单击时,滚动条将捕捉到底部。。。我怎样才能使它保持在顶端 这就是我的工作表的样子 选项A文本框位于工作表中 您可以通过在工作簿\打开代码中设置它来实现所需的功能。将Sheet1更改为文本框所在的任何工作表 Option Explicit Private Sub Workbook_Open

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

是否有任何方法可以使滚动条在文档打开后立即可见

此外,当您在框中单击时,滚动条将捕捉到底部。。。我怎样才能使它保持在顶端

这就是我的工作表的样子

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

您可以通过在工作簿\打开代码中设置它来实现所需的功能。将Sheet1更改为文本框所在的任何工作表

Option Explicit

Private Sub Workbook_Open()
    With Sheets("Sheet1")
        .TextBox1.Activate
        DoEvents
        .TextBox1.SelStart = 0
    End With
End Sub
选项B文本框的格式为Userform

使用UserForm\u初始化事件


这是什么应用程序?你说的是用户表单还是?请稍微澄清一下您的问题。如果是用户表单,请尝试以下TextBox1.SetFocus:DoEvents:TextBox1.SelStart=0@TimWilliams这是excel。我对它不是很熟悉,所以我不知道你所说的userform是什么意思。我插入了一个ActiveX文本框,并在该文本框的属性中打开了一个垂直滚动条。@SiddharthRout我刚刚将其放入VBA?@SiddharthRout这是我的示例文件-
Option Explicit

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

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