Question

如果该组中的一个单元格是某个单词，则尝试遍历某个范围并突出显示一组单元格。它将通过第一行组并正确突出显示，然后不会循环到下一行。

Sub status()

Dim cell As Object

For Each cell In range("A10:R285")

If cell.Value = "Available" Then
    cell.Offset(-2, 0).Interior.Color = 5287936
    cell.Offset(-1, 0).Interior.Color = 5287936
    cell.Interior.Color = 5287936
    cell.Offset(1, 0).Interior.Color = 5287936
End If

Next cell

End Sub

突出显示"if cell.value = "available" then"行，并说错误类型不匹配

Answer 1

尝试：

Sub status()

Dim cell As Range

For Each cell In ActiveSheet.Range("A10:R285")
    If Not IsError(cell.Value) Then
    If cell.Value = "Available" Then
        cell.Offset(-2, 0).Resize(4,1).Interior.Color = 5287936
    End If
    End If
Next cell

End Sub

解决：每个代码的VBA

1 个答案: