vba - Excel 中的百分比值格式不正确

Question

我有一个非常小的百分比值列表(0.000% 格式)，这表示路由器的错误百分比。我想根据单元格上的数量格式化单元格颜色。如果量超过 0.050% 应该是红色，如果超过 0.005% 是琥珀色，其他都是绿色

这是我写的代码:

With .Cells(i, 8)
        If .NumberFormat <> "0.000%" Then
            .NumberFormat = "0.000%"
            If .Value2 <> vbNullString And IsNumeric(.Value2) Then .Value = .Value / 100
                If .Value2 = vbNullString Then
                    .Value = "---"
                    .HorizontalAlignment = xlRight
                End If
        Else
            .Value = 0
        End If

        If .Value > 0.05 Then
             .Interior.Color = RGB(237, 67, 55) '<-- Red color
             .Font.Color = vbWhite

            ElseIf .Value > 0.005 Then
                .Interior.Color = RGB(255, 190, 0) '<-- Amber Colour
                .Font.Color = vbWhite

            Else
                .Interior.Color = RGB(50, 205, 50) '<-- Green color
                .Font.Color = vbWhite
        End If
    End With

但是颜色格式不准确，这里是一些结果的列表:

0.034% <---green
0.845% <---amber
0.007% <---green
0.005% <---green
0.094% <---green

它不应该是这样的，因为含有0.845％并且是琥珀色的电池应该是鲜红色的!

Answer 1

存储的值不是百分比。它是等效的十进制数，这意味着您必须将小数点左移两位。所以比较0.05%您必须使用 0.0005 .