如果 Range("M7:Q500") 或 ("C7:C500") Excel VBA 中发生任何更改，则突出显示整行

Posted 2023-03-06

【中文标题】如果 Range("M7:Q500") 或 ("C7:C500") Excel VBA 中发生任何更改，则突出显示整行

【英文标题】：Highlight Entire row if any changes occur in Range("M7:Q500") or ("C7:C500") Excel VBA

【发布时间】：2016-08-07 15:49:52

【问题描述】：

我已经设置了一个代码，但我知道这是完全错误的。我的目标是在 ("M7:Q500") 或 ("C7:C500") 中进行更改时突出显示整行，并根据更改的位置突出显示行。 Ex Cell M7（已更改）突出显示整个 7 行

If Not Intersect(Target, Range("M7:Q500") Or ("C7:C500")) Is Nothing Then
    Cell.Interior.ColorIndex = 3
End If

【参考方案1】：

Or 部分是错误的。试试这个：

If Not Intersect(Target, Range("M7:Q500")) Is Nothing Or _
  Not Intersect(Target, Range("C7:C500")) Is Nothing Then
    Rows(Target.Row).Interior.ColorIndex = 3
End If

【讨论】：

我在这个 Cell.Interior.ColorIndex = 3 上遇到调试错误

@Chrismas007 被第一个错误挂断了。我完全错过了第二个。谢谢。

@ScottCraner 这样可以消除调试错误，但只会突出显示已更改的单个单元格。如何根据该更改突出显示整行？

你看到我的编辑了吗，它应该做整行。 @LuisChristmas007 的评论只会让我的评论应该做整行。

@Luis 请通过单击答案旁边的灰色/绿色复选标记将其标记为正确。这是只有你才能做的事情。