クリックするだけで値が増加するセルを作れますか？

質問

エクセル2001（Mac）を使っています。
こんな贅沢な技があるのか分かりませんが、御存じの方がいらっしゃいましたら教えて下さい。
セルを選択するだけで、１が入力されていたセルが２になり、２が入力されていたセルが３になるような関数があるでしょうか？
エクセル技道場をざっと見ましたがない様でした。；；

回答No.1

nishi6

セルをクリックした時のWorksheet_SelectionChangeでイベントを捕まえて加算できますが、同じセルを繰り返し選択する場合、面倒です。
下はセル（今はSheet1のA1～A10の範囲）をダブルクリックしたら元の数値に1を加算するようにしてあります。

ツール→マクロ→Visual Basic Editor でVBE画面に移り、 表示→プロジェクトエクスプローラでプロジェクトエクスプローラを表示します。プロジェクトエクスプローラのSheet1をダブルクリック。出てきたコードウインドウに下記マクロをコピーして貼り付けます。

以上、windows98、Excel2000での表現やコードです。エクセル2001（Mac）ではありませんのでご容赦を。

'ダブルクリック
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　　'今は、A1～A10の範囲をダブルクリックした時だけ反応します
　　If Not Intersect(Range("A1:A10"), Target) Is Nothing Then
　　　　With Target
　　　　　　If IsNumeric(.Value) Then
　　　　　　　　'セルが未入力か数値だったら加算
　　　　　　　　.Value = .Value + 1
　　　　　　End If
　　　　　　'編集モードから抜けるために下に下がって再度戻る
　　　　　　.Offset(1, 0).Select
　　　　　　Application.SendKeys ("{UP}")
　　　　End With
　　End If
End Sub

お礼

御回答ありがとうございます。
やはり、マクロでできるのですね。
ネット上でマクロの意味や使い方をいろいろと調べていたところです。
お教えいただいた通りコピーしましたら、確かに１づつ増加しました。
しかし、「Macintosh版エクセルでは使用できないコマンドが指定されています。」とのエラーがでます。
ん～Macようのコマンドはないものでしょうか？
あと、コピーした日本語の部分はなくてもいいんですよね？
それにしても凄いです。新たな世界にはいることができました。ありがとうございます。
m(_*_)m