B1 最高 C1 最低
Private Sub Worksheet_Calculate()
If TimeValue(Now) > TimeValue("13:30:00") and TimeValue(Now) < TimeValue("13:25:00") THEN Range("B1").Value=0
If TimeValue(Now) > TimeValue("13:30:00") and TimeValue(Now) < TimeValue("13:25:00") THEN Range("C1").Value=0
If TimeValue(Now) < TimeValue("13:30:00") and TimeValue(Now) > TimeValue("13:25:00") and Range("A1").Value > Range("B1").Value Then Range("B1").Value = Range("A1").Value
If TimeValue(Now) < TimeValue("13:30:00") and TimeValue(Now) > TimeValue("13:25:00") and Range("A1").Value < Range("C1").Value Then Range("C1").Value = Range("A1").Value