Настройки полосы прокрутки

Question

Я использую текстовое поле с большим количеством текста в Excel 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 TextBox находится в пользовательской форме

Используйте событие UserForm_Initialize

Option Explicit

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

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