スピンボタンのリンクするセルを相対的に指定する方法

質問

現在、Excel2010を使って、タッチパネルを想定した処理表を作っているのですが、
一つ問題に当たっています。

スピンボタンを作成し、ボタンを押すとその右隣のセルの数値が増減されるようにしたいのですが、
コントロールの書式設定でリンクするセルを設定しても、絶対参照になり、
他の場所にスピンボタンを移した時や、大量にスピンボタンをコピーした時に、
その都度、参照先を変更しなければならず、思い通りのシステムを構築できません。

どなたか、ボタンをどの場所に移動しても、また、大量にコピーをしても
必ずその右隣の数値が変更できるように、リンクするセルを相対的に指定する方法を
ご存知ないでしょうか？よろしくお願いします。m(_ _)m

回答No.1

keithin · ベストアンサー

＞リンクするセルを相対的に指定する方法

はありませんので、代わりにマクロを併用します。

手順：
「フォームコントロールのスピンボタン」を１個セル内に配置する
リンクするセルは設定しない

ＡＬＴ＋Ｆ１１を押す
現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

sub macro1()
　with activesheet.shapes(application.caller)
　　.topleftcell.offset(0, 1) = .oleformat.object.value
　end with
end sub

ファイルメニューから終了してエクセルに戻る
スピンボタンを右クリックしてマクロの登録を開始、macro1を登録する

マクロを登録したスピンボタン「が載っているセル」ごとコピーして複製する。

＃補足
エクセルには「フォームコントロール」と「ActiveXコントロール」の２種類のスピンボタンがあります。
ご相談に添付された画像はActiveXコントロールのスピンボタンですが、「コントロールの書式設定」でリンクするセルを設定できるのは、フォームコントロールのスピンボタンです。いったいどっちなんでしょうか。

具体的にどちらを使っているのか、使いたい何か理由があるのかに応じて、出来る事や出来ない事、具体的な使い方も違います。当然寄せられた回答でも間違ったやりかたではできませんので、注意してください。

お礼

素早い回答ありがとうございます。
早速、スピンボタンに上記のマクロを登録してみたところ、
オートフィルでコピーをしても見事に動作しました。

今まで膨大な量のスピンボタン一つ一つにリンクセルを登録していた労力がなくなり、
絶対参照によるレイアウト上の制約が解けて思い通りの表が作れそうです。

ちなみに、上記の画像はフォームコントロールの画像なのですが、
自分自身が「フォームコントロール」と「ActiveXコントロール」の違いを
あまりわかっていません。。
それでも、タッチ操作で数値が変われば目的は達成されるので、
今回の回答は非常にありがたいです。

本当にありがとうございました！m(_ _)m