Excel：名前のついた範囲からドロップダウンメニューにセルの色をコピー

Question

誰か助けてくれますか？私はsheet1に名前付きの範囲を持ち、sheet2という名前の範囲をドロップダウンリストとして参照するセルを持っています。ドロップダウンリストsheet2で選択されている場合、名前付き範囲sheet1からセルの色をコピーしたいと思います。 私はどんなサポートにも感謝します。

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 

このコードは、セルA1中であなたdata validationセルを持っていると仮定していますが、あなたのニーズにコードのTarget.Adressとrange("A1")一部を調整することができます。