• 締切
  • すぐに回答を!

セルのクリックで数値を加算(減算)したいのですが

  • 質問No.4124013
  • 閲覧数1686
  • ありがとう数1
  • 気になる数0
  • 回答数4
  • コメント数0

お礼率 0% (0/17)

どなたかお願いします。
エクセルでの操作です。
――――――――――――――――――――――――――――――
(1)該当セル上で普通にクリック(左シングル)しただけで、
そのセルに「1」が加算され、連続すれば2・3・4・5・6・7・・・・
と入力される方法はありませんか?

(2)実際の運用上、例えば6以上の数字が連続した場合、
指が痛くなりそうですので右クリックのメニューなどから
クイック入力出来ると理想です。最大入力は20までです。

(3)実行する範囲は限定したく、それは複数ヶ所あります。
A1~D100、F20~H300・・・などです。

(4)可能であれば減算(消去でも構いません)も、クリック操作で
実施できれば言うこと無しです。どうにかなりませんか。。。
――――――――――――――――――――――――――――――

どうぞ、よろしくお願いします。

回答 (全4件)

  • 回答No.4

ベストアンサー率 51% (94/182)

VBAを利用することになります。
VBAの書き方等についてはネット上に参考になる情報がありますのでそちらを・・
http://search.yahoo.co.jp/search?p=Excel+VBA

(1)
シングルクリックでのイベントトリガーがないためWorkSheet_BeforeDoubleClickで処理を行うことになりますが
Target変数がダブルクリックされたセル範囲になりますので
If IsNumeric(Target.Value) Then
Target.Value = Target.Value + 1
Else
Target.Value = 1
End If
で可能です。

(2)
入力規則で予め1~20までのリストを作成しておくことで代替できます。
こっちのほうがぜんぜん簡単です。

(3)
(1)で実際の処理に入る前にTargetのアドレスが希望のセル範囲内にいるかを調べます。範囲外の場合はExit Subでマクロから抜けるという風に・・

(4)
(2)で入力規則で行う方法を採用すれば、右クリックが使えます。
WorkSheet_BeforeRightClickイベントで(1)と同様の処理を行います。

作成のヒントだけですが、頑張って挑戦してみてください。
  • 回答No.3

ベストアンサー率 41% (888/2115)

操作方法は、ご希望とは異なりますが、入力規則のリストはいかがでしょうか。
別シートにでも
1
2
3
4
・・・
20
作っておいて、名前を定義して
A1~D100 F20~H300 選択して データ 入力規則 リスト で
=(定義した名前)
セルをクリックすると▼が表示されるので、後はマウスで数値を選択します。
  • 回答No.2

ベストアンサー率 36% (2266/6241)

ちょっとお望みのものとは形態が違いますが・・・

スクロールバーでは駄目ですか?
 スクロールバーを配置し、特定のセルにリンクさせておけば、少なくとも一つのセルを可変可能です。
 そうすれば、1単位と5単位の変化とかが可能になりますが?

表示->ツールバー->コントロールツールボックスで配置可能です。
  • 回答No.1

ベストアンサー率 36% (715/1958)

かなり方向が異なるとは思いますが・・・。

「フォーム」の「スピンボタン」を配置するのが難しくなくって楽だと思います。
結果を報告する
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。
関連するQ&A

その他の関連するQ&Aをキーワードで探す

ピックアップ

ページ先頭へ