VBA 标记单元格基于关键字答案

【问题标题】：VBA marking cells Based on keywordsVBA 标记单元格基于关键字
【发布时间】：2019-02-10 17:44:59
【问题描述】：

我已经根据单元格文本定义了一个用颜色填充的范围。在第一个示例中，它搜索单词“Auto”并将单元格标记为红色。我遇到困难的地方是扩展“if”命令，例如搜索条件进入列 E（但与“Auto”一词保持在同一行）查看“Mortgage”一词并将其标记为红色。然后它进一步向上移动列并将低于 4yr、6yr、7yr 的值标记为红色。下一步与“首选”一词相同。为简单起见，我附上了一张图片。这似乎有点棘手，我们将不胜感激。

 Sub Schaltfläche2_Klicken()
 Dim cell As Range

 For Each cell In ws.Range("A1:A100")
     If cell.Value = "Auto" Then
     cell.Interior.Color = XlRgbColor.rgbRed

     ElseIf cell.Value = "Mutti" Then
     cell.Interior.Color = XlRgbColor.rgbRed
    End If
Next
End Sub

【问题讨论】：

条件格式化不是更容易吗？还是我错过了什么？
条件格式听起来是我想要的。可以举个简单的例子吗？
可能是here 或here
请允许我查找一些 VBA 示例并将其应用于我的案例。如果我被困在某个地方，我会尝试在这里寻求帮助。谢谢你

标签： excel vba colors cell

【解决方案1】：

以下内容如何：

Sub Schaltfläche2_Klicken()
 Dim cell As Range

 For Each cell In ws.Range("A1:A100")
    If cell.Value = "Auto" Then
        Range("A" & cell.Row, "E" & cell.Row, "G" & cell.Row, "I" & cell.Row, "K" & cell.Row).Interior.Color = vbRed
    ElseIf cell.Value = "Mutti" Then
        Range("A" & cell.Row, "E" & cell.Row, "G" & cell.Row, "I" & cell.Row, "K" & cell.Row).Interior.Color = vbRed
    End If
Next
End Sub

【讨论】：

首先，代码运行出错。其次，代码还标记了 B、C 和 D 行。