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.