質問: excelのマクロでボタンを押すと数が1足されるようにするには? とあるイベントで 来客者の人数を調べたいと思いました。 紙に正の字を書いていってもいいのですが 折角なので、後のグラフをつくったりする作業がやりやすいように pcで処理しようと思いました。 しかし、いちいち数をけして打ちなおしていくのは あまりにも面倒です・・・ 街灯の人数調査(?)の人がもってる カウントできる機械のようなものも持っていませんし・・・ 例えばマクロを使用し ボタンを押すとセル内の数が1足されるように 設定したいのですがどうすればよいでしょう? もしくは、そういったことは可能でしょうか。 ワンクリック(もしくはそれに準ずる簡単さ)で カウントがとれればマクロでなくても構わないです。 excelあまりいじったことがないので 教えていただければ幸いです。 また、マクロでそういったことができないのであれば excel以外でもカウントをとることができるものがあれば 合わせて教えていただけると嬉しいです。 よろしくおねがいします。
回答: ダブルクリックになるけど 対象のシートモジュールに、次のマクロを設定する セル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 参考程度に