Przejdź do głównej zawartości

Jak odwołać się do formatu i wartości z innej komórki w programie Excel?

Zwykle używamy formuły = A1, aby odnieść komórkę A1 do innej komórki w arkuszu. Ale może to odnosić się tylko do wartości komórki. Jeśli chcesz odwołać się do wartości komórki, a także do jej formatu, musisz wypróbować inną metodę. W tym artykule przedstawiono dwie metody osiągnięcia tego celu.

Format odniesienia i wartość z innej komórki z wklejonym obrazem połączonym
Automatyczny format odniesienia i wartość z innej komórki z VBA


Format odniesienia i wartość z innej komórki z wklejonym obrazem połączonym

Przypuśćmy, że chcesz odwołać się do formatu i wartości z komórki A1, wykonaj następujące czynności, aby to zrobić.

1. Wybierz komórkę (A1), do której chcesz się odwołać, a następnie skopiuj ją, naciskając Ctrl + C klawiatura.

2. Przejdź do komórki, z którą chcesz połączyć komórkę odniesienia, kliknij ją prawym przyciskiem myszy i wybierać > wklej specjalnie > Połączony obraz. Zobacz zrzut ekranu:

Teraz format i wartość komórki A1 odwołuje się do określonej komórki. Format i wartość tych dwóch komórek będą synchroniczne, jak pokazano poniżej.


Automatyczny format odniesienia i wartość z innej komórki z VBA

Możesz automatycznie odwołać się do formatu i wartości z innej komórki, uruchamiając poniższy skrypt VBA.

1. Kliknij prawym przyciskiem myszy kartę arkusza zawierającą komórkę, do której chcesz się odwołać, a następnie kliknij Wyświetl kod z menu po kliknięciu prawym przyciskiem myszy.

2. W wyskakującym okienku Microsoft Visual dla aplikacji okno, skopiuj i wklej poniższy kod VBA do okna Code.

Kod VBA: format odniesienia i wartość z innej komórki

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: W kodzie Arkusz1 to nazwa arkusza zawierająca komórkę, do której należy odwołać się zarówno do wartości, jak i formatu. A1 i E2 oznacza, że ​​komórka A1 będzie automatycznie odwoływać się do komórki E2.

Odtąd, gdy wartość zmieni się w komórce A1 arkusza Sheet1, jej wartość i format zostaną natychmiast odwołane do komórki E2.


Powiązane artykuły:

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis


Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
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