根据该行的某个单元格中的值单击行时，是否可以突出显示列？

Question

以下是我的情况：

当我根据同一行的某个单元格中的值单击一行中的任何单元格时，我想突出显示各种列。

示例：

我点击第2行 - ＆gt; C2表示“蓝色” - ＆gt;列B，D，E，F自动以黄色突出显示

这可能吗？ （每次点击不同的行时，最好不要重新运行宏）

谢谢！

Answer 1

实际上非常简单的VBA。祝你好运。

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim lngRow As Long, intCol

lngRow = Target.Row

If Cells(lngRow, 3) = "Blue" Then intCol = 6 Else: intCol = 0

Columns(2).Interior.ColorIndex = intCol
Columns(4).Interior.ColorIndex = intCol
Columns(5).Interior.ColorIndex = intCol
Columns(6).Interior.ColorIndex = intCol


End Sub