- 帖子
- 81
- 主題
- 31
- 精華
- 0
- 積分
- 117
- 點名
- 0
- 作業系統
- windows7
- 軟體版本
- office2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2013-8-3
- 最後登錄
- 2024-4-30
|
3#
發表於 2015-6-17 11:04
| 只看該作者
回復 2# luhpro
已更改~~但仍舊是錯誤的!!
這是整段程式碼~~還請協助
Private Sub Worksheet_Calculate()
' Dim NowDateTime, nowTime, startTime, stopTime
' Dim tr As String
'
'' NowDateTime = Now '現在的時間值, 去掉整數部份,
'' nowTime = (NowDateTime - Int(NowDateTime)) '得到現在的時間值
'' startTime = Range("A6") '開盤時間, 例如: "09:00:00 AM"
'' stopTime = Range("A8") '收盤時間, 例如: "01:30:00 PM"
'
'' If nowTime <= startTime Then '尚未開盤
'' Exit Sub
'' ElseIf nowTime > stopTime Then '已經收盤
'' Exit Sub
'' If [A2] <> "" And [A2] <> "###" Then '清盤的狀態, 不取其資料
' tr = Int((nowTime - startTime) * 288) + 2 '每差 300 秒就換一列
' If Range("D" & tr) = "" Then
' Range("D" & tr) = Range("A2") '開始價
' End If
' If Range("E" & tr) = "" Or Range("A2") > Range("E" & tr) Then
' Range("E" & tr) = Range("A2") '最高價
' End If
' If Range("F" & tr) = "" Or Range("A2") < Range("F" & tr) Then
' Range("F" & tr) = Range("A2") '最低價
' End If
' Range("G" & tr) = Range("A2") '結束價
'End Sub |
|
