マクロでコピーです

質問

三つの記述を教えてください。
１、A列に氏名、B列に住所が有ります。
C列には氏名、住所をコピーすべきものを表す１が表示されています。
コピー先はD列氏名、E列住所です。
このD列、E列には上の方から順次詰めてコピーされるようにします。
これで、A列氏名をダブルクリックしたら、その氏名、住所が共にD列、E列にコピーされる。
２、C列に立っている１をダブルクリックで上記のようにするには。
３、イベントではなく、C列１を基準として上記のようにするには。
以上、教えて下さいますようよろしくお願いします。

回答No.1

fujillin · ベストアンサー

１、２はワークシートのダブルクリックイベントを利用して可能です。
下のコードのIf以下の条件式の前半が１の条件に、後半が２の条件に該当しますので、片方の条件のみの時は一方を消せばよいです。
例では、どちらの条件（A列のクリックでも、C列のクリックでも）でもD、E列にコピーされます。
クリックの位置のチェックは行っていますが、重複などのチェックは行っていません。

３は、C列で1のあるものを全てD、E列に書き写すという意味でしょうか？
その場合は、C列をループで探して値が１の時だけコピーをすれば良いので、「ループ」が違うだけで後は同様ですね。
これは、応用編ということで、チャレンジしてみてください。

----サンプル-----
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rｔ, r
　rt = Target.Row
　r = Range("D65536").End(xlUp).Row + 1
　If Cells(r - 1, 4) = "" Then r = r - 1
　If ((Target.Column = 1) And (Cells(rt, 1).Value <> "")) _
　　Or ((Target.Column = 3) And (Target.Value = 1)) Then '**ここが判定の条件式
　　　　Cells(r, 4).Value = Cells(rt, 1).Value
　　　　Cells(r, 5).Value = Cells(rt, 2).Value
　End If
　Cancel = True
End Sub

お礼

MSのエクセルです。本当にありがとうございました。大変助かりました。

回答No.2

fujillin

#1です。
書き漏らしましたが、回答はMSのエクセルのマクロのご質問だと仮定してお答えしています。
違っていましたら、まったくの見当ハズレですので忘れてください。