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

【问题标题】：Excel: Copy cell colour from a named range to a drop down menuExcel：将单元格颜色从命名范围复制到下拉菜单
【发布时间】：2017-09-21 21:16:46
【问题描述】：

谁能帮帮我？我在sheet1 和sheet2 单元格中有一个命名范围，这些单元格将命名范围作为下拉列表引用。我想在下拉列表sheet2 中选择命名范围sheet1 时复制单元格颜色。我将不胜感激。

【问题讨论】：

标签： excel

【解决方案1】：

您可以通过 VBA Worksheet_change 事件来实现这一点。确保您的颜色范围从sheet1 上的单元格A1 开始。然后在 sheet2 中输入此代码 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") 部分代码。

【讨论】：