主题：如何让满足条件的行变成特定的颜色啊？

Dim n As Integer = 6 '未来天数,含今天,所以实际是未来7天

Dim dt As Date = e.Row("出生日期")
Dim dt1 As New Date(Date.Today.Year,dt.Month,dt.Day)
Dim dt2 As  New Date(Date.Today.AddDays(n).Year,dt.Month,dt.Day)
If (dt1 >= Date.Today AndAlso dt1 < Date.Today.AddDays(n)) OrElse (dt2 >= Date.Today AndAlso dt2 < Date.Today.AddDays(n)) Then
    e.style = "生日样式"
End If

为什么你给我的代码却是整行显示颜色呢？怕以后还是不懂，望解答.

代码看10楼。

drawcell的意思是，判断每一个单元格，如果满足条件，就设置成对应的样式，因为一行的每一个单元格都满足这个条件，自然每个单元格的样式都是一样的......

什么意思？代码在10楼。