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

Cum se referă formatul și valoarea dintr-o altă celulă din Excel?

În mod normal, folosim formula = A1 pentru a referi celula A1 la o altă celulă din foaia de lucru. Dar acest lucru poate face referire doar la valoarea celulei. Dacă doriți să faceți referire la valoarea celulei, precum și la formatul acesteia, trebuie să încercați o altă metodă. Acest articol vă oferă două metode pentru ao realiza.

Format și valoare de referință dintr-o altă celulă cu lipirea imaginii legate
Format și valoare de referință automată dintr-o altă celulă cu VBA


Format și valoare de referință dintr-o altă celulă cu lipirea imaginii legate

Presupunând că doriți să faceți referire la format și valoare din celula A1, vă rugăm să procedați după cum urmează pentru a finaliza.

1. Selectați celula (A1) pe care trebuie să o referiți, apoi copiați-o apăsând Ctrl + C chei.

2. Mergeți la celula pe care doriți să o legați celula de referință, faceți clic dreapta pe ea și selecta > Lipiți special > Imagine legată. Vedeți captura de ecran:

Acum formatul și valoarea celulei A1 sunt trimise la o celulă specificată. Iar formatul și valoarea acestor două celule vor fi sincronice așa cum se arată în imaginea de mai jos.


Format și valoare de referință automată dintr-o altă celulă cu VBA

Puteți face referință automat la format și valoare dintr-o altă celulă executând scriptul VBA de mai jos.

1. Faceți clic dreapta pe fila de foaie care conține celula la care trebuie să faceți referință, apoi faceți clic pe Afișați codul din meniul cu clic dreapta.

2. În fereastra pop-up Microsoft Visual pentru aplicații fereastră, copiați și lipiți codul VBA de mai jos în fereastra Cod.

Cod VBA: format și valoare de referință dintr-o altă celulă

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

notițe: În cod, Sheet1 este numele foii care conține celula de care aveți nevoie pentru a face referire atât la valoare, cât și la format. A1 și E2 înseamnă că celula A1 va fi trimisă automat la celula E2.

De acum înainte, când valoarea se schimbă în celula A1 din Sheet1, valoarea și formatul acesteia vor fi trimise imediat la celula E2.


Articole pe aceeași temă:

Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
fundul officetab
Comentarii (9)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut! Foarte tare!! Există o modalitate de a face prima opțiune în Foile de calcul Google?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Buna Julian,
Ne pare rău că nu am testat în foi de calcul Google. Multumesc pentru comentariul tau.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Cum fac asta dacă vreau să copiez pe o altă foaie?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Buna Lil,
Dacă trebuie să copiați pe o altă foaie, vă rugăm să aplicați codul VBA de mai jos. Sheet1 este foaia de lucru originală, Sheet3 este foaia de lucru destinație. Vă rugăm să le schimbați în funcție de nevoile dvs.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Cu foi de lucru ("Sheet1")
Dacă .Range("A5").Value2 <> "" Atunci
La data de eroare CV următoare
Interval ("A5"). Copiere (Foaie de lucru ("Sheet3").Range ("E2"))
Final, dacă
Se termina cu
End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Cum se rulează acest cod pe excel? Trebuie să fie rulat pe ambele foi de lucru? Poate fi specific ca pas cu pas?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună Jesse, Bună, după cum s-a menționat în codul de mai sus, trebuie doar să completați codul în fereastra Cod a foii de lucru inițiale, atunci când schimbați valoarea celulei din foaia de lucru originală (A5 în Sheet1 în acest caz), codul va fi rulat automat. Și celula A5 din Sheet1 va fi copiată în E2 din Sheet3.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, am făcut codul de mai jos, dar nu a funcționat
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Cu foi de lucru ("Rezumatul analizei concurentei")
Dacă .Range("BI7").Value2 <> "" Atunci
La data de eroare CV următoare
Interval ("BI7"). Copiere (Foi de lucru ("Vizualizare în profunzime - ADP"). Interval ("E55"))
Final, dacă
Se termina cu
End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, după adăugarea codului, trebuie să modificați foaia de lucru „Rezumatul analizei concurenței” pentru a activa VBA.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Pot oglindi primele 5 coloane de pe fiecare foaie nouă? Am datele doar vreau ca formatarea să se schimbe cu toate foile, în loc să trebuiască să o fac în mod repetat
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL