1

Я хочу скопировать цвет фона, например, ячейки листа А1 на лист B A1.

Ячейка A1 использует условное форматирование, я могу копировать просто, но не с условным форматированием.

Вот код

Dim varTemp As Variant

varTemp = Worksheets("Summary").Range("F15:F21").Formula
Worksheets("People").Range("G3:G9").Copy
Worksheets("Summary").Range("F15:F21").PasteSpecial xlPasteAllMergingConditionalFormats
Worksheets("Summary").Range("F15:F21").Formula = varTemp

когда я запускаю VB, он просто выбирает целевые ячейки и просит меня вставить результаты. Так что нижняя левая строка состояния в видео

|источник

1 ответ1

1

Код ниже работает для меня, он копирует цвета ячейки (фона) в другие ячейки на другом листе.

Sub copyFormat()
    Worksheets("Sheet1").Activate
    Range("a1:b1").Copy
    Worksheets("Sheet2").Activate
    Range("a1:b1").PasteSpecial (xlPasteFormats)
End Sub
|источник

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .