十进制值的验证检查

Question

如何使用VBA验证具有十进制值的Excel单元格。

Answer 1

试试这个：

Sub main()
Dim i As Integer
For i = 2 To 8
    If Fix(Cells(i, 1)) <> Cells(i, 1) Then
        Range(Cells(i, 1), Cells(i, 1)).Interior.Color = vbRed
    End If

Next i
End Sub

假设我们有以下数据：

结果：