Как сохранить форматирование ячеек, ссылаясь на другие ячейки листа?
Как правило, ячейка сохраняет только значение ячейки при ссылке на другую ячейку, но в этой статье я представляю код 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 - это ячейка, которую вы хотите связать со ссылочной ячейкой и сохранить значения и форматирование с помощью A1 в Shee1.
Затем, когда вы изменяете значения или форматирование в ячейке A1 на Sheet1, ячейка B1 на Sheet2 будет изменена при двойном щелчке ссылочной ячейки.
Считать по цвету
|
| В некоторых случаях у вас может быть диапазон значений с несколькими цветами, и вы хотите подсчитывать / суммировать значения на основе одного и того же цвета, как вы можете быстро рассчитать? Работы С Нами Kutools for Excel's Считать по цвету, вы можете быстро выполнить множество вычислений по цвету, а также можете сформировать отчет о рассчитанном результате. |
Лучшие инструменты для работы в офисе
Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%
- Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
- Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
- Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
- Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
- Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
- Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
- Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
- Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
- Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
