判断大于两位小数的单元格

jiangjian1380

新建 Microsoft Excel 工作表.rar (6.83 KB, 下载次数: 6)

2018-7-2 11:51 上传

点击文件名下载附件

判断区域内数据，大于两位小数的数据并标黄色，同时数据量比较多，所以想用代码解决

liucf

看看是这样吧

jiangjian1380

liucf 发表于 2018-7-2 12:08
看看是这样吧

出现空行空列的时候就不能识别了

jiangjian1380

liucf 发表于 2018-7-2 12:08
看看是这样吧

刚才有空行空列没法判断的解决了。但是我想增加一个条件，只要有一个单元格出现大于两位小数的数据，都会弹出提示框说黄色单元格未保留两位小数

zhangzhang

条件格式。。。。。。。。。。。

jiangjian1380

zhangzhang 发表于 2018-7-2 12:45
条件格式。。。。。。。。。。。

能用VB代码两个一起实现吗？只要有一个单元格出现大于两位小数的数据，都会弹出提示框说黄色单元格未保留两位小数

zhangzhang

Public Sub Check()
Dim Rng As Range
Dim Cel As Range

Set Rng = Range("G9").CurrentRegion

For Each Cel In Rng
    If Cel * 100 - Int(Cel * 100) > 0 Then
        MsgBox "单元格 " & Cel.Address(0, 0) & " 未保留两位小数。"
        Cel.Select
        Exit Sub
    End If
Next Cel
End Sub

哪不如编写成 没有保留 两位小数的值 直接改为 保留两位小数

jiangjian1380

jiangjian1380 发表于 2018-7-2 12:26
出现空行空列的时候就不能识别了

为什么有些数据明明是两位小数，但是还给判断出来时大于两位小数的情况

liucf

jiangjian1380 发表于 2018-7-2 16:05
为什么有些数据明明是两位小数，但是还给判断出来时大于两位小数的情况

在前面加上一句
ActiveWorkbook.PrecisionAsDisplayed = True
试试