如何批量查找逻辑错误值？

YZLSZAJ

求助各位老师：
    当L4:L为100、110、120、130时，R4:R、U4:W不能为空；当M4:M为43、44时，O4:O、O4:O不能有数字，如何用VBA一键批量检查并显示为红色？
    谢谢。

批量查找逻辑错误值.zip (14.75 KB, 下载次数: 18)

2017-1-10 06:57 上传

点击文件名下载附件

lsc900707

有时间再看看>>>>>>>>>>>>>

lsc900707

不知道理解对不对，请测试代码：
Sub lsc()
   ActiveSheet.Cells.Interior.ColorIndex = 0
   arr = ActiveSheet.[b3].CurrentRegion
   For i = 4 To UBound(arr)
       If Cells(i, 12) = 100 Or Cells(i, 12) = 110 Or Cells(i, 12) = 120 Or Cells(i, 12) = 130 Then
            If Cells(i, 18) = "" Or Cells(i, 21) = "" Or Cells(i, 22) = "" Or Cells(i, 23) = "" Then
                Union(Cells(i, 18), Cells(i, 21), Cells(i, 22), Cells(i, 23)).Interior.ColorIndex = 3
            End If
        End If
        If Cells(i, 13) = 43 Or Cells(i, 13) = 44 Then
            If IsNumeric(Cells(i, 15)) Then
                Cells(i, 15).Interior.ColorIndex = 3
            End If
        End If
    Next
    MsgBox "R、U、V、W列有单元格为空，请核对！"
    MsgBox "O列单元格有数字，请修改！"
End Sub

YZLSZAJ

lsc900707 发表于 2017-1-10 20:19
不知道理解对不对，请测试代码：
Sub lsc()
   ActiveSheet.Cells.Interior.ColorIndex = 0

很好，非常谢谢您的帮助。