|
▼てぷこ3 さん:
こんばんは
シートのChangeイベントでいいと思います
>下記のように動作するイベントプロシージャを作りたいと考えています
>
>1) セルA1に変化があった場合
>2) 一つ下の段に一行挿入して
>3) A1に戻って数値をコピー
>4) 一つ下のセル(先ほど挿入した行のセル)に「形式を選択して貼り付け→値」で数値をペースト
>
値貼り付けにするのはA1に数式が入っているのですか?
行の挿入は1つ下の行にEntireRow.Insertで出来ます。
以下の様にしてみました。
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Row = 1 And .Column = 1 Then
.Offset(1, 0).EntireRow.Insert
Range("A1").Copy
Range("A2").PasteSpecial Paste:=xlPasteValues
End If
End With
Application.CutCopyMode = False
Range("A1").Select
End Sub
|
|