Gå til hovedindhold

Hvordan henvises der til format og værdi fra en anden celle i Excel?

Normalt bruger vi formlen = A1 til at henvise celle A1 til en anden celle i regnearket. Men dette kan kun henvise til celleværdien. Hvis du vil henvise til celleværdien såvel som dens format, skal du prøve en anden metode. Denne artikel giver dig to metoder til at nå det.

Referenceformat og værdi fra en anden celle med indsat linket billede
Automatisk referenceformat og værdi fra en anden celle med VBA


Referenceformat og værdi fra en anden celle med indsat linket billede

Antag, at du vil henvise til format og værdi fra celle A1, skal du gøre som følger for at få det gjort.

1. Vælg den celle (A1), du skal henvise til, og kopier den derefter ved at trykke på Ctrl + C nøgler.

2. Gå til den celle, du vil linke referencecellen, højreklik på den og Vælg > Indsæt speciel > Sammenkædet billede. Se skærmbillede:

Nu henvises til format og værdi for celle A1 til en bestemt celle. Og formatet og værdien af ​​disse to celler vil være synkronisk som vist nedenstående skærmbillede.


Automatisk referenceformat og værdi fra en anden celle med VBA

Du kan automatisk referere til format og værdi fra en anden celle ved at køre nedenstående VBA-script.

1. Højreklik på arkfanen, der indeholder den celle, du skal henvise til, og klik derefter på Vis kode fra højreklikmenuen.

2. I popping up Microsoft Visual til applikationer vindue, kopier og indsæt nedenstående VBA-kode i kodevinduet.

VBA-kode: Referenceformat og værdi fra en anden celle

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

Bemærk: I koden er Ark1 arknavnet, der indeholder den celle, du har brug for for at henvise til både værdi og format. A1 og E2 betyder, at celle A1 automatisk henvises til celle E2.

Fra nu af, når værdien ændres i celle A1 i Ark1, henvises dens værdi og format til celle E2 med det samme.


Relaterede artikler:

Bedste kontorproduktivitetsværktøjer

Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøj (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøj (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøj (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøj (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

kte-fane 201905


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Can I mirror the first 5 columns on each new sheet? I have the data just want the formatting to change with all sheets instead of having to do so repeatedly
This comment was minimized by the moderator on the site
Hello did the below code but it did not work
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Worksheets("Competitive Analysis Summary")
If .Range("BI7").Value2 <> "" Then
On Error Resume Next
Range("BI7").Copy (Worksheets("In Depth View - ADP").Range("E55"))
End If
End With
End Sub
This comment was minimized by the moderator on the site
Hi, after adding the code, you need to modify the worksheet "Competitive Analysis Summary" to enable the VBA.
This comment was minimized by the moderator on the site
How do I do that if I want to copy to a different sheet?
This comment was minimized by the moderator on the site
Hi Lil,
If you need to copy to a different sheet, please apply the below VBA code. Sheet1 is the original worksheet, Sheet3 is the destination worksheet. Please change them based on your needs.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Worksheets("Sheet1")
If .Range("A5").Value2 <> "" Then
On Error Resume Next
Range("A5").Copy (Worksheets("Sheet3").Range("E2"))
End If
End With
End Sub
This comment was minimized by the moderator on the site
How to run this code on excel? Does it need to be run on both worksheet? Can it be specific like step-by-step?
This comment was minimized by the moderator on the site
Hi Jesse,Hi, as the above code mentioned, you just need to fill the code in the original worksheet's Code window, when changing the cell value in the original worksheet (A5 in Sheet1 in this case), the code will be runned automatically. And cell A5 in Sheet1 will be copied to E2 in Sheet3.
This comment was minimized by the moderator on the site
Hi! Very cool!! Is there a way to do the first option in Google Spreadsheets?
This comment was minimized by the moderator on the site
Hi Julian,
Sorry we didn't test in Google sheets. Thanks for your comment.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations