VBA If语句单元格值相乘报类型不匹配，求相近值判断方案

问题背景 #

需要判断H13和F13两个单元格的值是否相近，逻辑如下：

• 当H13的值大于F13，且H13乘以0.95后小于F13时，在指定单元格标记Close
• 当H13的值小于F13，且H13乘以1.05后大于F13时，在指定单元格标记Close

编写的If语句执行时出现类型不匹配错误，移除乘法运算后代码可正常运行（已确认单元格值均为数字），寻求修复方法或更优方案。

原代码：

ElseIf Range("H13").Value > Range("F13").Value And (Range("H13").Value * 0.95) < _
        Range("F13").Value Then
    Cells(2 + I, 7).Value = "Close"

ElseIf Range("H13").Value < Range("F13").Value And (Range("H13").Value * 1.05) > _
        Range("F13").Value Then
    Cells(2 + I, 7).Value = "Close"

修复类型不匹配问题 #

直接用Value2替代Value即可解决。Value可能返回带格式的变体类型，而Value2直接返回纯数值，避免类型转换冲突：

ElseIf Range("H13").Value2 > Range("F13").Value2 And (Range("H13").Value2 * 0.95) < _
        Range("F13").Value2 Then
    Cells(2 + I, 7).Value = "Close"

ElseIf Range("H13").Value2 < Range("F13").Value2 And (Range("H13").Value2 * 1.05) > _
        Range("F13").Value2 Then
    Cells(2 + I, 7).Value = "Close"

更优的相近值判断方案 #

可以通过计算相对偏差简化逻辑，避免重复代码，同时逻辑更清晰：

Dim hVal As Double, fVal As Double
hVal = Range("H13").Value2
fVal = Range("F13").Value2

' 判断相对偏差是否在±5%范围内
If fVal <> 0 Then
    If Abs((hVal - fVal) / fVal) <= 0.05 Then
        Cells(2 + I, 7).Value = "Close"
    End If
Else
    ' 处理F13为0的特殊情况，可自定义接近0的阈值
    If Abs(hVal) <= 0.05 Then
        Cells(2 + I, 7).Value = "Close"
    End If
End If

内容的提问来源于stack exchange，提问作者Frederick Beasley