|
いまいち質問の意味が、はっきりしませんが・・・
「ロードしたと同時に」という意味は、前のコードは、シートクラスの
再計算時イベントを使っていましたが、それをブックを開いた時点で実行したい
という意味でしょうか?
モジュールの先頭に、Dim Dt1 As Double, Dt2 As Double がありますので、
このイベントプロシージャ以外に何かあるのではないかと思いますが・・・?
前のコードで、この変数に何処でどのような値をLetされているか推測出来
ませんので何とも言えませんが、ブックを開いた時点では、これらの変数は、
0 になっています。
まぁ、ThisWorkbookクラスのOpen時イベントであれば、こんな感じですが・・・
Dt1とDt2の変数のことで、このままではダメですが・・・
Dim Dt1 As Double, Dt2 As Double
Private Sub Workbook_Open()
With Worksheets("Sheet1")
If Not IsNumeric(.Range("B1").Value) Then Exit Sub
If .Range("B1").Value > Dt2 Then
Dt2 = .Range("B1").Value
If Dt1 > 0 Then .Range("B2").Value = Dt2 - Dt1
Dt1 = Dt2
End If
End With
End Sub
もし、的外れのときは、シートの状態が、このようになっているとき、
どの時点で、どのようにしたいのか、補足していただければ宜しいかと。
▼MO12 さん:
>▼awu さん:
>
>ちなみにロードしたと同時に更新ボタンを押すもしくはそれと
>同等の処理、自動的に更新するにはどんなマクロを記述したら
>よいのでしょうか?ご教授願えないでしょうか?
>よろしくお願いします。
|
|