返回列表 上一主題 發帖

抓取某時間範圍儲存格變動的最高跟最低值??

t8899

帖子
759 
主題
249 
精華
0 
積分
1021 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-11-24 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-10-4 05:53 | 只看該作者

抓取某時間範圍儲存格變動的最高跟最低值??

A1為DDE 連結
B1=A1 ( 13:25-13:30 之間即時變動的最高值  )(時間範圍外為0)
C1=A1 ( 13:25-13:30 之間即時變動的最低值  )(時間範圍外為0)
用公式或巨集如何寫??
收藏 分享

t8899

帖子
759 
主題
249 
精華
0 
積分
1021 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-11-24 
2#
發表於 2013-10-6 15:01 | 只看該作者
本帖最後由 t8899 於 2013-10-6 15:06 編輯

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

END SUB

公式應該沒辦法???

TOP

        靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。
返回列表 上一主題