Note: The other languages of the website are Google-translated. Back to English

Как сохранить форматирование ячеек, ссылаясь на другие ячейки листа?

Как правило, ячейка сохраняет только значение ячейки при ссылке на другую ячейку, но в этой статье я представляю код VBA для сохранения значений ячейки и форматирования при ссылке на другую ячейку, а значения ячейки и форматирование изменяются по мере изменения ссылочной ячейки, как показано ниже. показан снимок экрана.
документ сохраняет форматирование, ссылаясь на 1

Сохранять форматирование ячеек, ссылаясь на другую ячейку с помощью VBA


Сохранять форматирование ячеек, ссылаясь на другую ячейку с помощью VBA

Чтобы справиться с этой задачей, вам просто нужно запустить код ниже.

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

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-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (8)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
привет, я считаю, что это может быть именно то, что я ищу. Мне нужно, чтобы ссылочный текст имел те же цвета и функции, что и ссылочная страница. Единственное, чем я отличаюсь, так это тем, что я использую более широкий диапазон. Я никогда раньше не использовал VBA, поэтому я хотел подтвердить, прежде чем вносить изменения. Я перетаскиваю документ (лист 2) на документ (лист 1). Для этого я использовал формулы ЕСЛИ, поэтому он возвращает значение из 3 разных столбцов, и они не находятся в строке. Столбцы F, H, J. Не могли бы вы помочь мне понять, как я могу сделать эту работу?
Этот комментарий был сведен к минимуму модератором на сайте
Извините, ваша проблема немного сложна, я не совсем понимаю.
Этот комментарий был сведен к минимуму модератором на сайте
Я занимаюсь аналогичной проблемой. У меня есть формула в столбце C, которая берет значение из той же строки, столбца A. (Но только ЕСЛИ B3 не x AND A3 не пуст):

=ЕСЛИ(B3="x";"y";ЕСЛИ(A3="";"z";A3))

Ячейки столбца А выглядят так: ОК 2019_12_03
Но «ОК» выделено жирным шрифтом. Я хотел бы сохранить этот формат.
Я хочу это для сотен ячеек, поэтому щелкать или писать скрипт для каждой из них нежелательно. Есть идеи, существует ли такая функция? Я был бы признателен за какую-то функцию WITHFORMAT(), которую я мог бы добавить в формулу, чтобы следующая формула сохранила исходный формат:

=ЕСЛИ(B3="x";"y";ЕСЛИ(A3="";"z";С ФОРМАТОМ(A3)))
Этот комментарий был сведен к минимуму модератором на сайте
Большое спасибо за сценарий. Можете ли вы сказать мне, есть ли способ обновить связанную ячейку без двойного щелчка по ячейке ссылки? Благодарю вас!
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо, что поделились этим. Существует ли сценарий VBA, который позволяет ссылаться на диапазон ячеек в одной книге, а затем отображать значение и формат указанных ячеек в другой книге?
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо, что поделились этим. У меня есть ряд ячеек в WorksheetA, Sheet1, Range G3: G3000, на которые я хочу ссылаться в WorksheetB, Sheet1, Range G3: G3000. Мне нужно, чтобы WorksheetB, Sheet1, Range G3:G3000 отображал как значение, так и формат ссылочных ячеек в WorksheetA, Sheet1, G3:G3000. Есть ли сценарий VBA, который позволит это сделать?
Этот комментарий был сведен к минимуму модератором на сайте
No tienes uno que sea dentro del mismo archivo
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте, я хотел бы сохранить формат моей эталонной ячейки. Однако даже с вашим VBA это не работает. Не могли бы вы мне помочь?
Я хотел бы, чтобы моя ячейка B2 моего листа 1 была моей эталонной ячейкой для моих ячеек C2 листов 2,3,4,5,6,7.
Мой документ представляет собой список людей, поэтому у меня будет несколько ячеек ссылок, а не продолжение.
заранее спасибо
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL