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

Як посилатися на формат і значення з іншої комірки в Excel?

Зазвичай ми використовуємо формулу = A1 для посилання комірки A1 на іншу комірку на аркуші. Але це може посилатися лише на значення комірки. Якщо ви хочете вказати значення комірки, а також її формат, вам потрібно спробувати інший метод. Ця стаття пропонує два способи досягнення цього.

Довідковий формат і значення з іншої комірки із вставкою зв’язаного зображення
Формат автоматичного посилання та значення з іншої комірки з VBA


Довідковий формат і значення з іншої комірки із вставкою зв’язаного зображення

Припустимо, ви хочете посилатися на формат і значення з комірки А1, виконайте наступні дії, щоб це зробити.

1. Виберіть комірку (А1), на яку потрібно посилатися, а потім скопіюйте її, натиснувши 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 - це назва аркуша, яка містить комірку, на яку потрібно посилатись як на значення, так і на формат. А1 і Е2 означає, що комірка А1 буде автоматично посилатися на комірку Е2.

Відтепер, коли значення змінюється в комірці A1 аркуша1, його значення та формат будуть негайно посилатися на комірку E2.


Статті по темі:

Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

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

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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (9)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Привіт! Дуже круто!! Чи є спосіб зробити перший варіант у таблицях Google?
Цей коментар був мінімізований модератором на сайті
Привіт Джуліан,
На жаль, ми не тестували в таблицях Google. Дякую за коментар.
Цей коментар був мінімізований модератором на сайті
Як це зробити, якщо я хочу скопіювати на інший аркуш?
Цей коментар був мінімізований модератором на сайті
Привіт Ліл,
Якщо вам потрібно скопіювати на інший аркуш, застосуйте наведений нижче код VBA. Аркуш1 — вихідний аркуш, Аркуш3 — цільовий аркуш. Будь ласка, змініть їх відповідно до ваших потреб.

Приватний допоміжний робочий лист_Зміна (за значенням цілі як Excel. Діапазон)
З робочими аркушами ("Аркуш1")
Якщо .Range("A5").Value2 <> "" Тоді
On Error Resume Next
Діапазон("A5").Копіювати (Робочі аркуші("Аркуш3").Діапазон("E2"))
End If
Кінець з
End Sub
Цей коментар був мінімізований модератором на сайті
Як запустити цей код в Excel? Чи потрібно його запускати на обох аркушах? Чи може це бути конкретним, як крок за кроком?
Цей коментар був мінімізований модератором на сайті
Привіт, Джессі! Привіт, як зазначено у коді вище, вам просто потрібно заповнити код у вікні коду вихідного аркуша, при зміні значення комірки в оригінальному аркуші (у цьому випадку A5 на листі 1), код буде запущено автоматично. А клітинка A5 в Аркуші1 буде скопійована в Е2 на Аркуші3.
Цей коментар був мінімізований модератором на сайті
Hello зробив наведений нижче код, але він не спрацював
Приватний допоміжний робочий лист_Зміна (за значенням цілі як Excel. Діапазон)
З робочими листами ("Резюме конкурентного аналізу")
Якщо .Range("BI7").Value2 <> "" Тоді
On Error Resume Next
Діапазон("BI7").Копіювати (Робочі аркуші("Поглиблений перегляд - ADP").Діапазон("E55"))
End If
Кінець з
End Sub
Цей коментар був мінімізований модератором на сайті
Привіт, після додавання коду вам потрібно змінити робочий аркуш «Резюме конкурентного аналізу», щоб увімкнути VBA.
Цей коментар був мінімізований модератором на сайті
Чи можна віддзеркалити перші 5 стовпців на кожному новому аркуші? Я маю дані, просто хочу, щоб форматування змінювалося з усіма аркушами замість того, щоб робити це повторно
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця