求助单元格自动填色的设置

justinzhu266266

请教各位高手。如何在工作表Loop中对列J到N设置以下格式：

如果F是smoke或strobe，并且J和K都不为pass时，列K设为绿色。
如果F是smoke或strobe，并且L和M都不为pass时，列M设为绿色。

如果F是therm时，并且J不为pass时，列K为绿色。
如果F是therm时，并且J和K都不为pass时，列L为绿色。
如果F是therm时，并且J，K和L都不为pass时，列M为绿色。
如果F是therm时，并且J，K，L和M都不为pass时，列N为绿色。

如果F是mcp时，从列J到N，如果不为pass时则为绿色。

此设置的目的是根据F列设备的种类和每一年检查的结果，调整下一年的颜色，提醒操作者应该在该年度进行检查。我尝试了条件格式和VBA都不成功。谢谢帮助。

tchh666

是这里带有空格造成的不匹配吧。。

510621666

Sub ApplyConditionalFormatting()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
   
    ' 设置工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 替换为您的工作表名称
   
    ' 获取最后一行
    lastRow = ws.Cells(ws.Rows.Count, "F").End(xlUp).Row
   
    ' 循环遍历行
    For i = 2 To lastRow ' 假设第一行是标题行，从第二行开始
        ' 检查条件并应用格式
        
        If (ws.Range("F" & i).Value = "smoke" Or ws.Range("F" & i).Value = "strobe") And ws.Range("J" & i).Value <> "pass" And ws.Range("K" & i).Value <> "pass" Then
            ws.Range("K" & i).Interior.Color = RGB(0, 255, 0) ' 将列K设为绿色
        End If
        
        If (ws.Range("F" & i).Value = "smoke" Or ws.Range("F" & i).Value = "strobe") And ws.Range("L" & i).Value <> "pass" And ws.Range("M" & i).Value <> "pass" Then
            ws.Range("M" & i).Interior.Color = RGB(0, 255, 0) ' 将列M设为绿色
        End If
        
        If ws.Range("F" & i).Value = "therm" And ws.Range("J" & i).Value <> "pass" Then
            ws.Range("K" & i).Interior.Color = RGB(0, 255, 0) ' 将列K设为绿色
        End If
        
        If ws.Range("F" & i).Value = "therm" And ws.Range("J" & i).Value <> "pass" And ws.Range("K" & i).Value <> "pass" Then
            ws.Range("L" & i).Interior.Color = RGB(0, 255, 0) ' 将列L设为绿色
        End If
        
        If ws.Range("F" & i).Value = "therm" And ws.Range("J" & i).Value <> "pass" And ws.Range("K" & i).Value <> "pass" And ws.Range("L" & i).Value <> "pass" Then
            ws.Range("M" & i).Interior.Color = RGB(0, 255, 0) ' 将列M设为绿色
        End If
        
        If ws.Range("F" & i).Value = "therm" And ws.Range("J" & i).Value <> "pass" And ws.Range("K" & i).Value <> "pass" And ws.Range("L" & i).Value <> "pass" And ws.Range("M" & i).Value <> "pass" Then
            ws.Range("N" & i).Interior.Color = RGB(0, 255, 0) ' 将列N设为绿色
        End If
        
        If ws.Range("F" & i).Value = "mcp" And (ws.Range("J" & i).Value <> "pass" Or ws.Range("K" & i).Value <> "pass" Or ws.Range("L" & i).Value <> "pass" Or ws.Range("M" & i).Value <> "pass" Or ws.Range("N" & i).Value <> "pass") Then
            ws.Range("J" & i & ":N" & i).Interior.Color = RGB(0, 255, 0) ' 将列J到N设为绿色
        End If
    Next i
   
    ' 清除选择
    ws.Cells(1, 1).Select
End Sub

tchh666

清除 空格 就可以了

justinzhu266266

tchh666 发表于 2023-7-8 09:25
清除 空格 就可以了

谢谢你的回复，去掉空格后确实就好了。