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