Riferimento ai colori delle celle esterne (Microsoft Excel)
Beth ha chiesto come copiare la formattazione del colore di una cella esterna in una cella nella cartella di lavoro corrente. Sfortunatamente, non esiste un modo intrinseco per farlo utilizzando le funzionalità di collegamento di Excel. È tuttavia possibile copiare la formattazione da una cartella di lavoro a un’altra utilizzando una macro.
Ad esempio, considera il seguente codice macro:
Dim lMyColor As Long Workbooks.Open Filename:="C:\mypath\myworkbook.xlsm" lMyColor = Range("A1").Interior.Color Windows("TargetBook.xlsm").Activate Range("E8").Interior.Color = lMyColor
Questo codice apre una cartella di lavoro (myworkbook.xlsm) e acquisisce il colore di riempimento dalla cella A1. Quindi torna alla cartella di lavoro di destinazione (da cui si presume che questo codice sia in esecuzione) e inserisce il colore di riempimento nella cella E8.
Questo approccio funziona alla grande se si copia il colore di riempimento da una singola cella a una singola cella. Se, invece, vuoi copiare un intervallo di celle o copiare più formattazione del solo colore di riempimento, allora potresti essere più servito con questo approccio:
Workbooks.Open Filename:= "C:\mypath\myworkbook.xlsm" Range("A1:B6").Copy Windows("TargetBook.xlsm").Activate Range("E8").PasteSpecial Paste:=xlPasteFormats, _ Operation:=xlNone, SkipBlanks:=False, _ Transpose:=False
Anche in questo caso, questo codice apre la cartella di lavoro esterna. Quindi utilizza il metodo .Copy per un intervallo di celle (A1: B6). Dopo essere passati alla cartella di lavoro di destinazione, i formati di quelle celle vengono incollati nelle celle che iniziano da E8.
Se decidi di utilizzare un codice come questo, puoi inserirlo nella macro Auto_Open per la cartella di lavoro di destinazione. Ovviamente, è necessario modificare il codice in modo che faccia riferimento al percorso corretto e ai nomi delle cartelle di lavoro, insieme agli intervalli di origine e destinazione desiderati.
_Nota: _
Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.
ExcelTips è la tua fonte di formazione economica su Microsoft Excel.
Questo suggerimento (11169) si applica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 ed Excel in Office 365. Puoi trovare una versione di questo suggerimento per la vecchia interfaccia di menu di Excel qui: