Question

我创建了一个代码，该代码根据百分比误差值对数据进行排序。该代码一直在正常工作，但是今天早上我遇到了一个以前从未遇到过的错误，而且不确定如何解决。

我尝试打开模板并重新启动项目，但遇到相同的错误。

代码问题在以下行中：

If sht1.Range("F" & ii).Value < 0.002 And sht1.Range("F" & ii).Value > -0.002 Then

我得到：type 13, mismatch error

任何帮助将不胜感激，因为该代码昨天有效，现在我很想知道可能会发生的变化。

Answer 1

当单元格包含错误时，您会收到Type mismatch错误。您可以使用IsError函数进行检查：

Dim val As Variant
val = sht1.Range("F" & ii).Value
If Not IsError(val) Then
    If val < 0.002 And val > -0.002 Then
        ' ... Do your work ...
    End If
End If

昨天运行良好的代码上的mismatch类型的新错误

1 个答案: