同じ行の内容をコピーするマクロが作れません。。

質問

E列 　　　　 F列　G列　H列 I列　　…　　　　Q　R　S　T　U　 　　…　 　　Ｗ　X　Y　Z　AA　

日本 太郎 　　昭和　25　 8　　16　　…　　　　　　　　　　　　　　　 　…　
英国 花子　　 平成　 8 　 3　　23　　…　　　　　　　　　　　 　 　　 …

上記のように、E列～I列に基本情報として家の主の誕生日が入力されているシートがあります。
さらに同じ行には主の家族の生年月日を入力するケースもあるため、同じ内容のセルが
複数あります。この場合に、主の生年月日を再度入力するケースがあるため、基本情報のE列～I列
と同じ内容を反復して手で入力しなければならないことがあります。　"日本 太郎"と同じ行のＱ列にセルを持って行ったときにＱ～Ｕまでに"日本太郎"～"16"までのデータをコピーする。
そして仮に同じように"英国 花子"と同じ行のＷのセルを選択しているときに、Ｗ列～AA列に
"英国 花子"から"23"までのデータコピーするといったマクロボタンを作りたいのですが
可能でしょうか・・？　自分の力では歯が立たないため教えていただけると非常に助かります。。

回答No.1

tom04 · ベストアンサー

こんにちは！
外していたらごめんなさい。

「マクロボタン」ではなく、セルをダブルクリックの操作方法になりますが・・・

画面左下にある操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面が出ますので、
↓のコードをコピー＆ペーストして、Q列またはW列のセルをダブルクリックしてみてください。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Long
If Target.Column = 17 Or Target.Column = 23 Then
i = Target.Row
Cancel = True
Range(Cells(i, 5), Cells(i, 9)).Copy Destination:=Target
End If
End Sub

※　参考になれば良いのですが、最初に書いたように的外れならごめんなさいね。m(_ _)m

お礼

ご回答ありがとうございます！
こ、これはすごいです・・
どうしてすごいかというといちいちボタンを押さなくてもダブルクリックするだけで
コピーできてしまうからです・・

If Target.Column = 17 Or Target.Column = 23　　・・・・　続けて自分がターゲットに
したいものを追加さえすればコピーできちゃう優れものですね。
感動しました。ありがとうございました！

回答No.4

Cor_moriyan

つまり、
「現在カーソルがあるセルから右側に、同じ行のE～I列の値をコピーする」
であってますかね？

であれば・・・・

Sub ボタン1_Click()
　　Dim lngCOLUMN　 As Long
　　Dim lngROW　　　As Long

　　lngCOLUMN = Selection.Column
　　lngROW = Selection.Row

　　With ActiveSheet
　　　　.Cells(lngROW, lngCOLUMN + 0).Value = .Cells(lngROW, 5).Value
　　　　.Cells(lngROW, lngCOLUMN + 1).Value = .Cells(lngROW, 6).Value
　　　　.Cells(lngROW, lngCOLUMN + 2).Value = .Cells(lngROW, 7).Value
　　　　.Cells(lngROW, lngCOLUMN + 3).Value = .Cells(lngROW, 8).Value
　　　　.Cells(lngROW, lngCOLUMN + 4).Value = .Cells(lngROW, 9).Value
　　End With
End Sub

でいかがでしょう。

お礼

ご回答ありがとうございます！

「現在カーソルがあるセルから右側に、同じ行のE～I列の値をコピーする」
ま、まさにその通りです(；´∀｀)
Cor_moriyanさんのコードを埋め込むとどこの箇所でも同じ行であればボタンを押すと
コピーできました。追加で書かなくてもいいという意味ですごく助かりました！

ありがとうございました(^^ゞ

回答No.3

mshr1962

一例

Sub ボタン1_Click()
Select Case Selection.Column
Case 17
Range("Q" & Selection.Row) = Range("E" & Selection.Row)
Range("R" & Selection.Row) = Range("F" & Selection.Row)
Range("S" & Selection.Row) = Range("G" & Selection.Row)
Range("T" & Selection.Row) = Range("H" & Selection.Row)
Range("U" & Selection.Row) = Range("I" & Selection.Row)
Case 23
Range("W" & Selection.Row) = Range("E" & Selection.Row)
Range("X" & Selection.Row) = Range("F" & Selection.Row)
Range("Y" & Selection.Row) = Range("G" & Selection.Row)
Range("Z" & Selection.Row) = Range("H" & Selection.Row)
Range("AA" & Selection.Row) = Range("I" & Selection.Row)
End Select
End Sub

お礼

ご回答ありがとうございます！
ボタンつくれました！あとはRange・・を追加していくだけですね。
感謝いたします。m(__)m

回答No.2

imogasi

（１）１人の誕生日の年月日を「別セルに入れているがエクセルでは、日付は１セルに日付シリアル値に入れろ
（２）質問の書き方」がやこしいが、ＶＬＯＯＫＵＰ関数でも出来る問題ではないのか。
マクロ作るまでもない。またＶＢＡ（マクロでなくエクセルＶＢＡということ）のコードの中でもＶＬＯＯＫＵＰ関数は作れる。
（３）もう少し例を増やして、説明のこと。
（４）＞さらに同じ行には主の家族の生年月日を入力するケースもあるため、同じ内容のセルが
同じ行とは？同じ列（群（Ｆ－Ｉ列）のこと？
＞家族の生年月日を・・同じ内容のセルが複数あります
どういうこと？
質問の情況が判りにくい。文章表現に注意のこと。
＞Ｗのセルを選択しているときに、Ｗ列～AA列に
"英国 花子"から"23"までのデータコピーするといったマクロボタンを作りたいのですが
南下初歩的なことじゃないのか。コピーして貼り付けしたら
＝＝＝
マクロの記録というのがあるので、それを取り、他の場合には、何処を同変更したら良いのか考えること。
初心者がマクロの記録も取ってないようなのが、どうして？と思う。
そこで判らなければ質問やむなしだろうが。

お礼

ご回答ありがとうございます！

(1について　これはすでに完成しているエクセルファイルを元にマクロが組み込まれています。
　　　　　　だからこのあえてこの制約のもとで質問させていただきました・・

(2)について　言葉の使い方のご指摘ありがとうございます！今後は使い方に気をつけます。
　　　　　　　コードの中でも使えることは知りませんでした・・

(3)について　例がわかりづらくて申し訳ないです。ただあまり例を増やしすぎると文章が長くなり
　　　　　　　余計に誤解を招いたらまずいと思ってなるべくシンプルに書きました。が、やはり
　　　　　　余計に分かりづらくなりました。申し訳ありません。

(4)について　Ｆ－Ｉ列に入力された各々の行を横に見ていくという意味です。すみません。これまた
　　　　　　　言葉の使い方がおかしいため理解されなかったのだと反省いたします。
　　　　　　　あとコピーして貼り付けろとのことですが、ここには敢えて書いてませんが膨大な
　　　　　　　量なのです。いちいちコピーして貼り付けていたら少しの時間の差ではありますが
　　　　　　　大きく作業時間を食ってしまうのです。だから質問させていただきました。
　　　　　　　あと、マクロの記録をしてもうまくいきませんでした。

ご指摘ありがとうございました！