Як зберегти форматування комірок, посилаючись на інші комірки аркушів?

Як правило, комірка зберігає значення комірки лише при посиланні на іншу комірку, але в цій статті я представляю код VBA для збереження значень комірки та форматування при посиланні на іншу комірку, а значення комірки та форматування змінюються в міру зміни посилальної комірки, як показано нижче показано скріншот.

Зберігайте форматування комірок, посилаючись на іншу комірку з VBA

Зберігайте форматування комірок, посилаючись на іншу комірку з VBA

Щоб впоратися з цією роботою, вам просто потрібно запустити код нижче.

1. Увімкніть книгу, якою ви користуєтесь, натисніть Alt + F11 клавіша для ввімкнення Microsoft Visual Basic для програми вікно та двічі клацніть на назві аркуша, до якого ви розмістите посилальну комірку Проект-VBAProject панель, щоб показати порожній сценарій. У цьому випадку я хочу посилатися на клітинку A1 в Sheet1. Дивіться знімок екрана:

2. Вставте нижче код у скрипт, і в коді VBA вкажіть посилання на клітинку, як вам потрібно.

VBA: зберігайте форматування та значення, посилаючись на іншу комірку

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

примітки: A1 - еталонна комірка, B1 in 2 Sheet - це комірка, яку потрібно зв’язати з еталонною коміркою, і зберегти значення та форматування за допомогою А1 у Shee1.

Потім, коли ви змінюєте значення або форматування в комірці А1 на Аркуші1, комірку В1 на Аркуші2 буде змінено, клацнувши двічі на клітинку посилання.

Найкращі інструменти продуктивності офісу

🤖	Kutools AI Aide: Революціонізуйте аналіз даних на основі: Інтелектуальне виконання   |  Згенерувати код  |  Створення спеціальних формул  |  Аналізуйте дані та створюйте діаграми  |  Викликати функції Kutools...
	Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
	Супер пошук: VLookup за кількома критеріями  |   Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
	Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
	Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
	Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул   |  Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок   |  Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
	Топ-15 наборів інструментів:  12 текст Tools (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Tools (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Tools (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Tools (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Детальніше ... Завантажити безкоштовно...

---

Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу

• Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
• Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
• Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!

Детальніше ... Завантажити безкоштовно...