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

aking9505

原帖由 PENGJICHANG 于 2011-3-19 11:07 发表
5楼的老师，这样是可以，但是我一天有好多数据，有什么办法只是在今天的第一行数据加色，后面的就不用，看我的实例图片就知道了。。。还有什么办法吗，谢谢了

数据量大，条件格式会增大文件。速度降低，而且格式要刷一片。

ncjinyan

学习了 呵呵

PENGJICHANG

老师，我还有一个问题，就是我现在在表里已经加了代码Private Sub Worksheet_Change(ByVal Target As Range)
With Sheet1
If Target.Column = 2 Then
.Cells(Target.Row, 1) = Date
.Cells(Target.Row, 9) = Date & "[" & Time & "]"
Else: Exit Sub
End If
End With
End Sub
现在又怎么加上你的代码，我加上你的代码说重命名。。。。无法运行

PENGJICHANG

Private Sub Worksheet_Change(ByVal Target As Range)
With Sheet1
If Target.Column = 2 Then
.Cells(Target.Row, 1) = Date
.Cells(Target.Row, 9) = Date & "[" & Time & "]"
Else: Exit Sub
End If
End With
End Sub
也就是说我这个代码怎么跟你那代码加起来，又可以运行。谢谢了

jygzcj

1. 
   
2. Sub hz()
   
3. '汇总
   
4.     Dim Sh As Worksheet
   
5.     Set Sh = Sheets(Sheet6.Name)
   
6.   Sheet3.Range("a2:l30").ClearContents
   
7.     Dim d As New Dictionary
   
8.     Dim lR%
   
9.     lR = Sh.Range("A65536").End(xlUp).Row
   
10.     Dim lC%
    
11.     lC = Sh.Range("IV1").End(xlToLeft).Column
    
12.     Dim Arr, Brr()
    
13.     Arr = Sh.Range(Sh.Cells(2, 1), Sh.Cells(lR, lC))
    
14.      ReDim Brr(1 To UBound(Arr, 1), 1 To UBound(Arr, 2))
    
15.     Dim i%, j%, k%, l%
    
16.     k = 1
    
17.     For i = 1 To UBound(Arr, 1)
    
18.         If Not d.Exists(Arr(i, 1)) Then
    
19.                 d(Arr(i, 1)) = k
    
20.             For j = 1 To UBound(Arr, 2)
    
21.                 Brr(d(Arr(i, 1)), j) = Arr(i, j)
    
22.             Next
    
23.             k = k + 1
    
24.             Else
    
25.             For j = 1 To UBound(Arr, 2)
    
26.                 If j < 3 Then
    
27.                     Brr(k, j) = Arr(i, j)
    
28.                     Else
    
29.                     Brr(d(Arr(i, 1)), j) = Brr(d(Arr(i, 1)), j) + Arr(i, j)
    
30.                 End If
    
31.             Next
    
32.             
    
33.          End If
    
34.         
    
35.         Next
    
36.                
    
37.                
    
38.         Sheet3.Cells(2, 1).Resize(UBound(Brr, 1), UBound(Brr, 2)) = Brr
    
39.         
    
40.    
    
41.    
    
42.    
    
43.    
    
44. End Sub

复制代码

PENGJICHANG

楼上的老师，不行啊，那代码。

PENGJICHANG

如果听不明白的老师，你看http://club.excelhome.net/redire ... o=lastpost#lastpost