Question

我正在尝试在Excel VBA中突出显示到期日期。我需要B列突出显示将在下个月到期的日期和C栏以突出显示将在4-6个月内到期的日期。目前，如果我删除列并一次在一列上运行代码，代码就可以工作，例如。

Name            Green Will Expire within 1 Month    
Name 1          01/01/2013    
Name 2          17/07/2013    
Name 3          03/04/2013    
Name 4          24/03/2013    
Name 5          16/07/2013    
Name 6          26/01/2013    
Name 7          28/06/2013    
Name 8          01/07/2013    
Name 9          09/01/2013    
Name 10         31/07/2013

名称（A栏），绿色将在1个月内到期（B栏）。

如果我只使用这两列运行代码（删除了C列），代码运行正常。如果我包括我的第三列，Orange Expires在4-6个月（C列）：

   Name     Green Will Expire within 1 Month    Orange Expires in 4 - 6 Months
Name 1          01/01/2013                          01/01/2013
Name 2          17/07/2013                          01/12/2013
Name 3          03/04/2013                          03/04/2013
Name 4          24/03/2013                          20/11/2013
Name 5          16/07/2013                          16/07/2013
Name 6          26/01/2013                          26/01/2013
Name 7          28/06/2013                          28/06/2013
Name 8          01/07/2013                          01/07/2013
Name 9          09/01/2013                          09/01/2013
Name 10         31/07/2013                          31/07/2013

只有第二个for循环有效。我需要这两个for循环来运行，而不必删除任何列。

VBA代码：

Private Sub CommandButton1_Click()

Dim Cell As Range

    For Each Cell In Range("B2:B1000").Cells
        If Cell.Value <= Date + 30 And Not (Cell.Value < Date) And IsEmpty(Cell.Offset(0, 1).Value) Then
        Cell.Interior.ColorIndex = 35
        End If
    Next Cell

    For Each Cell In Range("C2:C1000").Cells
         If Cell.Value <= Date + 180 And Not (Cell.Value <= Date + 120) And IsEmpty(Cell.Offset(0, 1).Value) Then
         Cell.Interior.ColorIndex = 45
         End If
    Next Cell

End Sub

非常感谢任何帮助。

谢谢

Answer 1

如果C列不为空，则条件语句的部分将始终评估为False：

And IsEmpty(Cell.Offset(0, 1).Value)

在相关的说明中，同一个片段位于第二个循环中，因此您可能也想从那里删除它。但我不确定这部分是否需要逻辑。在任何情况下，同样成立：如果列D 不为空，则总是计算为false，因此If...Then的主体将被省略。

如何在具有多列的VBA中循环列？

1 个答案: