为什么这不起作用？（VBA）

我明白这是非常基本的，但我已经尝试过调试，我不明白为什么'Number1'在第四行运行后没有得到一个分配给它的编号。它保持为零。当前运行时，所有单元格都标记为绿色

Sub Colour()

    Dim Number1 As Long

    For i = 17 To 32

        Number1 = Cells(i, 12).Value

        If Number1 < Cells(i, 6).Value And Number1 > Cells(i, 5).Value Then

        Cells(i, 12).Interior.ColorIndex = 3

    Else

        Cells(i, 12).Interior.ColorIndex = 4

    End If

        Next i


    End Sub

子颜色（）
暗数1等于长数
对于i=17到32
Number1=单元格（i，12）。数值
如果Number1<单元格（i，6）.值，Number1>单元格（i，5）.值，则
单元格（i，12）.Interior.ColorIndex=3
其他的
单元格（i，12）。Interior.ColorIndex=4
如果结束
接下来我
端接头

活动工作表的单元格L17中有什么？还有，E17和F17中有什么？（我要冒险一试，猜测你会说类似于

0.21

，

0.30

和

0.50

，我们会回答“

Long

是一个整数数字类型，所以

0.21

将四舍五入到

0

”）我复制你的代码并检查它，如果给定的条件为真，它工作正常。用红色填充单元格。因此，如果您没有看到预期的结果，您可能应该处理您的if语句id。İ如果您提供日期，我们可以进一步提供帮助。