エクセルでクリックすると？

質問

エクセル2000です。
たとえば、A1をクリックしたら
B3:D4のデータをコピーして
B8に値の貼り付けをしたいのです。（これは1月のデータ）
次にB1でもよいのですがクリックしたら、
B3:D4のデータをコピーして
B10に値の貼り付けを（1月の貼り付けたデータの下に。2月のデータ）。。。というふうに
12月までを毎月貼り付けたいのですが、よろしくお願いします。

回答No.2

noname#8445

クリックでいけます

対象のシートのコードに

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
gyo = Target.Row
retu = Target.Column

If gyo = 1 And retu = 1 Then
'処理
End If

End Sub

お礼

ありがとうございます。しかし、gyo=
のところでコンパイルのエラーがでます。

回答No.1

KenKen_SP

マクロで実現可能です。
クリックではないのですが、ダブルクリックなら、、
Worksheet_BeforeDoubleClickイベントにご希望の処理を書けば良いと思います。

お礼

ありがとうございます。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Range("B3:D4").Select
Selection.Copy
Range("B8").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
End Sub
でよいですか？と言うかA1をダブルクリックしたら
という条件をいれたいのですが？