私に聞いて！
質問する
詳細検索

解決済みの質問

質問No.5412587
▼
ema0203
すぐに回答を！
すぐに回答を！
お気に入り投稿に追加する (0人が追加しました)
回答数3
閲覧数4204
Excelのマクロでボタンを押すと数が１足されるようにするには？
とあるイベントで
来客者の人数を調べたいと思いました。
紙に正の字を書いていってもいいのですが
折角なので、後のグラフをつくったりする作業がやりやすいように
PCで処理しようと思いました。
しかし、いちいち数をけして打ちなおしていくのは
あまりにも面倒です・・・
街灯の人数調査（？）の人がもってる
カウントできる機械のようなものも持っていませんし・・・

例えばマクロを使用し
ボタンを押すとセル内の数が１足されるように
設定したいのですがどうすればよいでしょう？
もしくは、そういったことは可能でしょうか。

ワンクリック（もしくはそれに準ずる簡単さ）で
カウントがとれればマクロでなくても構わないです。
Excelあまりいじったことがないので
教えていただければ幸いです。

また、マクロでそういったことができないのであれば
Excel以外でもカウントをとることができるものがあれば
合わせて教えていただけると嬉しいです。
よろしくおねがいします。
投稿日時 - 2009-11-01 00:45:18
通報する
ブックマーク▼
メールで紹介

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

回答No.2
▼
hana-hana3
Range("A1") = Range("A1") + 1

と書いたマクロを適当なボタンに登録して下さい。
Ａ１に初期値を記入しておけば、ボタンをクリックする毎に１ずつ加算されます。
投稿日時 - 2009-11-01 01:49:56
通報する
この回答を支持する
(現在0人が支持しています)
お礼
ありがとうございます！できました！
投稿日時 - 2009-11-03 13:44:21
この質問は役に立ちましたか？
8人が「このQ&Aが役に立った」と投票しています
別のキーワードで再検索する
詳細検索

ベストアンサー以外の回答 (2)

回答No.3
▼
hige_082
ダブルクリックになるけど

対象のシートモジュールに、次のマクロを設定する
セルA1をダブルクリックするとセルA1の値が+1ずつ増える

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then Target.Value = Target.Value + 1: Cancel = True
End Sub

次のようにIF文を追加すれば、複数のカウントもできる

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then Target.Value = Target.Value + 1: Cancel = True
If Target.Address = "$B$1" Then Target.Value = Target.Value + 1: Cancel = True
If Target.Address = "$C$1" Then Target.Value = Target.Value + 1: Cancel = True
End Sub

参考程度に
投稿日時 - 2009-11-01 13:06:32
通報する
この回答を支持する
(現在0人が支持しています)
お礼
ありがとうございました！とても参考になりました！
投稿日時 - 2009-11-03 13:47:10
回答No.1
▼
turuzou
Googleで「excel 加算　マクロ」で検索、参考になりそうです。

加算をマクロに登録するには
http://www.excel.studio-kazu.jp/kw/20040315234654.html
投稿日時 - 2009-11-01 01:16:09
通報する
この回答を支持する
(現在0人が支持しています)
お礼
ありがとうございます！参考になりました！
投稿日時 - 2009-11-03 13:46:24
別のキーワードで再検索する
詳細検索
もっと聞いてみる
質問する

関連するQ&A

回答募集中

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

別のキーワードで再検索する
詳細検索

ビジネス・キャリアのサブカテゴリ

-PR-

OKWaveのおすすめ情報

特集

[一覧]

同じカテゴリの人気Q&Aランキング

カテゴリ
システムエンジニアリング

rss

続きを見る

回答のついた最新のQ&A

カテゴリ
システムエンジニアリング

rss

okada2728

Q_icon先端パーツの名前2013-10-17 10:05:21

l4330

A_icon　 では、 http://www.monotaro.co...2013-10-17 16:24:05

saltutya-

Q_icon24歳無職の男、上京について考えています。2013-10-17 11:27:10

master_gk

A_icon>工場ワークの仕事で半年程の契約社員 >ＰＧもしくはＳＥ...2013-10-17 12:00:12

kingdom14

Q_iconSEと電気専門職の違いは、かなりありますか？2013-10-06 05:57:31

Siegrune

A_iconＳＥといっても幅が広いので、 ・ハード系のシステム構築（...2013-10-17 01:32:02

-PR-

ピックアップ

おすすめリンク

ノウハウ共有サイト

別のキーワードで再検索する

詳細検索
-PR-
-PR-
カテゴリ別にQ&Aを見る
このカテゴリからキーワードで別のQ&Aを検索
詳細検索
コンテンツ
コンタクト
Copyright © 2013 OKWave All Rights Reserved.