|
下記のように動作するイベントプロシージャを作りたいと考えています
1) セルA1に変化があった場合
2) 一つ下の段に一行挿入して
3) A1に戻って数値をコピー
4) 一つ下のセル(先ほど挿入した行のセル)に「形式を選択して貼り付け→値」で数値をペースト
この様にしたいのですが、イベントプロシージャを使うならばPrivate Sub Worksheet_Change(ByVal Target As Range)を使うべきなのでしょうか?
途中まで作った下記のマクロを挿入しようとしたのですが、上手く行きませんでした。。。。。
Sub 一行挿入してコピペ()
Rows("2:2").Select
Selection.Insert Shift:=xlDown
Range("A1").Select
Selection.Copy
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
End Sub
この様に指定したセルに変化があった場合に細かい指示を与えたい場合はどの様に組み込めば良いのでしょうか?
参考になるHPなども紹介して頂けると助かります
よろしくお願いします
|
|