Una famiglia di software per fogli di calcolo Microsoft con strumenti per l'analisi, la creazione di grafici e la comunicazione dei dati.
Ciao, sono Leonielhou, un consulente indipendente e un utente come te, sono felice di aiutarti a chiarire qualsiasi domanda tu possa avere.
Apri l'editor VBA premendo Alt + F11. Nel riquadro Esplora progetti sul lato sinistro fare doppio clic sul foglio di lavoro in cui si desidera eseguire il codice. Nella finestra del codice visualizzata incollare il codice breve riportato di seguito.
Sub Worksheet_SelectionChange privato (ByVal Target As Range) Se non interseca(target, range("A2")) non è nulla allora Intervallo("A1"). Interior.Color = Intervallo("A2"). Interior.Color Fine Se Fine sub
NOTA: Sta causando bug nella mia fine. La soluzione facile è dopo aver cambiato il colore di A2, fare clic su una cella casuale, quindi fare nuovamente clic su A2
Questo codice utilizza l'evento Worksheet_SelectionChange, che viene attivato ogni volta che viene modificata la selezione di una cella. Il codice controlla se la cella selezionata si interseca con la cella A2 e, in caso affermativo, imposta il colore interno della cella A1 sullo stesso colore della cella A2.
Questa risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o espressioni strane.