Excel ユーザーフォームにスクロールバーを表示する-ScrollBars

Excelで、ユーザーフォームに縦や横のスクロールバーを表示する方法の記録です。

ユーザーフォームにスクロールバーを表示させるには「ScrollBars」プロパティを使います。

手動で設定する方法とVBAで設定する方法です。

< スポンサーリンク >

手動でスクロールバーを表示、非表示にする設定

ユーザーフォームをアクティブにし、プロパティウィンドウのボタンをクリックします。

スクロールバー非表示

プロパティウィンドウの「ScrollBars」欄の「0 – fmScrollBarsNone」を選択します。

横のスクロールバー表示

プロパティウィンドウの「ScrollBars」欄の「1 – fmScrollBarsHorizontal」を選択します。

縦のスクロールバー表示

プロパティウィンドウの「ScrollBars」欄の「2 – fmScrollBarsVertical」を選択します。

縦と横のスクロールバー表示

プロパティウィンドウの「ScrollBars」欄の「3 – fmScrollBarsBoth」を選択します。

VBAでスクロールバーを表示、非表示にする設定

VBAで「Initialize」イベントを使ってみます。

ユーザーフォームをダブルクリックします。

右側のプロシージャボックスで「Initialize」を選択します。

スクロールバー非表示

Private Sub UserForm_Initialize()
    UserForm1.ScrollBars = fmScrollBarsNone
End Sub

横のスクロールバー表示

Private Sub UserForm_Initialize()
    UserForm1.ScrollBars = fmScrollBarsHorizontal
End Sub

縦のスクロールバー表示

Private Sub UserForm_Initialize()
    UserForm1.ScrollBars = fmScrollBarsVertical
End Sub

縦と横のスクロールバー表示

Private Sub UserForm_Initialize()
    UserForm1.ScrollBars = fmScrollBarsBoth
End Sub