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
Trova la data più vicina alla data corrente in VBA Excel per rimuovere i duplicati sulla base della media Recupera l'elenco delle celle in Excel Dove la colonna è uguale a qualcosa Metodo o dati non trovati nel semplice programma VBA Spostando gli elementi alla fine della row precedente Copia la row Excel in un foglio di lavoro diverso quando il menu a discesa "Yes" e quando "No" rimuove la row se è stata selezionata "Yes" OleDbDataAdapter non import la colonna selezionata Come convertire la colonna in row Leggere e modificare grandi file Excel con Apache POI leggi excel a datatable con dati intermixed Tabella Excel associata al server SQL con criteri / parametri di filter specificati dall'utente senza utilizzare MSQuery o VBA? Nascondi cinque righe consecutive EXCEL – sum dei valori in colonna per each valore in colonna adiacente Selezione di una row specifica basata su un valore di cella Autore redirect una pagina .Asp e mantenere le stesse variables Richiesta

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.