セルのデータを、ボタンでコピーさせたいのです

質問

初めて質問させていただきます。
エクセル関数はある程度こなせますが、マクロはほとんど初心者です。
どのようにマクロを記述すれば良いか、わからなくて困っています。

A1のセルにコピー元のデータがあります。
この時、A4にあるボタンを押すと、A1のデータがA3にコピーされます。
またある時は、C4にあるボタンを押すと、A1のデータがC3にコピーされます。
またある時は、D4にあるボタンを押すと、A1のデータがD3にコピーされます。

　　 A　　 B　　 C　 　D　 　E　・・・・・・
1 100
2
3 100 100　 100
4 ■ 　■　 ■ 　■　 　■
5
6
7
・
・
・

あるいは、ボタンを一つにして、B1にあるボタンを押すと
A1のデータがA3にコピーされます。またある時は、B1にあるボタンを押すと
A1のデータがC3にコピーされます。

　　A　　B　　C　　D　　E
1 100　 ■
2
3 100 100
4
5
6

コピー先のセルが少数なら、コピー先のセルを"Range"で指定して、各ボタンに割り付ければ済むのですが、入力するセルが何百とある為、これをいちいち各ボタンに割り付けて、マクロを書いて行くのは、気が遠くなる作業になってしまいます。
ボタンは一個でも、何百個あっても構わないのです。

マクロをどのように記述すれば良いでしょうか。
どうか、アドバイスをお願いします。

回答No.1

fumufumu_2006 · ベストアンサー

どうしてもボタンを使わなくてもいいなら、セルのダブルクリックではどうでしょうか？

ダブルクリックすると、A1のセルの内容をコピーします。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target.Value = Range("A1").Value
Cancel = True
End Sub

A3:C3とF3:G3でダブルクリックすると、A1のセルの内容をコピーします。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("A3:C3,F3:G3")) Is Nothing Then
Target.Value = Range("A1").Value
Cancel = True
End If
End Sub

お礼

fumufumu_2006様、回答ありがとうございます。
なるほど、ダブルクリックという手もあるんですね。
早速試してみたのですが、どうもうまくいきません。
このコードは、モジュールに記述して良いのですか？
「ThisWorkBook」とか「Sheet」とかにも書いて試してみたのですが、
セルの内容がコピーされません。
ボタンとかにマクロを登録するのではなく、コピー先のセルを
ダブルクリックする、と言う考え方で良いのですよね？
コードをそのままコピーしたのでは、だめなのでしょうか・・・
（あっ、もちろんセルのアドレス「Range("A3:C3,F3:G3")」
という部分は例なので、実際に使用するアドレスに書き換え
ています。）

申し訳ありませんが、再度教えていただけないでしょうか。
どうぞ、よろしくお願いいたします。

補足

fumufumu_2006様!!!!
質問者のbuffieです。
お礼欄に投稿した後、もう一度冷静に試してみましたら、
ちゃんと出来ました！
実は、いろいろなサイトを見て、サンプルプログラム等を
試していたのですが、その時に書いたサンプルプログラムが
「WorkSheet」のところに残っていたため、それが悪さをして
うまく動かなかったようです。

この回答でバッチリです。
本当にありがとうございました。
本当は、回答補足欄にこのような内容を書くべきではないと
思います。ルール違反かも知れませんが、一刻も早く連絡したく、
他に投稿できる欄がありませんでしたので、このような方法を
取らせていただきました。
以後、頂いた回答は十分に確認してから投稿いたします。

本当にありがとうございました。