月を探してセルの値に色をつける

Question

私は日付が付いた列Iを持っています。 （30.07.2016）。私は列全体を見て、それが今月のものかどうかを見たいと思います。それが8月と同じでないなら、私は（1月 - 7月）緑色に着色し、それは白く8月になり、将来は黄色になります。

私は以下のコードを試しました。黄色く印刷されています。それは今月だけでなく、今日を探します。

私はあなたが今日の月に対する日（セル値）の月をチェックする必要が

Sub ChangeColour() 

    Dim rCell As Range 

    With Sheets("BU") 
     For Each rCell In .Range("I5", .Cells(.Rows.Count, 9).End(xlUp)).Cells 
      If rCell.Value < Month(today) Then 
       rCell.Interior.Color = vbGreen 
      ElseIf rCell.Value > Month(today) Then 
       rCell.Interior.Color = vbYellow 
      Else 
       rCell.Interior.Color = vbWhite 
      End If 
     Next rCell 
    End With 

End Sub 

Answer 1

を実行することができますどのように助けてもらえます。今日は決して定義されていない変数なので、Month(Date)を使用する必要があります。例えば

：

Month(rCell.Value) < Month(Date) 

Answer 2

Sub ChangeColour() 
Dim rCell As Range 
With Sheets("BU") 
    For Each rCell In .Range("I5", .Cells(.Rows.Count, 9).End(xlUp)).Cells 
     If Month(rCell.Value) < Month(DateTime.Now) Then 
      rCell.Interior.Color = vbGreen 
     ElseIf Month(rCell.Value) > Month(DateTime.Now) Then 
      rCell.Interior.Color = vbYellow 
     Else 
      rCell.Interior.Color = vbWhite 
     End If 
    Next rCell 
End With 
End Sub 

Answer 3

あなたのセルの日付がテキストである場合、コードは次のようになります。

Sub ChangeColour() 

    Dim rCell As Range 
    Dim m As Integer, vSplit 

    With Sheets("BU") 
     For Each rCell In .Range("I5", .Range("i" & Rows.Count).End(xlUp)) 
      vSplit = Split(rCell, ".") 
      m = vSplit(1) 
      If m < Month(Date) Then 
       rCell.Interior.Color = vbGreen 
      ElseIf m > Month(Date) Then 
       rCell.Interior.Color = vbYellow 
      Else 
       rCell.Interior.Color = vbWhite 
      End If 
     Next rCell 
    End With 

End Sub