在excel中将具有三种不同颜色的日期列从一个工作簿复制到另一个工作簿答案

【问题标题】：Copying a date column with three different colours from one workbook to another workbook in excel在excel中将具有三种不同颜色的日期列从一个工作簿复制到另一个工作簿
【发布时间】：2015-04-25 03:01:24
【问题描述】：

我正在尝试使用 Vlookup 将日期列中的条目从一个工作簿转移到另一个工作簿。我可以只传输单元格中的数据而不是颜色编码。是否可以将每个单元格的颜色代码与数据一起传输？

我有 RED、GREEN 和 YELLOW 三种不同的颜色，分别对应于 Incomplete、Complete 和 In process。传输单元格颜色编码后，如果过程完成，我应该可以手动更改它。

【问题讨论】：

这可以在 VBA 中完成。您将需要获得红色、绿色和黄色的颜色代码。最简单的方法是 RGB 值。然后遍历列检查颜色是否与 RGB 匹配，以及它们是否将值和颜色复制到另一列。
谢谢山姆。我是初学者，我不知道该怎么做你所说的。我正在寻找一些可以帮助我弄清楚的示例代码或文件。
如果你能得到单元格的 RGB 值，我可以编写一些基本代码来告诉你该怎么做。要获得 RGB 值，请转到具有颜色的单元格。单击填充旁边的错误，单击更多颜色，然后单击客户。然后它应该显示 RGB 值
还有你正在使用的列以及它应该进入的列

标签： vba excel excel-2007

【解决方案1】：

如果列中有匹配项，则此处的代码将复制颜色。如果您已经有了要检查的列表，则不要使用 Vloopup 似乎有点毫无意义。如果没有匹配，它将保持默认颜色。

Dim i As Integer
Dim a As Range

For i = 1 To WorksheetFunction.CountA(Columns("C"))
    On Error GoTo NextOne
    Set a = Cells(WorksheetFunction.Match(Range("C" & i), Range("B1:B6"), 0), "B")
    Range("C" & i).Interior.Color = a.Interior.Color

NextOne:
    Resume nextOne2
nextOne2:
Next i

您需要参考要使用的工作簿。您将需要查找如何参考工作簿。并更改数据所在的列。

【讨论】：