スピンボタン－ActiveXコントロールの使用方法

Word2013のActiveXコントロール　スピンボタンの使用サンプルです。

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

シートをドラッグしスピンボタンを配置します。次に［コードの表示］をクリックします。

WorkBookが開いた時に発生するOpenイベントに下記のコードを入力します。

Private Sub Workbook_Open()
    Sheet1.SpinButton1.Min = 1
    Sheet1.SpinButton1.Max = 31
End Sub

• MINで最小値を設定します。ここでは1
• MAXで最大値を設定します。ここでは31

スピンボタンがクリックされ変更された時に発生する、Changeイベントに下記のコードを入力します。

Private Sub SpinButton1_Change()
    Range("C3") = SpinButton1.Value
End Sub

C3セルにスピンボタンの値を代入します。

スピンボタンをクリックすると、C3セルに値が表示されます。