Note: The other languages of the website are Google-translated. Back to English

Come fare riferimento a formato e valore da un'altra cella in Excel?

Normalmente, usiamo la formula = A1 per fare riferimento alla cella A1 a un'altra cella nel foglio di lavoro. Ma questo può solo fare riferimento al valore della cella. Se vuoi fare riferimento al valore della cella e al suo formato, devi provare un altro metodo. Questo articolo fornisce due metodi per ottenerlo.

Formato di riferimento e valore da un'altra cella con l'incollaggio dell'immagine collegata
Formato e valore di riferimento automatico da un'altra cella con VBA


Formato di riferimento e valore da un'altra cella con l'incollaggio dell'immagine collegata

Supponendo di voler fare riferimento al formato e al valore dalla cella A1, si prega di fare quanto segue per farlo.

1. Selezionare la cella (A1) a cui fare riferimento, quindi copiarla premendo Ctrl + C chiavi.

2. Vai alla cella a cui desideri collegare la cella di riferimento, fai clic con il pulsante destro del mouse e select > Incolla speciale > Immagine collegata. Vedi screenshot:

Ora il formato e il valore della cella A1 fa riferimento a una cella specificata. E il formato e il valore di queste due celle saranno sincronizzati come mostrato nell'immagine sottostante.


Formato e valore di riferimento automatico da un'altra cella con VBA

Puoi fare riferimento a formato e valore da un'altra cella automaticamente eseguendo lo script VBA di seguito.

1. Fare clic con il pulsante destro del mouse sulla scheda del foglio che contiene la cella a cui fare riferimento, quindi fare clic su Visualizza codice dal menu di scelta rapida.

2. Nel spuntare Microsoft Visual per applicazioni finestra, copia e incolla il codice VBA sottostante nella finestra del codice.

Codice VBA: formato di riferimento e valore da un'altra cella

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    With Worksheets("Sheet1")
        If .Range("A1").Value2 <> "" Then
            On Error Resume Next
            Range("A1").Copy (.Range("E2"))
        End If
    End With
End Sub

Note:: Nel codice, Sheet1 è il nome del foglio che contiene la cella di cui hai bisogno per fare riferimento sia al valore che al formato. A1 ed E2 indicano che la cella A1 verrà automaticamente referenziata alla cella E2.

D'ora in poi, quando il valore cambia nella cella A1 di Sheet1, il suo valore e formato verranno immediatamente referenziati alla cella E2.


Articoli correlati:

I migliori strumenti per la produttività in ufficio

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

  • Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
  • Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
  • Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
  • Più di 300 potenti funzionalità. Supporta Office/Excel 2007-2021 e 365. Supporta tutte le lingue. Facile implementazione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
scheda kte 201905

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il lavoro

  • 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 della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
fondo officetab
Commenti (9)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
Ciao! Molto bello!! C'è un modo per fare la prima opzione in Google Spreadsheets?
Questo commento è stato fatto dal moderatore sul sito
Ciao Julian,
Siamo spiacenti di non aver testato nei fogli di Google. Grazie per il tuo commento.
Questo commento è stato fatto dal moderatore sul sito
Come faccio se voglio copiare su un foglio diverso?
Questo commento è stato fatto dal moderatore sul sito
Ciao Lil,
Se è necessario copiare su un foglio diverso, applicare il codice VBA sottostante. Foglio1 è il foglio di lavoro originale, Foglio3 è il foglio di lavoro di destinazione. Si prega di cambiarli in base alle proprie esigenze.

Private Sub Worksheet_Change (ByVal Target As Excel.Range)
Con fogli di lavoro ("Foglio 1")
If .Range("A5").Value2 <> "" Allora
On Error Resume Next
Intervallo ("A5"). Copia (Fogli di lavoro ("Foglio 3"). Intervallo ("E2"))
End If
Fine Con
End Sub
Questo commento è stato fatto dal moderatore sul sito
Come eseguire questo codice su Excel? Deve essere eseguito su entrambi i fogli di lavoro? Può essere specifico come passo dopo passo?
Questo commento è stato fatto dal moderatore sul sito
Ciao Jesse, ciao, come il codice sopra menzionato, devi solo inserire il codice nella finestra del codice del foglio di lavoro originale, quando si modifica il valore della cella nel foglio di lavoro originale (in questo caso A5 in Sheet1), il codice verrà eseguito automaticamente. E la cella A5 in Foglio1 verrà copiata in E2 in Foglio3.
Questo commento è stato fatto dal moderatore sul sito
Ciao ha fatto il codice seguente ma non ha funzionato
Private Sub Worksheet_Change (ByVal Target As Excel.Range)
Con fogli di lavoro ("Riepilogo analisi competitiva")
If .Range("BI7").Value2 <> "" Allora
On Error Resume Next
Intervallo ("BI7"). Copia (Fogli di lavoro ("Vista dettagliata - ADP"). Intervallo ("E55"))
End If
Fine Con
End Sub
Questo commento è stato fatto dal moderatore sul sito
Salve, dopo aver aggiunto il codice, è necessario modificare il foglio di lavoro "Riepilogo analisi competitiva" per abilitare il VBA.
Questo commento è stato fatto dal moderatore sul sito
Posso rispecchiare le prime 5 colonne su ogni nuovo foglio? Ho i dati voglio solo che la formattazione cambi con tutti i fogli invece di doverlo fare ripetutamente
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite

Seguici

Copyright © 2009 - www.extendoffice.com. | Tutti i diritti riservati. Offerto da ExtendOffice, | Mappa del sito
Microsoft e il logo Office sono marchi o marchi registrati di Microsoft Corporation negli Stati Uniti e / o in altri paesi.
Protetto da Sectigo SSL