[發問] 請問一段excel vba程式碼的錯誤

本帖最後由 laieven 於 2015-6-11 14:57 編輯

我在工作表事件程序中的calculate中
放入了

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")

這一段程式碼~~但是偵錯卻一直告訴我
If Range("D" & tr) = "" Then
以及
If Range("E" & tr) = "" Or Range("A2") > Range("E" & tr) Then
這二段有錯誤

"執行錯誤13--型太不符合"

有請各位先進協助~~問題是什麼呢?感謝了!!!

樓主熱帖

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

2^#

發表於 2015-6-12 23:33 | 只看該作者

回復 1# laieven
試試開檔時先把 D欄與 E欄中的資料儲存區全部清除(值與格式),
後再執行其他程式.

TOP

laieven

中學生 Rank: 2

帖子: 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

TOP