|
ありがとうございます。
試してみました。
Calculateイベントだとシート内のセルが変化するたびに実行してしまい
絶えず動きっぱなしになります。
出来ればセルA1が変化したときだけ実行されるように出来ないですか?
よろしくお願いします。
▼[名前なし] さん:
>Calculateイベントだとどうなんでしょうか?
>漂流民さんのコードをお借りして、
>
>Public Before_Value As Long
>
>Private Sub Worksheet_Calculate()
> If Range("A1").Value <> Before_Value Then
> Range("C1").Value = Range("A1").Value - Before_Value
>' Cells(Rows.Count, "C").End(xlUp).Offset(1).Value = _
> Range("A1").Value - Before_Value
> Before_Value = Range("A1").Value
> End If
>End Sub
>
>同じくシートモジュールに記入してみてください。
|
|