Excel：将单元格颜色从命名范围复制到下拉菜单

Question

谁能帮我？ 我在sheet1和sheet2单元格中有一个命名范围，这些命名范围将命名范围作为下拉列表引用。 我想从下拉列表sheet2选择命名范围sheet1的单元格颜色。 感谢您的支持。

Answer 1

您可以通过VBA Worksheet_change事件来实现。 确保您的彩色范围从sheet1单元格A1开始。 然后在Worksheet module中的Worksheet module （不是regular module ）中输入此代码。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
      x = Application.WorksheetFunction.Match(Range("A1").Value, Worksheets("Sheet1").Range("NamedRange"), 0)
      Range("A1").Interior.Color = Worksheets("Sheet1").Range("A" & x).DisplayFormat.Interior.Color
    End If
End Sub

该代码假定您在单元格A1有data validation单元格，但是您可以根据需要调整代码的Target.Adress和range("A1")部分。