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

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

Sub Copy_Color（）
Dim iColor As Long
昏昏欲睡

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

End Sub

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

2 个答案: