|
こんにちは。かみちゃん です。
>F列だけではなく、「その行のどのセルでも」右クリックしたら、
>その行のG列の値をシート"印刷"のF15へコピーし、
>その行のH列の値をシート"印刷"のF16へコピーし、
>その行のI列の値をシート"印刷"のF17へコピーし、
>その行のJ列の値をシート"印刷"のY16へコピーし、
>その行のK列の値をシート"印刷"のAO16へコピーし、
>その行のL列の値をシート"印刷"のAW16へコピーするというものにしたい
以下のような感じでいかがでしょうか?
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
With Sheets("印刷")
.Range("F15:F17").Value = _
Application.Transpose(Cells(Target.Row, 7).Resize(, 3).Value)
.Range("Y16").Value = _
Cells(Target.Row, 10).Value
.Range("AO16").Value = _
Cells(Target.Row, 11).Value
.Range("AW16").Value = _
Cells(Target.Row, 12).Value
End With
Cancel = True
End Sub
ご提示のコードでは、以下のコードで列の制限がされているだけかと思います。
If Target.Column <> 6 Then Exit Sub
|
|