スピンボタンの最大値を、増分にあわせて変化させたい

質問

エクセルにて、フォームで配置した、３つのスピンボタンの最大値を、他のボタンの増減や、初期値によって変化させたいと考えています。

　　　A　 ｜　　　　B　　　　 ｜　　 C　　｜　D　　｜
【初期値】｜【リンクするセル】｜【最大値】｜【A+B】｜ボタン
【初期値】｜【リンクするセル】｜【最大値】｜【A+B】｜ボタン
【初期値】｜【リンクするセル】｜【最大値】｜【A+B】｜ボタン
　　　　　｜【Bの合計】　　　 ｜

【振り分けれる最大値】

例）
　　　A　 ｜　　　B　　 ｜　 C　　｜　D　 ｜
　５０　　｜　１　　　　｜　４９　｜　５１｜
　６０　　｜　　　　　　｜　４９　｜　６０｜
　５０　　｜　５０　　　｜　　０　｜１００｜
　　　　　｜　５１　　　｜

　４９
元の最大値＝１００、振り分けれる最大値＝１００のとき、B1に１、B3に５０振り分けるようにスピンボタンを動作させたときに求められる最大値C1～３にあわせてスピンボタンの最大値を変更させて指定し、それを超えて入力できないようにすることはできないでしょうか？

当方、WinXP、エクセル２００３、マクロに関しては、マクロの記録を訂正して使う程度の知識です。

回答No.2

hige_082

もう少しスキルを上げないと無理かも
マクロ自体は
SpinButton1.Max = Range("C1").Value
SpinButton2.Max = Range("C2").Value
SpinButton3.Max = Range("C3").Value
と、簡単なものですが、これをどこに書くかが問題です
＞マクロの記録を訂正して使う程度の知識です。
では、無理だと思います

私が思う一番簡単な方法は、ボタンを作成し
ボタンの右クリックメニューのコードの表示を選択
現れた画面のカーソルの位置へ
何も考えず、上の３行のマクロをコピペ

最大値の値を変更したらボタンを押せば値が更新されます
ただし、条件があり同じシート上に、ボタン、スピンボタン、最大値の値が無ければエラーになります

回答No.1

mitarashi

ご質問の内容は把握し切れておりませんが、参考URLの通り、最大、最小値をVBAのコードで、他のスピンボタン操作のイベントなどから設定してやれば良いのではないでしょうか。

参考URL：

http://home.att.ne.jp/zeta/gen/excel/c04p38.htm