• ベストアンサー

1つのスピンボタンで複数のセルの数字を変更

Excel2003での質問なのですが、 スピンボタンのリンク先を複数のセルに指定したいのですが、やり方がわからずに困っています。 具体的には 3つのセルの値を1つのスピンボタンで加減するように組みたいのです A1 B1 C1 ▲ 1  5  6 ▼ A1、B1,C1を個々で+-するスピンボタンを作りたいのですが よろしくお願いします

質問者が選んだベストアンサー

  • ベストアンサー
  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.2

質問のお宮意図が伝わらない。 3セルとも一律同時に+-1すれば良いケースは考えにくいが、そんなことを望んでいるのか。 出なければ1つのスピンボタンをドノセルに聞かして居るか区別が必要でしょう。それをどうするのか。 いつもアクチブセルに対して行うで良いなら 各々のイベントに Private Sub SpinButton1_SpinDown() ActiveCell = ActiveCell - 1 End Sub ーー Private Sub SpinButton1_SpinUp() ActiveCell = ActiveCell + 1 End Sub を入れておけばよいのかな。 ーー しかし文字のセルでこれをやるとエラーになる。 だからセルの値がIsNumericかのチェックをかける必要があるかも。 また思わぬセルクォアクチブにして、上下ボタンをクリックしたら操作者の予想外のことになって混乱すると思うが。 そういう説明・周知も部外者には面倒であろう。

moon8888
質問者

お礼

ありがとうございました。

moon8888
質問者

補足

説明が不足してたようです。例えば3つのセルに数字が入力されていて A1 B1 C1 ▲ 1  5  6 ▼ 初めにA1のセルをクイックして1から2へ 次にB1のセルをクイックして5から6へと 一つのスピンボタンで複数のセルの数字を変えたいのです。 初心者なので上手く表現できません すみませんでした

その他の回答 (1)

  • keithin
  • ベストアンサー率66% (5278/7940)
回答No.1

コントロールツールボックスではなくフォームツールバーにあるスピンボタンを使用しているとします。 ごくシンプルには,スピンボタンの「リンクするセル」をA1セルに設定しておけば, B1は =A1+4 あるいは =A1+別途のセルに記入した初期値 あるいは =A1*倍率+初期値 同様に C1にも =A1+5 あるいは =A1+初期値 あるいは =A1*倍率+初期値 といった数式を記入しておくことで,連動した値を計算で表示させることが出来ます。

moon8888
質問者

お礼

ありがとうございました。

