当J列不等于935，或者“”值时，将不相等单元格标黄

sulli112

当J列不等于935，或者“”值时，将不相等单元格标黄Sub 数据判断()
Dim i%
If target.Address = Sheet1.Cells(i, 8) And target.Value <> "935" Or " " Then
Cells(i, 1).Interior.Color = vbYellow
End If
End Sub
想问问我这么写，为啥不可以呢？可以帮忙修改一下吗？谢谢

sylinmc

是H列吧

1. Sub 判断()
   
2. Dim Rng As Range
   
3. For Each Rng In Range("H2:H" & Range("B65536").End(xlUp).Row)
   
4.     If Rng <> 935 Or Rng = "" Then
   
5.         Rng.Interior.Color = vbYellow
   
6.     End If
   
7. Next
   
8. End Sub

复制代码

sulli112

有大神帮忙看看吗

lele6809

添加个模块：
Sub zz()
Sheet1.Select
    For i = 2 To Cells(Rows.Count, 8).End(3).Row
        If Cells(i, 8).Value <> "935" Or Cells(i, 8) = "" Then
            Cells(i, 1).Interior.Color = vbYellow
        End If
    Next
End Sub

sulli112

lele6809 发表于 2020-4-28 17:23
添加个模块：
Sub zz()
Sheet1.Select

Sub zz()
Sheet1.Select
    For i = 2 To Cells(Rows.Count, 8).End(3).Row
        If Cells(i, 8).Value = "935" Then
            Cells(i, 8).Interior.Color = vbWhite
            Else
             If Cells(i, 8).Value > "935" Or Cells(i, 8) = "" Then
            Cells(i, 8).Interior.Color = vbRed
            Else
            If Cells(i, 8).Value < "935" Or Cells(i, 8) = "" Then
            Cells(i, 8).Interior.Color = vyellow
        End If
        End If
        End If
    Next
End Sub
想问一下vba，不能识别三中颜色吗，为什么第三个if,符合条件的为黑色

sulli112

sylinmc 发表于 2020-4-28 16:50
是H列吧

谢谢啦，是这个意思