マクロを使ってセルのコピーと貼り付け

質問

A1:D6の表があります。その中の選んだ１つのセルをダブルクリックをして実行させコピーして、G1に貼り付けたいのですが、どのようにマクロを組んだらいいのでしょうか？初心者（はじめて使います）ですので詳しく教えていただけないでしょうか？よろしくお願いいたします。

回答No.2

merlionXX · ベストアンサー

では、当該シートのタブを右クリックし、「コードの表示」で出てきたシートモジュールに

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A1:D6")) Is Nothing Then Exit Sub
Range("G1") = Target
Cancel = True
End Sub

を貼りつけて、Ait+F11キーでワークシートに戻り、A1:D6の表の中の選んだ１つのセルをダブルクリックしてみてください。

お礼

ありがとうございました。ここまで書いていただいたら、すぐにできました。助かりました。

回答No.1

hiyaku

まずは、マクロと堅苦しく考えずに通常行っている事を「マクロの記録」として行います。コレでマクロが作成できます。。

メインメニュー→ツール→マクロ→新しいマクロの記録→マクロの名前（ここではコピーのマクロとします、このとき「記録終了」のボタンが表示された筈）→コピーしたい部分を選択しコピーする→貼付けしたい部分のセルを指定し貼付け→マクロの「記録終了のボタンをクリック」。
コレで終了。

マクロの実行は、メインメニュー→ツール→マクロ→マクロ→マクロ名を指定しマクロの実行をクリック。

コレでマクロで貼付けが出来たと思いますが・・・

〆

お礼

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

補足

ありがとうございます。初めてのマクロができました。
ただ、マクロ作成時に選んだセルが固定になってしまって、常に同じセルが貼り付けられてしまうのですが、そのつど選んだセルをはりつけたいのですが・・・
よろしくお願いいたします。