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

Jak odkazovat na formát a hodnotu z jiné buňky v aplikaci Excel?

Normálně používáme vzorec = A1 k odkazování na buňku A1 na jinou buňku v listu. To však může odkazovat pouze na hodnotu buňky. Pokud chcete odkazovat na hodnotu buňky i na její formát, musíte zkusit jinou metodu. Tento článek poskytuje dvě metody, jak toho dosáhnout.

Referenční formát a hodnota z jiné buňky s vložením propojeného obrázku
Automatický referenční formát a hodnota z jiné buňky pomocí VBA


Referenční formát a hodnota z jiné buňky s vložením propojeného obrázku

Předpokládejme, že chcete odkazovat na formát a hodnotu z buňky A1, proveďte prosím následující kroky.

1. Vyberte buňku (A1), na kterou potřebujete odkazovat, a zkopírujte ji stisknutím Ctrl + C klíče.

2. Přejděte na buňku, kterou chcete propojit s referenční buňkou, klikněte na ni pravým tlačítkem a vybrat > Vložit jinak > Propojený obrázek. Viz snímek obrazovky:

Nyní se formát a hodnota buňky A1 odkazuje na zadanou buňku. Formát a hodnota těchto dvou buněk bude synchronizována, jak je uvedeno níže.


Automatický referenční formát a hodnota z jiné buňky pomocí VBA

Formát a hodnotu z jiné buňky můžete odkazovat automaticky spuštěním níže uvedeného skriptu VBA.

1. Klikněte pravým tlačítkem na záložku listu, která obsahuje buňku, na kterou potřebujete odkazovat, a poté klikněte Zobrazit kód z nabídky pravého tlačítka myši.

2. Ve vyskakovacím okně Microsoft Visual pro aplikace zkopírujte a vložte níže uvedený kód VBA do okna Kód.

Kód VBA: Referenční formát a hodnota z jiné buňky

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

Poznámka: V kódu je List1 název listu, který obsahuje buňku, kterou potřebujete k odkazu na hodnotu i formát. A1 a E2 znamená, že buňka A1 bude automaticky odkazována na buňku E2.

Od této chvíle, když se hodnota změní v buňce A1 Listu1, bude její hodnota a formát okamžitě odkazováno na buňku E2.


Související články:

Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
officetab dno
Komentáře (9)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Ahoj! Skvělý!! Existuje způsob, jak provést první možnost v tabulkách Google?
Tento komentář byl moderátorem webu minimalizován
Hi Julian,
Je nám líto, že jsme netestovali v tabulkách Google. Děkuji za Váš komentář.
Tento komentář byl moderátorem webu minimalizován
Jak to udělám, když chci kopírovat na jiný list?
Tento komentář byl moderátorem webu minimalizován
ahoj Lil,
Pokud potřebujete kopírovat na jiný list, použijte níže uvedený kód VBA. List1 je původní list, List3 je cílový list. Změňte je prosím podle svých potřeb.

Private Sub Worksheet_Change (ByVal Target As Excel. Range)
S pracovními listy ("List1")
If .Range("A5").Value2 <> "" Pak
On Error Resume Next
Rozsah("A5").Copy (Worksheets("Sheet3")).Rozsah("E2"))
End If
Konec s
End Sub
Tento komentář byl moderátorem webu minimalizován
Jak spustit tento kód v Excelu? Musí to být spuštěno na obou listech? Může to být konkrétní jako krok za krokem?
Tento komentář byl moderátorem webu minimalizován
Ahoj Jesse, Ahoj, jak je zmíněno výše v kódu, stačí vyplnit kód v okně Kód původního listu, když změníte hodnotu buňky v původním listu (v tomto případě A5 v Listu1), kód se spustí automaticky. A buňka A5 v Listu1 bude zkopírována do E2 v Listu3.
Tento komentář byl moderátorem webu minimalizován
Hello udělal níže uvedený kód, ale nefungoval
Private Sub Worksheet_Change (ByVal Target As Excel. Range)
S pracovními listy („Shrnutí konkurenční analýzy“)
If .Range("BI7").Value2 <> "" Pak
On Error Resume Next
Rozsah("BI7").Kopírovat (Pracovní listy("V hloubkovém zobrazení - ADP").Rozsah("E55"))
End If
Konec s
End Sub
Tento komentář byl moderátorem webu minimalizován
Ahoj, po přidání kódu je potřeba upravit list "Competitive Analysis Summary" a povolit VBA.
Tento komentář byl moderátorem webu minimalizován
Mohu zrcadlit prvních 5 sloupců na každém novém listu? Mám data, jen chci, aby se formátování změnilo se všemi listy, místo toho, abych to musel dělat opakovaně
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL