Jak zachować formatowanie komórek podczas odwoływania się do innych komórek arkusza?
Ogólnie rzecz biorąc, komórka zachowuje wartość komórki tylko podczas odwoływania się do innej komórki, ale w tym artykule wprowadzam kod VBA, aby zachować wartości komórki i formatowanie podczas odwoływania się do innej komórki, a wartości komórek i formatowanie zmieniają się, gdy komórka odniesienia zmienia się, jak poniżej pokazany zrzut ekranu.
Zachowaj formatowanie komórki podczas odwoływania się do innej komórki za pomocą VBA
Zachowaj formatowanie komórki podczas odwoływania się do innej komórki za pomocą VBA
Aby wykonać to zadanie, wystarczy uruchomić poniższy kod.
1. Włącz używany skoroszyt, naciśnij Alt + F11 klucz, aby włączyć Microsoft Visual Basic dla aplikacji i kliknij dwukrotnie nazwę arkusza, w którym umieścisz komórkę odniesienia Projekt-VBAProjekt okienko, aby wyświetlić pusty skrypt. W tym przypadku chcę odnieść się do komórki A1 Sheet1. Zobacz zrzut ekranu:
2. Wklej poniższy kod do skryptu, a w kodzie VBA określ potrzebne odwołania do komórek.
VBA: Zachowaj formatowanie i wartości podczas odwoływania się do innej komórki
Private Sub Worksheet_Activate()
'UpdatebyExtendoffice20101024
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Or Target.Value = "" Then Exit Sub
Application.EnableEvents = False
If Not Intersect(Target, Range("A1")) Is Nothing Then 'Range("A1") the reference cell
Target.Copy
ActiveWorkbook.Sheets("Sheet2").Range("B1").PasteSpecial xlPasteAllUsingSourceTheme
'Range("B1")the cell linked to reference cell,ActiveWorkbook.Sheets("Sheet2")the sheet which contains linked cell
Application.CutCopyMode = False
Target.Select
End If
Application.EnableEvents = True
End Sub
Note: A1 jest komórką odniesienia, B1 in Arkusz 2 to komórka, którą chcesz połączyć z komórką odniesienia i zachować wartości i formatowanie za pomocą A1 w Shee1.
Następnie, gdy zmienisz wartości lub formatowanie w komórce A1 w Sheet1, komórka B1 w Sheet2 zostanie zmieniona po dwukrotnym kliknięciu komórki odniesienia.
Policz według koloru
|
W niektórych przypadkach możesz mieć zakres wartości z wieloma kolorami, a chcesz policzyć / zsumować wartości na podstawie tego samego koloru. Jak możesz szybko obliczyć? Z Kutools dla programu Excel's Policz według koloru, możesz szybko wykonać wiele obliczeń według koloru, a także wygenerować raport z obliczonych wyników. |
Najlepsze narzędzia biurowe
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...
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!