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

Як зберегти форматування комірок, посилаючись на інші комірки аркушів?

Як правило, комірка зберігає значення комірки лише при посиланні на іншу комірку, але в цій статті я представляю код VBA для збереження значень комірки та форматування при посиланні на іншу комірку, а значення комірки та форматування змінюються в міру зміни посилальної комірки, як показано нижче показано скріншот.
doc продовжує форматувати, посилаючись на 1

Зберігайте форматування комірок, посилаючись на іншу комірку з VBA


Зберігайте форматування комірок, посилаючись на іншу комірку з VBA

Щоб впоратися з цією роботою, вам просто потрібно запустити код нижче.

1. Увімкніть книгу, якою ви користуєтесь, натисніть Alt + F11 клавіша для ввімкнення Microsoft Visual Basic для програми вікно та двічі клацніть на назві аркуша, до якого ви розмістите посилальну комірку Проект-VBAProject панель, щоб показати порожній сценарій. У цьому випадку я хочу посилатися на клітинку A1 в Sheet1. Дивіться знімок екрана:
doc продовжує форматувати, посилаючись на 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 Sheet - це комірка, яку потрібно зв’язати з еталонною коміркою, і зберегти значення та форматування за допомогою А1 у Shee1.

Потім, коли ви змінюєте значення або форматування в комірці А1 на Аркуші1, комірку В1 на Аркуші2 буде змінено, клацнувши двічі на клітинку посилання.


Підрахувати за кольором

У деяких випадках у вас може бути ряд виправлень із декількома кольорами, і що ви хочете, це підрахувати / підсумувати значення на основі одного кольору, як ви можете швидко обчислити?
з Kutools для Excel's Підрахувати за кольором, ви можете швидко зробити багато розрахунків за кольором, а також можете створити звіт про обчислений результат.
кількість документів за кольором

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

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

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

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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (8)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
привіт, я вважаю, що це саме те, що я шукаю. Мені потрібно, щоб текст, на який посилається, мав ті самі кольори та функції, що й на цій сторінці. Єдина відмінність у мене полягає в тому, що я тягну з більшого діапазону. Я ніколи раніше не використовував VBA, тому хотів підтвердити, перш ніж робити зміни. Я перетягую з документа (аркуш 2) на (аркуш 1) документ. Для цього я використовував формули IF, тому він повертає значення з 3 різних стовпців, і вони не знаходяться в рядку. Стовпці F,H,J. Не могли б ви допомогти мені зрозуміти, як я можу зробити це?
Цей коментар був мінімізований модератором на сайті
Вибачте, ваша проблема дещо складна, я не зовсім зрозуміла.
Цей коментар був мінімізований модератором на сайті
Я маю справу з подібною проблемою. У мене є формула в стовпці C, яка приймає значення з того самого рядка, стовпця A. (Але тільки ЯКЩО B3 не є x І A3 не є порожнім):

=IF(B3="x";"y";IF(A3="";"z";A3))

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

=IF(B3="x";"y";IF(A3="";"z";WITHFORMAT(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.
Мій документ - це список людей, тому в мене буде кілька клітинок посилань, а не продовження.
Спасибо заранее
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL