Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

Как правило, ячейка сохраняет только значение ячейки, ссылаясь на другую ячейку, но в этой статье я вводил код 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 это ячейка, которую вы хотите связать со ссылкой, и сохранить значения и форматирование с помощью A1 в Shee1.

Затем, когда вы изменяете значения или форматирование в ячейке A1 в Sheet1, ячейка B1 в Sheet2 будет изменена при одновременном нажатии на контрольную ячейку.


По цвету

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


Рекомендуемые инструменты для повышения производительности в Excel

Kutools для Excel помогает всегда завершать работу раньше времени и выделяться из толпы

  • Больше, чем мощные расширенные функции 300, разработанные для рабочих сценариев 1500, повышающие производительность на 70%, дают вам больше времени, чтобы заботиться о семье и радоваться жизни.
  • Больше не нужно запоминать формулы и коды VBA, дайте вашему мозгу отдохнуть.
  • Станьте экспертом по Excel за минуты 3. Сложные и повторяющиеся операции можно выполнить за считанные секунды,
  • Ежедневно сокращайте тысячи операций с клавиатурой и мышью, попрощайтесь с профессиональными заболеваниями сейчас.
  • Высокоэффективные люди 110,000 и выбор всемирно известных компаний 300 +.
  • 60-Day полнофункциональная бесплатная пробная версия. 60-день гарантии возврата денег. 2 лет бесплатного обновления и поддержки.

Обеспечивает просмотр и редактирование с помощью вкладок в Microsoft Office, гораздо более мощный, чем вкладки браузера

  • Вкладка Office предназначена для Word, Excel, PowerPoint и других приложений Office: Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Mato · 1 months ago
    No tienes uno que sea dentro del mismo archivo
  • To post as a guest, your comment is unpublished.
    Dustin · 6 months ago
    Thanks for sharing this. I have a range of cells in WorksheetA, Sheet1, Range G3:G3000 that I want to reference in WorksheetB, Sheet1, Range G3:G3000. I need WorksheetB, Sheet1, Range G3:G3000 to display both the value and the format of the referenced cells in WorksheetA, Sheet1, G3:G3000. Is there a VBA script that will allow for this?
  • To post as a guest, your comment is unpublished.
    Dustin · 6 months ago
    Thanks for sharing this. Is there a VBA script that allows for referencing a range of cells in one workbook and then displaying the value and format of the referenced cells in a different workbook?
  • To post as a guest, your comment is unpublished.
    Justin · 7 months ago
    Thank you so much for the script. Can you tell me if there is a way for the linked cell to update without having to double click on the reference cell? Thank you!
  • To post as a guest, your comment is unpublished.
    Amy Napier · 9 months ago
    hello, I believe this may be just what I am looking for. I need the referenced text to have the same colors and features from the referenced page. The only thing different about mine is that I am pulling from a larger range. I have never used VBA before so I wanted to confirm before I did changes. I am pulling from a document (sheet 2) onto (sheet 1) document. I have used IF formulas to do this, so it returns a value from 3 different columns and they are not in a row. The columns are F,H,J. Could you please help me figure out how I can make this work?
    • To post as a guest, your comment is unpublished.
      Sunny · 8 months ago
      Sorry, your problem is a bit complex, I do not understand clearly.