教えて!ExcelVBA!

ExcelVBAの基礎知識・書き方について紹介します。

ExcelVBAでフォーム内のスクロールバーに最大値と最小値を設定する方法

構文

構文は以下の通りです。

スクロールバー名.Min = 最小値  
スクロールバー名.Max = 最大値

解説

スクロールバー名.Minとスクロールバー名.Maxは、フォーム上に配置されたスクロールバーの最小値と最大値を設定することができます。最小値はスクロールバーが到達できる最も低い値を、最大値は最も高い値を指定します。

プログラミング例

具体的なプログラミング例を紹介します。

Private Sub UserForm_Initialize()
    ' スクロールバーの最小値を0に設定
    スクロールバー1.Min = 0  
    ' スクロールバーの最大値を100に設定
    スクロールバー1.Max = 100
End Sub

上記のプログラムは、フォームが初期化されるとき(表示される前)に、UserForm_Initializeイベントが実行されます。スクロールバー1.Min = 0 により、スクロールバーの最小値が0に設定されます。スクロールバー1.Max = 100 により、最大値が100に設定されます。この設定により、スクロールバーのつまみを動かすことで、0から100までの範囲で値を選択できるようになります。

まとめ

最小値を設定することで、スクロールバーの最も低い値を決め、最大値は最も高い値を指定します。