Không biết có đúng không.
Cảm ơn bạn nhiều, nhưng vẫn còn cái "date" đó bạn.Mình muốn gộp luôn cả cái "date".Trong file mình gửi chỉ lấy ví dụ là 1/1/2009 nhưng trong thực tế mình làm thì có tất cả những ngày trong tháng luôn.Các bạn giúp mình nhé.Cảm ơn nhiều.
vì sao mà mã trên là 1 ,mã dưới cũng 1 sao không gộp lại? (M2 và M6)
Vì ngày nó khác nhau mà bạn.
Lâu quá không dùng đến công thức, nay làm thử!
Woa, cảm ơn rất rất nhìu.À nhân tiện cho hỏi thêm
(như trong file).Mà sao với số lượng khoảng 10.000 dòng nó chạy mệt nghỉ lun àh.Bạn có cách nào cho nó nhanh nhanh tí không.Cảm ơn nhìu.Nếu được thì link với access thì càng tuyệt vời.
Có lẽ nên dùng VBA thì tốt hơn ---> Nếu bạn đồng ý chúng ta sẽ tiếp tụcWoa, cảm ơn rất rất nhìu.À nhân tiện cho hỏi thêm
http://www.mediafire.com/?2ttzvy2wwzg
Còn đây là file gốc http://www.mediafire.com/?zhjmmmi5n15
Ok, miễn sao cho đc kết quả là tốt lắm rùi
Cái này mình sẽ điều chỉnh lại và giới hạn chỉ có 2 giá trị trong ngày.Cảm ơn nhìu lắm.
Trong khi chờ đợi VBA của bác ndu. mời bạn dùng tạm file của Dosnet nhé.
Hình như chưa đúng DOSNET ơi!
=SUMPRODUCT(($A$3:$A3=A3)*($B$3:$B3=B3))Cái Macc không chính xác rồi bạn ơi. nó ko phải là số thứ tự tăng dần
À còn cái sheet data1 không biết bạn đã xem chưa?
Cái sheet data1 bạn nên tự làm, có số liệu time1 và time2 rồi, đơn giản chỉ thêm cột cộng trừ thời gian (bằng vài cái hàm if để thay thành 1 hay 0.5). Có thể dùng Privot table để tổng hợp theo ý bạn. Thân!
Thật sự mình không rành về Excel cho lắm, Bạn có thể giải thích cho mình chi tiết các hàm ở Macc, Date on, Time in, Time Out đc ko?Sao mình gỏ y chang như vậy (trong sheet khác) mà nó ko ra kết quả.tks.
Bạn thân mến, để giải thích hết các công thức trong bài này ở đây chắc sẽ không có đủ thời gian, đòi hỏi bạn phải hiểu ngọn ngành cách sử dụng công thức, đặc biệt là name động, cách tuỳ biến hàm Sumproduct, không đơn giản là việc copy và paste vì dữ liệu được ràng buộc với nhau thông qua name. Trước hết hãy xem cách dùng name và công thức tại cột phụ và tìm hiểu dần dần...chúc vui!
Sub TrichLoc()
Dim Clls As Range, Cll As Range
Dim eRw As Long, eR As Long: Dim Timer_ As Double
Application.ScreenUpdating = False: Timer_ = Timer
Sheets("Data").Select: eRw = [A65500].End(xlUp).Row
For Each Clls In [Z2] ' Range([z2], [z2].End(xlDown))'
[e2].Value = Clls.Value
Range("A1:C" & eRw).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=[E1].Resize(2), _
CopyToRange:=[E4].Resize(, 3), Unique:=False
eR = [e65500].End(xlUp).Row: [I2].Resize(eR, 4).ClearContents
Range("E4:G" & eR).Sort Key1:=Range("E5"), Order1:=1, Key2:=Range("G5") _
, Order2:=1, Header:=xlGuess, OrderCustom:=1, MatchCase:=False
For Each Cll In Range("E5:E" & eR)
With Cll
If (.Offset(1).Value <> .Value And .Value <> .Offset(-1).Value) Or _
(.Offset(1).Value = .Value And .Value <> .Offset(-1).Value) Then
[i65500].End(xlUp).Offset(1).Resize(, 3) = .Resize(, 3).Value
ElseIf .Offset(1).Value <> .Value And .Value = .Offset(-1).Value Then
[i65500].End(xlUp).Offset(, 3).Value = .Offset(, 2).Value
.Interior.ColorIndex = 38
Else
End If
End With
Next Cll
Next Clls
[g1].Value = Timer - Timer_
End Sub
