Come mantenere la formattazione delle celle quando si fa riferimento a celle di altri fogli?
In genere, la cella conserva solo il valore quando si fa riferimento a un’altra cella, ma in questo articolo presento un codice VBA per mantenere sia i valori che la formattazione delle celle durante il riferimento a un’altra cella; inoltre, i valori e la formattazione della cella cambiano allorché cambia la cella di riferimento, come mostrato nello screenshot seguente.
Mantieni la formattazione delle celle durante il riferimento a un’altra cella con VBA
Mantieni la formattazione delle celle durante il riferimento a un’altra cella con VBA
Per eseguire questa operazione, basta eseguire il codice seguente.
1. Apri la cartella di lavoro che utilizzi, premi Alt + F11 per aprire la finestra di Microsoft Visual Basic, Applications, quindi fai doppio clic sul nome del foglio in cui inserirai il riferimento alla cella nel riquadro Progetto - VBAProject per visualizzare uno script vuoto. In questo caso, voglio fare riferimento alla cella A1 nel Foglio1. Vedi lo screenshot:
2. Incolla il codice seguente nello script e personalizza la cella singola specificata in base alle tue esigenze nel codice VBA.
VBA: Mantieni formattazione e valori durante il riferimento a un’altra cella
Private Sub Worksheet_Activate()
'UpdatebyExtendoffice20101024
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Or Target.Value = "" Then Exit Sub
Application.EnableEvents = False
If Not Intersect(Target, Range("A1")) Is Nothing Then 'Range("A1") the reference cell
Target.Copy
ActiveWorkbook.Sheets("Sheet2").Range("B1").PasteSpecial xlPasteAllUsingSourceTheme
'Range("B1")the cell linked to reference cell,ActiveWorkbook.Sheets("Sheet2")the sheet which contains linked cell
Application.CutCopyMode = False
Target.Select
End If
Application.EnableEvents = True
End SubNota: A1 è la cella di riferimento; B1 nel Foglio 2 è la cella che desideri collegare alla cella di riferimento, in modo da mantenere valori e formattazione identici a quelli di A1 nel Foglio1.
Pertanto, quando modifichi i valori o la formattazione nella cella A1 del Foglio1, la cella B1 del Foglio2 verrà aggiornata con un semplice doppio clic sulla cella di riferimento.
Sblocca la magia di Excel con KUTOOLS AI
- Esecuzione intelligente: Esegui operazioni sulle celle, analizza i dati e crea grafici, il tutto con comandi semplici e intuitivi.
- Formule personalizzate: crea formule su misura per ottimizzare i tuoi flussi di lavoro.
- Codifica VBA: Scrivi e implementa codice VBA in modo semplice e immediato.
- Interpretazione delle formule: Comprendi con facilità anche le formule più complesse.
- Traduzione del testo: Superate le barriere linguistiche direttamente nei vostri fogli di calcolo.
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi