Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

35778 / 76732

←次へ　｜　前へ→


	【46148】任意の行を右クリックしたらその行の指定のセルを別シートにコピー

マップー - 07/1/24(水) 13:41 -


	引用なし

	パスワード

指定シートのＦ列をクリックすると、その同じ「行」の指定の列のセルが指定シートの指定セルにコピーするようにしたく、ネットで質問し、さらに自分で勝手に貼り替え、以下のコードを貼ったら、思い通りに動きました。

今回、Ｆ列だけではなく、「その行のどのセルでも」右クリックしたら、
その行のＧ列の値をシート"印刷"のF15へコピーし、
その行のＨ列の値をシート"印刷"のF16へコピーし、
その行のＩ列の値をシート"印刷"のF17へコピーし、
その行のＪ列の値をシート"印刷"のY16へコピーし、
その行のＫ列の値をシート"印刷"のAO16へコピーし、
その行のＬ列の値をシート"印刷"のAW16へコピーするというものにしたいのです。

方法を教えていただけるでしょうか。

現在、私が作ったコードは、以下のものです。

　Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
　　 If Target.Count > 1 Then Exit Sub
　　 If Target.Column <> 6 Then Exit Sub
　　 Cancel = True
　　 Worksheets("印刷").Range("F15").Value = Me.Cells(Target.Row, 7).Value
　　 Worksheets("印刷").Range("F16").Value = Me.Cells(Target.Row, 8).Value
　　 Worksheets("印刷").Range("F17").Value = Me.Cells(Target.Row, 9).Value
　　 Worksheets("印刷").Range("Y16").Value = Me.Cells(Target.Row, 10).Value
　　 Worksheets("印刷").Range("AO16").Value = Me.Cells(Target.Row, 11).Value
　　 Worksheets("印刷").Range("AW16").Value = Me.Cells(Target.Row, 12).Value
　　 Worksheets("機関").Range("C2").Value = Me.Cells(Target.Row, 10).Value
　　　Sheets("機関").Select

よろしくお願いいたします。

2 hits

▼

【46148】任意の行を右クリックしたらその行の指定のセルを別シートにコピー マップー 07/1/24(水) 13:41

≪