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

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

Обычно мы используем формулу = A1 для ссылки на ячейку A1 на другую ячейку на листе. Но это может ссылаться только на значение ячейки. Если вы хотите указать значение ячейки, а также ее формат, вам нужно попробовать другой метод. В этой статье представлены два метода достижения этой цели.

Справочный формат и значение из другой ячейки с вставкой связанного изображения
Формат автоматической ссылки и значение из другой ячейки с VBA


Справочный формат и значение из другой ячейки с вставкой связанного изображения

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

1. Выберите ячейку (A1), на которую нужно сослаться, затем скопируйте ее, нажав Ctrl + C ключи.

2. Перейдите к ячейке, которую вы хотите связать со ссылочной ячейкой, щелкните ее правой кнопкой мыши и выберите > Специальная вставка > Связанное изображение. Смотрите скриншот:

Теперь формат и значение ячейки A1 привязаны к указанной ячейке. И формат и значение этих двух ячеек будут синхронными, как показано на скриншоте ниже.


Формат автоматической ссылки и значение из другой ячейки с VBA

Вы можете автоматически ссылаться на формат и значение из другой ячейки, запустив приведенный ниже сценарий VBA.

1. Щелкните правой кнопкой мыши вкладку листа, содержащую нужную ячейку, а затем щелкните Просмотреть код из контекстного меню.

2. Во всплывающем Microsoft Visual для приложений окна, скопируйте и вставьте приведенный ниже код VBA в окно кода.

Код VBA: формат ссылки и значение из другой ячейки

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    With Worksheets("Sheet1")
        If .Range("A1").Value2 <> "" Then
            On Error Resume Next
            Range("A1").Copy (.Range("E2"))
        End If
    End With
End Sub

Внимание: В коде Sheet1 - это имя листа, содержащего ячейку, в которой необходимо указать как значение, так и формат. A1 и E2 означает, что ячейка A1 будет автоматически ссылаться на ячейку E2.

С этого момента, когда значение изменяется в ячейке A1 листа Sheet1, его значение и формат будут немедленно ссылаться на ячейку E2.


Статьи по теме:

Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (9)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Привет! Очень круто!! Есть ли способ сделать первый вариант в таблицах Google?
Этот комментарий был сведен к минимуму модератором на сайте
Привет Джулиан,
Извините, мы не тестировали в таблицах Google. Спасибо за ваш комментарий.
Этот комментарий был сведен к минимуму модератором на сайте
Как мне это сделать, если я хочу скопировать на другой лист?
Этот комментарий был сведен к минимуму модератором на сайте
Привет Лил,
Если вам нужно скопировать на другой лист, примените приведенный ниже код VBA. Лист1 — это исходный рабочий лист, Лист3 — конечный рабочий лист. Пожалуйста, измените их в зависимости от ваших потребностей.

Private Sub Worksheet_Change (ByVal Target As Excel.Range)
С рабочими листами ("Лист1")
Если .Range("A5").Value2 <> "" Тогда
On Error Resume Next
Диапазон ("A5"). Копировать (Рабочие листы ("Лист3"). Диапазон ("E2"))
End If
Конец с
End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Как запустить этот код в excel? Нужно ли запускать на обоих листах? Можно конкретно, как шаг за шагом?
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Джесси, привет, как упоминалось выше, вам просто нужно заполнить код в окне кода исходного листа, при изменении значения ячейки на исходном листе (в данном случае A5 на листе 1) код будет запущен автоматически. И ячейка A5 в Sheet1 будет скопирована в E2 в Sheet3.
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте, сделал приведенный ниже код, но он не сработал
Private Sub Worksheet_Change (ByVal Target As Excel.Range)
С рабочими листами («Сводка конкурентного анализа»)
Если .Range("BI7").Value2 <> "" Тогда
On Error Resume Next
Диапазон ("BI7"). Копировать (Рабочие листы ("Углубленный просмотр - ADP"). Диапазон ("E55"))
End If
Конец с
End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Привет, после добавления кода вам нужно изменить рабочий лист «Сводка конкурентного анализа», чтобы включить VBA.
Этот комментарий был сведен к минимуму модератором на сайте
Могу ли я отразить первые 5 столбцов на каждом новом листе? У меня есть данные, которые просто хотят, чтобы форматирование менялось на всех листах, а не повторялось
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

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

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