スクロールバー－ActiveXコントロールの使用方法

Excel2013のActiveXコントロール　スクロールバーの使用方法です。

リボンの［開発］－［挿入］－［スクロールバー（ActiveXコントロール）］をクリックします。

シート上をドラッグしスクロールバーを配置、リボンの［コードの表示］をクリックします。

Workbook_Openイベントに、スクロールバーの最小値と最大値を設定します。

Private Sub Workbook_Open()
    Sheet1.ScrollBar1.Min = 0
    Sheet1.ScrollBar1.Max = 200
End Sub

• 最小値は、Minで行います。
• 最大値は、Maxで行います。

ScrollBar1_Changeイベントに、スクロールバーの位置が変更されるとセルに値を表示するようにします。

Private Sub ScrollBar1_Change()
    Range("B6") = ScrollBar1.Value
End Sub

実行画面です。スクロールバーをスクロールさせるとB6セルに値が表示されます。