返回列表下一主題上一主題發帖

[發問] "執行階段錯誤 13型態不符合

t8899

大學生 Rank: 4

帖子: 764
主題: 254
精華: 0
積分: 1031
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2025-6-7

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-10-24 20:05 | 顯示全部帖子

[發問] "執行階段錯誤 13型態不符合

本帖最後由 t8899 於 2012-10-24 20:07 編輯

一開檔錯誤停在 "If (Range("Q6").Value > Range("R1").Value) And flag = True Then"
測試得知是Q6 的問題, Q6為為某欄DDE功能匯入的總合...
錯誤視窗略過，仍可繼續............如何處理Q6一開檔的錯誤??

想忽略"執行階段錯誤 13型態不符合",
或是在錯誤行之前加入延遲2秒亦可
是否可解決??如何改??

Private Sub Worksheet_Calculate()
If (Range("P1").Value > Range("Q1").Value) And flag = True Then
CreateObject("Wscript.shell").Popup "OOOOO=>大筆成交 " & (Range("P1").Value)
Cells(1, 13).Interior.ColorIndex = 2
flag = False
End If
If (Range("Q6").Value > Range("R1").Value) And flag = True Then
CreateObject("Wscript.shell").Popup "xxxxxxx=>量能放大 " & (Range("Q1").Value)
Cells(1, 13).Interior.ColorIndex = 2
flag = False
End If
End Sub