Как сохранить форматирование ячеек, ссылаясь на другие ячейки листа?
Как правило, ячейка сохраняет только значение ячейки при ссылке на другую ячейку, но в этой статье я представляю код 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 Считать по цвету, вы можете быстро выполнить множество вычислений по цвету, а также можете сформировать отчет о рассчитанном результате. |
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!