日期转换的问题 请给解决下

alzeng

1. 
   
2. Sub AddColor()
   
3.     Dim rng As Range
   
4. 
   
5.     For Each rng In Range("AA1", [IV1].End(1))
   
6.         If Len(rng) = 0 Then GoTo 1
   
7.         If Abs(Date - CDate(Format(rng, "0000-00-00"))) > 2 Then rng.Interior.Color = vbRed
   
8. 1
   
9.     Next
   
10. End Sub
    

复制代码

alzeng

Elliott_love

非常感谢 终于ok  不能上传附件太麻烦了  仿照你的代码
   Dim rng As Range
   Dim x As Long ‘ 把每一行的第九列的值 跟rng 比
   x = 3
   For Each rng In Range("AA1", [IV1].End(1))
     If Len(rng) = 0 Then GoTo 1
     If Abs((Date - CDate(Format(rng, "0000-00-00"))) - ActiveSheet.Cells(x, 9).Value) <= 3 Then  这里想实现第x行第（rng符合条件，比如AA列）列 颜色为红
     x = x + 1
     End If
1
   Next
要怎么改     把cells（x,9）跟abs 的值比 然后把cells(x, 符合列)注色

[ 本帖最后由 Elliott_love 于 2010-11-3 11:17 编辑 ]

alzeng

表述不明……

[ 本帖最后由 alzeng 于 2010-11-3 11:32 编辑 ]

Elliott_love

Dim rng As Range
   Dim x As Long
   x = 3
   For Each rng In Range("AA1", [IV1].End(1))
     If Len(rng) = 0 Then GoTo 1
     If Abs((Date - CDate(Format(rng, "0000-00-00"))) - ActiveSheet.Cells(x, 9).Value) <= 3 Then
     Dim y
      Set y = rng.Column   “比如AA列符合abs的条件，就选择AA列
     ActiveSheet.Cells(x, y).Interior.ColorIndex = 3   ”x行AA列的颜色变红色
     x = x + 1

1
   Next
dim y 到 x= x+1 的代码意思 能明白吧  我想实现这个