Punte di Excel
  1. Punte di Excel
  3. Excel: Copia il colore della cella da un intervallo denominato in un menu a discesa
Intereting Posts
Generare un elenco di date date le date di inizio e fine Inserimento di una gamma di dati da un foglio a quello successivo Come mostrare i giorni senza dati in excel entro un intervallo VBA con errore di runtime 1004 gamma di selezione Ridurre una tabella Excel 2d in una 'list' di una singola row (e rimuovere i duplicati Come cambiare il context di esecuzione tra 2 Excel.Applications come scrivere in foglio Excel utilizzando l'output di script di selenium vba excel match su criteri multipli Come sbarazzarsi del piè di pagina quando crei un html da un file excel con python Timestamp in Excel con requisiti molto specifici Come leggere il valore di Excel ListBox in Java utilizzando Apache POI Trovare un text specifico ma non impostare un riferimento specifico di cella Iterating attraverso un intervallo fino a trovare valore diverso in VBA Regolazione dell'altezza di row secondo il text nella colonna selezionata in excel Riaggancia i risultati da cella a 10

Excel: Copia il colore della cella da un intervallo denominato in un menu a discesa

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.