Excel VBA，如何使用一个工作表上的下拉列表中的选择格式（颜色）另一工作表上的一系列单元格

Question

从我收集到的信息来看，条件格式化无法在工作簿的各个工作表之间完成，因此我现在要尝试的是使用VBA。

我想在sheet1的下拉列表中选择一个词（比如说“是”或“否”）！ 然后为一系列单元着色； 在sheet3！上的范围（“ J3：P29”）。 如果选择“是”，则范围将被着色；如果选择“否”，则范围将不被着色。

我使用了macrorecorder来记录下面的代码。 但是，它不会记录下拉列表中的选择。 它只是用逗号代替了动作。

Sub RangeRed()
'
' RangeRed Macro
'

'
    Range("J3:P29").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With

End Sub

我将不胜感激一些帮助。 谢谢！

Answer 1

您需要进行几次更改。

1. 您需要利用sheet1上的Worksheet_Change事件来更新sheet3。
2. 在您的代码中，您将需要直接引用sheet3，因为您将无法从sheet1工作表事件中选择它。
3. 使用Target ，评估它是否满足指定条件，并根据需要更新sheet3

打开VB编辑器，然后打开Sheet1代码。 然后粘贴以下代码。

Private Sub Worksheet_Change(ByVal Target As Range)
' Target.Value will be contain the value of the changed cell
If Target.Value = "Yes" Then 
    With ThisWorkbook.Sheets("Sheet3").Range("J3:J5").Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 255 
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
Else
    With ThisWorkbook.Sheets("Sheet3").Range("J3:J5").Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 0 ' change to whatever color you want if Yes is not selected
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End If

End Sub

请注意， Target将捕获工作表上更改的任何单元格范围。 为了解决这个问题，您可以命名具有下拉列表的单元格，然后在Worksheet_Change事件中，仅在范围名称匹配时评估Target ； 例如

If Target.Name = "MyDropDown" Then
     ' Evaluate the value of Target and update sheet3 as intended

End If