Перейти до основного матеріалу

Як посилатися на формат і значення з іншої комірки в 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 AI Aide: Революціонізуйте аналіз даних на основі: Інтелектуальне виконання   |  Згенерувати код  |  Створення спеціальних формул  |  Аналізуйте дані та створюйте діаграми  |  Викликати функції Kutools...
Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
Супер пошук: VLookup за кількома критеріями    Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул    Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок    Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
Топ-15 наборів інструментів12 текст Tools (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Tools (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Tools (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Tools (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Опис


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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Can I mirror the first 5 columns on each new sheet? I have the data just want the formatting to change with all sheets instead of having to do so repeatedly
This comment was minimized by the moderator on the site
Hello did the below code but it did not work
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Worksheets("Competitive Analysis Summary")
If .Range("BI7").Value2 <> "" Then
On Error Resume Next
Range("BI7").Copy (Worksheets("In Depth View - ADP").Range("E55"))
End If
End With
End Sub
This comment was minimized by the moderator on the site
Hi, after adding the code, you need to modify the worksheet "Competitive Analysis Summary" to enable the VBA.
This comment was minimized by the moderator on the site
How do I do that if I want to copy to a different sheet?
This comment was minimized by the moderator on the site
Hi Lil,
If you need to copy to a different sheet, please apply the below VBA code. Sheet1 is the original worksheet, Sheet3 is the destination worksheet. Please change them based on your needs.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Worksheets("Sheet1")
If .Range("A5").Value2 <> "" Then
On Error Resume Next
Range("A5").Copy (Worksheets("Sheet3").Range("E2"))
End If
End With
End Sub
This comment was minimized by the moderator on the site
How to run this code on excel? Does it need to be run on both worksheet? Can it be specific like step-by-step?
This comment was minimized by the moderator on the site
Hi Jesse,Hi, as the above code mentioned, you just need to fill the code in the original worksheet's Code window, when changing the cell value in the original worksheet (A5 in Sheet1 in this case), the code will be runned automatically. And cell A5 in Sheet1 will be copied to E2 in Sheet3.
This comment was minimized by the moderator on the site
Hi! Very cool!! Is there a way to do the first option in Google Spreadsheets?
This comment was minimized by the moderator on the site
Hi Julian,
Sorry we didn't test in Google sheets. Thanks for your comment.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations