Qualcuno può aiutarmi? Ho un intervallo denominato in sheet1
e sulle celle di sheet2
che fanno riferimento all'intervallo denominato come un elenco a discesa. Voglio copiare il colore delle celle dalla sheet1
field denominato1 quando è selezionata nel sheet2
elenco a sheet2
. Sarei grato per qualsiasi supporto.
È ansible get questo risultato attraverso l'evento VBA Worksheet_change
. Assicurarsi che la tua gamma colorata inizia nella cella A1
in sheet1
. quindi in foglio2 inserisci questo codice nel Worksheet module
di Worksheet module
(non 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
Questo codice presuppone che tu abbia la cella di data validation
nella cella A1
, ma puoi regolare la parte di codice Target.Adress
e range("A1")
ai tuoi biseach.