定义行的颜色，检查同一单元格中的两个日期和其他单元格中的文本。 Excel 宏？

Question

我有以下问题......

----------------------------------------------------------
Column1 |      Column2      | Column3 | Column4 | Column5
----------------------------------------------------------
Bla bla | 26/09/2011 10:00  | blabla  | Complete| blabla
        |                   |         |         |
bla bla | 26/09/2001 11:00  | blabla  |         |        
----------------------------------------------------------
Bla bla | 26/09/2011 11:00  | blabla  |         | blabla
        |                   |         |         |
bla bla | 26/09/2001 11:30  | blabla  |         |      
----------------------------------------------------------
Bla bla | 26/09/2011 12:00  | blabla  | Started | blabla
        |                   |         |         |
bla bla | 26/09/2001 13:00  | blabla  |         |        
----------------------------------------------------------
Bla bla | 26/09/2011 22:00  | blabla  |         | blabla
        |                   |         |         |
bla bla | 26/09/2001 23:00  | blabla  |         |        
----------------------------------------------------------

在 **Column2 中，每个单元格都有两个带有时间的日期（何时开始和何时结束），在第 4 列中，我有任务的状态。

设置行颜色的条件基于Column2和Column4。

颜色代码将模拟交通信号灯，绿色表示正常，橙色表示意识到，红色表示不良。

如果 Column2 中的单元格的第一个日期大于当前日期，则颜色行为橙色。

如果 Column2 中的单元格的第一个日期大于当前日期并且 Column4 为“开始”，则颜色行为绿色。

如果 Column2 中的单元格的第二个日期大于当前日期，并且 Column4 中的文本不是“完整”，则颜色行为红色。如果文本为“完整”，则将行颜色设置为绿色。

另一件需要考虑的事情是，第二个日期不是日期，而是诸如 TBC 之类的文本和其他内容......

我知道单元格上是否有一个日期时间，我可以使用条件格式，因为有两个日期同样的单元格，我想我需要Excel宏专家的帮助。

提前致谢。

Answer 1

您可以使用条件格式：

例如，对于单元格 B2，对于

=DATEVALUE(LEFT(B2,FIND(CHAR(10),B2)-1))>NOW()

单元格中的第一个日期大于当前的日期，使用这些公式对于

=DATEVALUE(MID(B9,FIND(CHAR(10),B9)+1,99))>NOW()

单元格中大于当前的第二个日期

其余的（分层条件，考虑状态）应该很简单

Answer 2

好吧，我在阅读您的请求时感到有点困惑，但基本上，如果时间/日期与第二个不同，您希望有条件地格式化单元格。

您需要的是类似于下面的内容

With Worksheets("Sheet1")
If .Range("B2") > Now And .Range("D2") <> "Started" Then
   .Range("B2").Interior.Color = vbOrange
Else
   .Range("B2").Interior.Color = vbGreen
End If
End with

现在，如果您不熟悉或不习惯 VBA，那么这会稍微复杂一些。但基本上您可以更改范围和工作表名称来执行您需要的任何操作。 “Interior.Color”函数适用于 vbGreen、vbRed、vbOrange 等。足以满足您的需求。

希望这可以帮助您开始。如果您需要更多帮助，请告诉我。