ダブルクリックイベントでシート1のデータをシート2にコピーです。シート1には、A列とB列にデータが有ります。
シート2の C3,C5,C8,C10,・・・・と D2,D4,C7,D9,・・・・とコピー先が有ります。シート1のA列の任意の行をダブルクリックでC3にコピー、次、シート1のB列の任意の行をダブルクリックでD2にコピー。次、シート1のA列の任意の行をダブルクリックでC5にコピー、次、シート1のB列の任意の行をダブルクリックでD4にコピー、とするにはどのように記述したら良いでしょうか。よろしくお願いします。
No.1ベストアンサー
- 回答日時:
この質問になぜ回答が付かないのでしょう。
質問の表現が判りにくいと思われたのでは。
>対象のシート
シート1のデータをシート2にコピーです
>コピー元
シート1には、A列とB列にデータが有ります
>シート1のA列の任意の行をダブルクリックでC3にコピー
A列のDクリック=>C列にコピー
B列のDクリック=>D列にコピー
は判ります。
>A列の任意の行をダブルクリックでC3・・
C列に直前に貼り付けたセルの直下のセルに、A列をDクリックした順序で貼り付けたいのかな。
C列の最終行がその都度取れるので、それを捉えてその直下セルにDクリックしたセルの値をセットすればよいらしい。
ーー
例データ
A,B列が原データ
A列 Bt列 C列 D列
axay
bycv
czfz
duu
ev
f
ーー
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'MsgBox Target.Column
Select Case Target.Column
Case 1
d1 = Range("C100").End(xlUp).Row
MsgBox d1
Cells(d1 + 1, "C") = Target
Case 2
d1 = Range("D100").End(xlUp).Row
Cells(d1 + 1, "D") = Target
End Select
End Sub
MSGBOXは確認用
("D100")としたのは、データ行は100行以下と仮定。
ーーー
上記はA列をa->c->f
とDクリックした例。
この回答への補足
ありがとうございます。質問が分かりにくくすみません。
質問の中のD2,D4,C7,D9,・・・のC7はD7の間違いです。
たとえば、シート1のA列のコピー先はシート2のC3,C5,C8,C10,・・・と決まっています。そのためシート1のA列の任意の行をDクリックしたらシート2のC3にコピーされ、次、シート1のA列の任意の行をDクリックしたらシート2のC5にコピー(C3には既にコピーされているので)されるように進みます。シート1のB列のデータもD2,D4,D7,D9,・・・と進むようにしたいです。よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
B列の最終行までA列をオート...
-
Excelで、あるセルの値に応じて...
-
Worksheets メソッドは失敗しま...
-
【VBA】複数行あるカンマ区切り...
-
エクセルVBA シートモジュール...
-
SpecialCells(xlCellTypeConsta...
-
VBAの構文 3列置きにコピーし...
-
VBAで文字列を結合
-
エクセルVBAにて =A1=B1とすれ...
-
IIF関数の使い方
-
vba 数値がゼロになるまで引く
-
VBScriptでfindを使うには??
-
VBAコンボボックスで選択した値...
-
VBAの処理で質問です。 例 番号...
-
VBAで指定範囲内の空白セルを左...
-
Worksheet_Change(ByVal Target...
-
Changeイベントでの複数セルの...
-
エクセル VBA ユーザーフォー...
-
空白セルをとばして転記
-
Excel VBA:エクセルのマクロで...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
B列の最終行までA列をオート...
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
URLのリンク切れをマクロを使っ...
-
文字列の結合を空白行まで実行
-
データグリッドビューの一番最...
-
【VBA】2つのシートの値を比較...
-
VBA 何かしら文字が入っていたら
-
IIF関数の使い方
-
VBAを使って検索したセルをコピ...
-
Changeイベントでの複数セルの...
-
VBAの構文 3列置きにコピーし...
-
VBAのFind関数で結合セルを検索...
-
【Excel VBA】 B列に特定の文字...
-
VBAで指定範囲内の空白セルを左...
-
VBAでのリスト不一致抽出について
-
セルに値が入っていた時の処理
-
VBAコンボボックスで選択した値...
おすすめ情報