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

Question

任何人都可以帮助我吗？我在sheet1和sheet2个单元格中有一个命名范围，它将命名范围作为下拉列表引用。我想在下拉列表sheet1中选择单元格颜色时，从指定范围sheet2复制单元格颜色。 我很感激任何支持。

Answer 1

您可以通过VBA Worksheet_change事件来实现此目的。确保您的彩色范围从A1上的单元格sheet1开始。然后在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

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