|
Private Sub Worksheet_Change(ByVal Target As Range)
a = Target.Row
b = Target.Column
MsgBox Target.Address
If b <> 6 Then Exit Sub
If b = 6 Then
Rows(a).Copy
Worksheets("確認").Rows(a).Insert
Application.CutCopyMode = False
End If
End Sub
初めまして。
自分で本読み、改造しながら上記のコードをシートモジュールに組んでます
マクロの動作自体問題なく自分の思い通り動いてるのですが、
疑問点があるので質問させて下さい。
1.現在8行目に Rows(a).Copy と組んでいるのですが、
セル範囲を指定し、コピーする方法というのは可能でしょうか?
2.9行目で Worksheets("確認").Rows(a).Insert と組んでるのですが、
シートモジュールにおいて他のシートを指定するのはいいのでしょうか?
Worksheet_Changeに関する質問を検索しても
他のシートを指定してあるコードを見かけ無かったので不安になり質問しました。
|
|