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

Як правило, комірка зберігає значення комірки лише при посиланні на іншу комірку, але в цій статті я представляю код 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 для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

• Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
• Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
• Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
• Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
• Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
• Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
• Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
• Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
• Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.

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

---

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

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

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