ユーザーフォームにスクロールバーを配置

Excel のユーザーフォームに配置できる「スクロールバー」。
今まで、「何に使うんだろう」と思っていた。ListBoxなどは、表示内がはみ出せば、勝手にスクロールバーが現れてくれる。

ところが、最近のこと。どこかで見かけたのが脳裏に残っていたのか、
「スクロールさせる以外にも使いどころがあるのでは？」
と気づいてしまった。

例えば、こんな感じ。

ユーザーフォーム

コードは、至ってシンプルだ。
まずは、ユーザーフォームの初期化。ラベルの値を０にする。

Option Explicit
Private Sub UserForm_Initialize()
    Label1.Caption = 0
End Sub

ついで、スクロールバーの移動結果をラベルに表示させる。

Private Sub ScrollBar1_Change()
    Label1.Caption = ScrollBar1.Value
End Sub

これは、何かと使い勝手がありそうだ。

範囲を０～１００に設定して、百分率と連動させても面白そうだ。

Private Sub ScrollBar1_Change()
    ScrollBar1.Min = 0
    ScrollBar1.Max = 100
    Label1.Caption = ScrollBar1.Value
End Sub

これは色々と、楽しいことが出来そうです。

参考まで。