自动将单元格颜色复制到另一个单元格

Question

这是一个非常简单的问题，我似乎找不到解决方案。基本上我使用 3 种不同的单元格样式（好的、中性的和坏的）。我只是想做的是我希望与我用颜色编码的单元格相邻的单元格是相同的颜色。例如单元格O11我选择它是好的（绿色），因此单元格M11应该根据单元格O11自动更改其单元格样式。

有什么建议吗？

P.S O11 将手动设置（无条件格式）

Answer 1

要解决您的问题，您需要创建一个变量来保存单元格的颜色值并将该值设置回另一个单元格。使用以下示例：`要解决您的问题，您需要创建一个变量来保存单元格颜色值并将该值设置回另一个单元格。使用以下示例：

要解决您的问题，您需要创建一个变量来保存单元格的颜色值并将该值设置回另一个单元格。使用以下示例：

Sub Copy_Color()

    Dim iColor As Long
    iColor = ActiveCell.Interior.Color
    ActiveCell.Offset(0, 1).Interior.Color = iColor
End Sub

Answer 2

要解决您的问题，您需要创建一个变量来保存单元格的颜色值并将该值设置回另一个单元格。使用以下示例：

子Copy_Color()
调暗 iColor 一样长
调暗我长

for i = 11 to 20
    iColor = worksheets("Sheet name").range("M" & i).Interior.Color
    worksheets("Sheet name").range("O" & i).Interior.Color = iColor
next

结束子

自动将单元格颜色复制到另一个单元格

Automatically copy a cells colour to another cell

excel

vba

conditional-formatting

excel-2010