Excel - テキストボックスにスクロールバーを表示する

スクロールバーを表示するには、ScrollBarsプロパティに設定します。
表示させるには、MultiLine を True にセットしておく必要があります。
又、横スクロールバーを表示するには、WordWrap を False にセットしておく必要があります。

■ScrollBarsプロパティの定数
fmScrollBarsNone ： 0 スクロールバーを表示しない (既定値)。
fmScrollBarsHorizontal ： 1 水平スクロールバーを表示
fmScrollBarsVertical ： 2 垂直スクロールバーを表示
fmScrollBarsBoth ： 3 水平スクロールバーと垂直スクロールバーの両方を表示

実行画面

スクロールバーなしの画面
テキスト入力ソフト

水平スクロールバーのみの画面
スクロールバーの表示方法を選択

垂直スクロールバーのみの画面
スクロールバーを使ったメモ入力

水平・垂直スクロールバーの画面
テキストボックスに水平垂直スクロールバーを表示させる

実行VBAコード

Option Explicit

'なし
Private Sub OptionButton1_Change()
    If OptionButton1 Then
        TextBox1.ScrollBars = fmScrollBarsNone
    End If
End Sub

'水平
Private Sub OptionButton2_Change()
    If OptionButton2 Then
        TextBox1.ScrollBars = fmScrollBarsHorizontal
    End If
End Sub

'垂直
Private Sub OptionButton3_Change()
    If OptionButton3 Then
        TextBox1.ScrollBars = fmScrollBarsVertical
    End If
End Sub

'両方
Private Sub OptionButton4_Change()
    If OptionButton4 Then
        TextBox1.ScrollBars = fmScrollBarsBoth
    End If
End Sub

Private Sub UserForm_Initialize()
    '複数行入力
    TextBox1.MultiLine = True
    '折り返しなし
    TextBox1.WordWrap = False
End Sub

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します