excel - 使用 ms-excel 将背景颜色从一个单元格复制到单独工作表中的单元格？

Question

我想复制背景颜色，例如sheetA单元格A1到工作表 B A1。

单元格 A1 使用条件格式，我可以简单复制，但在启用条件格式的情况下无法复制。

这是代码

Public Sub CopyColor()
Dim PeopleSheet As Worksheet
Dim TargetSht As Worksheet

'Define what our source sheet and target sheet are
Set PeopleSheet = ThisWorkbook.Worksheets("People")
Set ProcessSheet = ThisWorkbook.Worksheets("Process")
Set TechnologySheet = ThisWorkbook.Worksheets("Technology")
Set BusinessSheet = ThisWorkbook.Worksheets("Business")

Set TargetSht = ThisWorkbook.Worksheets("Summary")





Set s1 = PeopleSheet.Range("G3:G9").FormatConditions(1)

Set t1 = TargetSht.Range("F15:F21")

t1.Interior.Color = s1.DisplayFormat.Interior.Color

最后一行t1.Interior.Color = s1给出错误运行时错误'13':类型不匹配

更新

更新 2 @Ralph

这分别是应用代码之前和之后的结果。

只有f15有效，其他不受影响？

更新3

这是我能想到的最好证据，当我运行 VB 时，它只是选择目标单元格并要求我粘贴结果。所以视频中左下角的状态栏。

Answer 1

仅复制 A1 中的格式(包括条件格式)上sheetA至A1上sheetB您可以使用以下内容:

Worksheets("sheetA").Range("A1").Copy
Worksheets("sheetB").Range("A1").PasteSpecial xlPasteFormats

如果您不想放弃单元格上当前的条件格式 A1上sheetB只想添加 A1 中的条件格式上sheetA您还可以使用xlPasteAllMergingConditionalFormats 。然而，该值将被复制，您必须存储该值(之后再次将其写回)。因此，本例中的完整代码可能如下所示:

Dim strTemp As String

strTemp = Worksheets("sheetB").Range("A1").Formula
Worksheets("sheetA").Range("A1").Copy
Worksheets("sheetB").Range("A1").PasteSpecial xlPasteAllMergingConditionalFormats
Worksheets("sheetB").Range("A1").Formula = strTemp

更新:

显然，工作表名称和范围已更改(在更新中)。因此，更新后的代码应该是:

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

请注意，您想要一次存储多个公式。因此，您需要一个数组变量来保存它，而不是字符串变量。

我不确定你在做什么。但它确实对我有用(因为它应该):