ダブルクリックして数値の１を入力するマクロを

シート上の任意のセルをダブルクリックして
数値の１を入力したいのですが、
マクロを教えて下さい。

急なことで過去の質問も十分検索できていませんが、
よろしくお願いします。

No.2 ベストアンサー 回答者： tom04 回答日時： 2013/09/17 22:24

こんばんは！

一例です。

セル範囲の指定がないので、とりあえずA1～D10セルだけが反応するようにしてみました。
余計なお世話かもしれませんが、すでに「1」が表示されている場合は空白にするようにしています。

画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストしてA1～D10セルのいずれかをダブルクリックしてみてください。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'この行から
If Intersect(Target, Range("A2:D10")) Is Nothing Then Exit Sub '←ここでセル範囲を指定
With Target
If .Value = "" Then
.Value = 1
Else
.Value = ""
End If
End With
Cancel = True
End Sub 'この行まで

こんなんではどうでしょうか？m(_ _)m

この回答へのお礼

早速のご回答、ありがとうございます。
とても参考になります。

お礼日時：2013/09/18 13:22

No.1 回答者： web2525 回答日時： 2013/09/17 19:54

一部のセルをダブルクリックしたときだけマクロを実行する

http://www.relief.jp/itnote/archives/013874.php

ココを参考に

この回答へのお礼

早速のご回答ありがとうございます。
参考にします。

お礼日時：2013/09/17 20:33