VBA与负数的冲突条件

时间:2017-02-02 20:14:54

标签: vba excel-vba access-vba excel

IF值IS>阴性75或阳性> 75 然后是红色。

然而,

我突出显示-0到-74,因为程序认为-10是>比-75,这不是我想要的。请帮忙。如何指定单元格值是否仅大于-75,例如。 -80等然后是红色,并排除-75以下的任何内容。

Dim FinalRow As Range
Dim x As Range

Set FinalRow = ThisWorkbook.Worksheets(1).Range(Range("D14").Offset(1, 0), Range("D" & Rows.Count).End(xlUp))

'RedLoop
For Each x In FinalRow
    If x.Offset(0, 3).Value <> "" And x.Offset(0, 3).Value / 1 > 0.75 Or  x.Offset(0, 3).Value / -1 > -0.75 Then
        x.Select
        Selection.Interior.ColorIndex = 3
    End If
Next x

0 个答案:

没有答案