Excelのスピンボックスについて

ユーザフォームではなくワークシート上にスピンボックスを配置した場合の話です。
例えばセルB3に入力されている値をスピンボックスを使って、上矢印をクリックすればB3の値が1づつ上がる。逆に下矢印をクリックすればB3の値が１づつ下がる。というようなものにしたいのですが、以下のように値を増やすコードと値を減らすコードを作成しても右クリック->マクロの登録では1つのマクロしか登録できません。
どうすればそれぞれのボタンにマクロを登録することができるのでしょうか。

Dim up As Integer
up = Range("F5").Value
up = up + 1
Range("F5") = up

Dim down As Integer
down = Range("F5").Value
down = down - 1
Range("F5") = down

No.1 ベストアンサー 回答者： M-SOFT#2 回答日時： 2006/05/13 22:46

こんばんは。

フォームのスピンボタンであればマクロはいりません。コントロールの書式設定でリンクするセルを設定すればクリックするたびに数値が増減します。

配置したスピンボタンを右クリックして「コントロールの書式設定」を選びます。

コントロールタブで「リンクするセル」をクリックし、希望のセルをクリックします。

後は最大・最小・変化の増分等色々と設定して試してください。

この回答へのお礼

回答ありがとうございます。

コントロールの書式設定で増減値だとかを簡単に設定できたのですね。

お礼日時：2006/05/14 09:52

No.2 回答者： imogasi 回答日時： 2006/05/13 23:16

１つめのスピンボタンの

コントロールのプロパティ(右クリック）で
LinkedCellにA5セルを指定
SmallChangeプロパテイに２　を設定。
２つめのスピンボタンの
コントロールのプロパティで
LinkedCellにA6セルを指定
SmallChangeプロパテイに５　を設定。
これで１つめをクリックするとA5の値が２づつ
２つめをクリックするとA6の値が５づつアップ（ダウン）します。
質問は、こういうことでしょう。
もちろんコードで指定もできるはずですが。
Sub test01()
Worksheets("Sheet4").SpinButton1.SmallChange = 3
End Sub

この回答へのお礼

回答ありがとうございます。

1つづつ丁寧な説明をありがとうございます、とても参考になりました。

お礼日時：2006/05/14 09:53