ベストアンサー

セルをクリックした回数を表計算に自動的に入力する方法

2007/01/29 20:24

エクセルなどの表で、セルを1回クリックすると１を、2回クリックすると2を・・・と、同じセルをクリックした回数を数値として自動的に入力するよい方法をどなたかご存知ではありませんか？いちいちボタンを全セル分つくるのは大変ですし、VBAでうまい方法やサンプルコードなどがあればと思います。また、マウスに数字を割り当てるなどの妙技も歓迎致します。

latifolius
お礼率85% (199/234)

オフィス系ソフト
回答数2
ありがとう数2

みんなの回答 （2）
専門家の回答

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

ベストアンサー

papayuka
ベストアンサー率45% (1388/3066)

2007/01/29 21:23 回答No.2

標準でクリックイベントは無いので、ダブルクリックか右クリックかな？シートモジュールに下記をコピペすると、ダブルクリックでカウントアップします。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 　On Error Resume Next 　Cancel = True 　Target.Cells(1, 1).Value = Target.Cells(1, 1).Value + 1 End Sub

質問者

お礼 2007/01/31 14:54

こちらもはダブルクリックでセル値に１つ足すということですね。ありがとうございます。大変勉強になりました。

ログインすると、全ての回答が全文表示されます。

その他の回答 (1)

merlionXX
ベストアンサー率48% (1930/4007)

2007/01/29 21:18 回答No.1

では、そうしたいシート（ただし、Sheet2以外）のモジュールに以下をコピペしてみてください。 Sheet2に記録を残します。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) x = Sheets("Sheet2").Range(Target.Address).Value Sheets("Sheet2").Range(Target.Address).Value = x + 1 End Sub

質問者