【ExcelVBA フォーム＆コントロール】スクロールバーの値とラベルの表示を連動させる方法を教えて！

構文

構文は以下の通りです。

Private Sub ScrollBar1_Change()
    ' スクロールバーが変更された時の処理
    Label1.Caption = ScrollBar1.Value
End Sub

解説

スクロールイベントを使用してスクロールバーの値を取得し、結果をラベルに表示します。ラベルに取得した値を表示するには、Captionプロパティを使用します。スクロールバーのスクロール位置を表す値を取得するには、Valueプロパティを使用します。スクロールバーをスクロールすることで、Valueプロパティの値が変更されます。Valueプロパティの値が変更されると、Changeイベントが発生し、「スクロール値を表示しているラベルの表示を変更する」といった処理が実行されます。

使い方

具体的な使い方を紹介します。

Private Sub ScrollBar1_Change()
    Dim scrollValue As Integer
    scrollValue = ScrollBar1.Value
    Label1.Caption = "値: " & scrollValue
End Sub

この例では、ScrollBar1がスクロールバー、Label1がラベルに対応しています。スクロールバーが変更されると、その値がラベルに表示されます。

プログラミング例

以下に、プログラミング例を紹介します。

（例1）フォーマットを変更して表示

Private Sub ScrollBar1_Change()
    Dim scrollValue As Integer
    scrollValue = ScrollBar1.Value
    Label1.Caption = "Progress: " & Format(scrollValue, "0%")
End Sub

この例では、スクロールバーの値をパーセンテージとして表示します。Format関数を使用して値をパーセント形式に変換しています。

（例2）範囲の制限

Private Sub ScrollBar1_Change()
    Dim scrollValue As Integer
    scrollValue = ScrollBar1.Value
    ' 値を0から100の範囲に制限する
    If scrollValue < 0 Then scrollValue = 0
    If scrollValue > 100 Then scrollValue = 100
    Label1.Caption = "Value: " & scrollValue
End Sub

この例では、スクロールバーの値を0から100の範囲に制限して表示します。これにより、範囲外の値が表示されることを回避できます。

（例3）カスタムメッセージ

Private Sub ScrollBar1_Change()
    Dim scrollValue As Integer
    scrollValue = ScrollBar1.Value
    ' カスタムメッセージの表示
    Select Case scrollValue
        Case 0 To 30
            Label1.Caption = "初めてのスクロール！"
        Case 31 To 70
            Label1.Caption = "進捗中..."
        Case 71 To 100
            Label1.Caption = "ほぼ完了！"
    End Select
End Sub

この例では、スクロールバーの値に基づいて異なるメッセージを表示します。スクロールの進捗に合わせてユーザーにカスタムメッセージを提供します。

まとめ

スクロールバーのChangeイベントを利用して値を取得し、それをラベルに表示することで、ユーザーとの対話を高め、データの可視化やユーザーエクスペリエンスの向上に寄与します。是非活用してください。