有什么办法让我今天输入的信息，它这一行就变色

PENGJICHANG

有什么办法我今天输入的信息，这一行就变成别的颜色，像我这图片一样。

mn860429

楼主的数据都是按照时间顺序输入的吧
Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Column = 1 Then
            If .Value <> .Offset(-1).Value Then
                .EntireRow.Interior.ColorIndex = 38
            End If
        End If
    End With
End Sub

aking9505

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim Trow%, Tcolumn%
   
3. Trow = Target.Row: Tcolumn = Target.Column
   
4. If Tcolumn <> 1 Or Trow = 1 Then Exit Sub
   
5. If Target.Value = "" Then Exit Sub
   
6. If Target.Value <> Cells(Trow - 1, Tcolumn) Then
   
7.     Range("A" & Trow & ":H" & Trow).Interior.ColorIndex = 38
   
8. Else
   
9.     Range("A" & Trow & ":H" & Trow).Interior.ColorIndex = 0
   
10. End If
    
11. End Sub

复制代码

[ 本帖最后由 aking9505 于 2011-3-19 10:45 编辑 ]

PENGJICHANG

些代码放哪里啊，谢谢了

99253415

搞这么复杂，用条件格式就能达到楼主的要求

=$A2=TODAY() 字体红色加粗

PENGJICHANG

怎么我放进去没反应

PENGJICHANG

5楼的老师，这样是可以，但是我一天有好多数据，有什么办法只是在今天的第一行数据加色，后面的就不用，看我的实例图片就知道了。。。还有什么办法吗，谢谢了

PENGJICHANG

这样的话，那每一行的颜色都一样了，跟没加颜色一样啊。因为我那日期是从1号到30号安顺序写下来的。

99253415

原帖由 PENGJICHANG 于 2011-3-19 11:09 发表
这样的话，那每一行的颜色都一样了，跟没加颜色一样啊。因为我那日期是从1号到30号安顺序写下来的。

那就再加个条件格式
=COUNTIF($A$2:$A2,$A2)=1

aking9505

原帖由 PENGJICHANG 于 2011-3-19 11:01 发表
怎么我放进去没反应

放sheet1，宏安全性设置低，关了再开