|
'シートモジュール
Private Sub Worksheet_Calculate()
If Range("A1").Value > mxv Then
mxv = Range("A1").Value
ElseIf Range("A1").Value < mnv Then
mnv = Range("A1").Value
End If
End Sub
の中で If Range("A1").Value > mxv Then の部分でエラー”型が一致しません”と返ります。
どのように修復すればいいのでしょうか?
お教えください。また、時刻も表示する場合、標準モジュルで
Public stv As Long, mxv As Long, mnv As Long, nrow As Long
Sub test()
Range("A2").Value = "時刻"
Range("B2").Value = "始値"
Range("C2").Value = "高値"
Range("D2").Value = "安値"
Range("E2").Value = "終値"
nrow = 3
Call SetProc
End Sub
Function SetProc()
Dim ntm As Date
ntm = Time()
stv = Range("A1").Value
mxv = Range("A1").Value
mnv = Range("A1").Value
If ntm >= TimeValue("09:00:00") And ntm <= TimeValue("15:00:00") Then
Application.OnTime ntm + TimeValue("00:20:00"), "GetVal"
Else
Application.OnTime TimeValue("09:00:00"), "GetVal"
End If
End Function
Function GetVal()
Cells(nrow, 1).Value = ntm
Cells(nrow, 2).Value = stv
Cells(nrow, 3).Value = mxv
Cells(nrow, 4).Value = mnv
Cells(nrow, 5).Value = Range("A1").Value
nrow = nrow + 1
Call SetProc
End Function
とすればいいのでしょうか?
|
|