|
こんにちは。 VBA初心者のため、試行錯誤中です。どなたか、お知恵を拝借させてください。
シート2の任意のセルをダブルクリックした場合、そのセルの値(テキストです)をシート1の指定行の行末にコピー貼付けしたいのです。
コピーしたい対象列と貼付け先の列は決まっていて、シート2のB列とD列にあるセルをダブルクリックした場合には、シート1のD列の最終入力セルの下の空欄のセルへコピー・貼り付けし、
シート2のE列のセルをダブルクリックした場合には、シート1のE列の最終入力セルの下の空欄のセルへコピー・貼り付けしたいのです。
ちなみに、貼り付け先のシート「台帳」のD列とE列は、2行を結合して1つのセルとしています。つまり、D5とD6は結合して1つのセルとなっているので、D5の1つ下のセルはD7になっています。
どうか、ご存知の方、教えてください。よろしくお願いします。
この質問は、3月4日に質問しましたが返信がもらえませんでした。
自分なりに、考えましたが、上手くいきません。
ダブルクリックは、 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) だと分かりました。
B列は If .Column <> 2 Then Exit Sub だと思います。
行末は Worksheets("Sheet1").Range("B65536").End(xlUp).Row + 1
なのでしょうか
クリップボードを経由しないですぐに行えるコピペは、よく分かりません。
よろしくお願いします。
|
|