関連するQ&A

  • Excel スピンボタン 対象範囲(訂正)

    http://oshiete1.goo.ne.jp/qa4685879.htmlの訂正版です。 説明が不十分だったため変更します。 Excel2003での質問なのですが、 スピンボタンのリンク先を複数のセルに指定したいのですが、やり方がわからずに困っています。 具体的には 3つのセルの値を1つのスピンボタンで加減するように組みたいのです。 3つのセルの値は違うもので、=で繋げたくはありません。 A1 B1 C1 ▲ 1  5  6  ▼ ↑の状態で「▲」を押すと A1 B1 C1 ▲ 2  6  7  ▼ になる物を作りたいです。 (1)A1、B1,C1を個々で+-するスピンボタンと (2)A1、B1、C1を一括で+-するスピンボタンを作りたいのです。 (1)は作れたのですが(2)のやり方がわかりません。 1つなら簡単にリンク先として指定できたのですが、複数選択するとエラーになってしまいます。 どうしたらいいでしょうか? やはりマクロ等を組まないといけないのでしょうか? 方法を知っている方がいらっしゃいましたら教えていただけると嬉しいです。 よろしくお願いします。

  • Excel スピンボタンの対象範囲

    Excel2003での質問なのですが、 スピンボタンのリンク先を複数のセルに指定したいのですが、やり方がわからずに困っています。 具体的には 3つのセルの値を1つのスピンボタンで加減するように組みたいのです。 1つなら簡単にリンク先として指定できたのですが、複数選択するとエラーになってしまいます。 どうしたらいいでしょうか? やはりマクロ等を組まないといけないのでしょうか? 方法を知っている方がいらっしゃいましたら教えていただけると嬉しいです。 よろしくお願いします。

  • Ex

    http://oshiete1.goo.ne.jp/qa4685879.html​の訂正版です。 説明が不十分だったため変更します。 Excel2003での質問なのですが、 スピンボタンのリンク先を複数のセルに指定したいのですが、やり方がわからずに困っています。 具体的には 3つのセルの値を1つのスピンボタンで加減するように組みたいのです。 3つのセルの値は違うもので、=で繋げたくはありません。 添付ファイルの aのボタンを押すとAが±1 b    を押すとBが±1 c    を押すとCが±1 D    を押すとA・B・C±1 される。 というものです。 (1)A1、B1,C1を個々で+-するスピンボタンと (2)A1、B1、C1を一括で+-するスピンボタンを作りたいのです。 (1)は作れたのですが(2)のやり方がわかりません。 最初の回答通りにするとb or c のボタンを押すと、B.Cの=Aの値が書き換えられてしまいます。 よってDのボタンでabcを±1したいのです。 1つなら簡単にリンク先として指定できたのですが、複数選択するとエラーになってしまいます。 どうしたらいいでしょうか? やはりマクロ等を組まないといけないのでしょうか? 方法を知っている方がいらっしゃいましたら教えていただけると嬉しいです。 よろしくお願いします。

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

    エクセルにて、フォームで配置した、3つのスピンボタンの最大値を、他のボタンの増減や、初期値によって変化させたいと考えています。    A  |    B     |   C  | D  | 【初期値】|【リンクするセル】|【最大値】|【A+B】|ボタン 【初期値】|【リンクするセル】|【最大値】|【A+B】|ボタン 【初期値】|【リンクするセル】|【最大値】|【A+B】|ボタン      |【Bの合計】    | 【振り分けれる最大値】 例)    A  |   B   |  C  | D  |  50  | 1    | 49 | 51|  60  |      | 49 | 60|  50  | 50   |  0 |100|      | 51   |  49 元の最大値=100、振り分けれる最大値=100のとき、B1に1、B3に50振り分けるようにスピンボタンを動作させたときに求められる最大値C1~3にあわせてスピンボタンの最大値を変更させて指定し、それを超えて入力できないようにすることはできないでしょうか? 当方、WinXP、エクセル2003、マクロに関しては、マクロの記録を訂正して使う程度の知識です。

  • エクセルのスピンボタンのコピーについて

    エクセルのスピンボタンのコピーについて いろいろ検索し、試しましたがうまくいきません。 A2セルに氏名(A3,A4と下に1000人程います) B1セルに日付(C1,D1と右に1ヶ月分) B2セルにスピンボタンを設定し、そのスピンボタンを縦1000行、横30列にコピーしたいのですが うまくいきません。。。 佐藤さんが12/1に3回⇒セルB2へ「3」 山田さんが12/2に5回⇒セルC3へ「5」 という感じで表示させたくて、B2へスピンボタンを設定しコピーしたのですがうまくいきません。 どうしたらできるでしょうか。 スピンボタンはフォームコントロールのものを使用しています。 Windows 7 Excel2007を使用しています。

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

    現在、Excel2010を使って、タッチパネルを想定した処理表を作っているのですが、 一つ問題に当たっています。 スピンボタンを作成し、ボタンを押すとその右隣のセルの数値が増減されるようにしたいのですが、 コントロールの書式設定でリンクするセルを設定しても、絶対参照になり、 他の場所にスピンボタンを移した時や、大量にスピンボタンをコピーした時に、 その都度、参照先を変更しなければならず、思い通りのシステムを構築できません。 どなたか、ボタンをどの場所に移動しても、また、大量にコピーをしても 必ずその右隣の数値が変更できるように、リンクするセルを相対的に指定する方法を ご存知ないでしょうか?よろしくお願いします。m(_ _)m

  • エクセル・スピンボタンを使った時にイベントマクロを発生させたい

    エクセルでスピンボタンを使って数値を上下させたときに イベントマクロを発生させたいです セルC1の入力規則のリストから氏名を選択するとグラフが表示されるのですが いちいちリストから選択するのが面倒なので スピンボタンでリストの上から順番に見ていけるようにもしたいのです スピンボタン(セルA1にリンク)を操作 A1…スピンボタンにリンクして数字が変わる B1…INDEX関数でA1の数字とリストから氏名が選択される B1の値をC1に貼り付ける←ここをマクロにしたい イベントマクロで Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub Range("B1").Copy Range("C1").Select ActiveSheet.Paste End Sub としてもうまくいきません スピンボタンにリンクしたセルの値が変わったと時は Worksheet_Changeだと無理なので、どうしたらいいでしょう わかりにくい説明で申し訳ありません

  • Excel マクロでスピンボタンの操作

    A1とB1のセルには、それぞれ数値が入力されています。 その下(A2とB2)にはA1とB1の値を使って計算された値があります。 A1とB1の値はスピンボタンを使って1ずつ値が大きくなったり小さくなったりします。 そして、 A2とB2の値の大小を比べて、 ・A2が小さければ、A1の値を1大きくする ・B2が小さければ、B1の値を1大きくする ・等しければ、何もしない ということをしたいです。 マクロを組むしかないと思ったのですが、どのようにやれば良いのでしょうか? Excelはそこそこできますが、マクロはほとんどわかりません。 スピンボタンを使わなくても、同じようなことが自動でできれば構いません。 よろしくお願いしいます。

  • excel スピンボタンのサイズについて

    excel2010利用です。よろしくお願いします。 下記の通り、各セルにリンク対応したスピンボタンが出来るようなマクロを作ってみました。(セルC4から始まって下に31セル分スピンボタンが作成される) しかし各一つのセルの大きさが小さいためか、スピンボタンでセルが埋め尽くされてしまいます。 スピンボタンのサイズを 幅:ギリギリまで小さく 高さ:セルの高さちょうど といった大きさに調整する方法はありますでしょうか? 対応セルはみな同じ大きさです。 ご意見ご教授のほどよろしくお願いします。 Sub test() Dim i As Integer Rows.RowHeight = 50 For i = 4To 34 With ActiveSheet.Spinners.Add(Range("c4").Left, Range("c" & i).Top, 20, 50) .LinkedCell = "c" & i End With Next End Sub ちなみに、C列から、AL列まで(C4からAL34まで)スピンボタンを作りたいと思っており、 私、まだVBA未熟なため現段階では、 上記のマクロをCからALまで文字を変えて複数回実行する方法しかできないのですが、なにか良案ありますでしょうか? 宜しくお願い致します。

  • スピンボタンのコピー

    よろしくお願いします。 ある項目の数を数えるのに、スピンボタンを利用しています。 増えたり減ったりするごとにすぐ横の列にあるスピンボタンを押し、増減させています。 ただ、なにぶん数が多くて、いちいちコピーして、リンク先のセルを手動で入力したりするのが面倒です…。 数百項目分のスピンボタンをコピーし、1行から数百行分までリンク先もバッチリコピー! という方法はないでしょうか?

専門家に質問してみよう