Xin giúp đỡ loc va tính tổng trong Excel VBA (1 người xem)

[datnguyenhv]

Em có một file excel gồm có 3 sheet 1,2,3.
Với Sheet1 em có cột : Date, Time, Value1, Value2, Value3, Value4 với các thông số có sẵn.
Em muốn sử dụng một nút nhấn ở sheet1. khi bấm nút thì o sheet2 sẽ lọc và tính toán để có các ngày(theo thứ tự ngày tháng năm) và ở các Value1,2,3,4(sẽ là tổng của giờ sau trừ đi giờ trước trong cùng một ngày đó).
Em suy nghĩ mãi ma chưa ra
Mong các cao thủ trong diễn đàn giúp đỡ. Em xin cám ơn nhiều.
Đây là file đính kèm:

 

[Quang_Hải]

Em có một file excel gồm có 3 sheet 1,2,3.
Với Sheet1 em có cột : Date, Time, Value1, Value2, Value3, Value4 với các thông số có sẵn.
Em muốn sử dụng một nút nhấn ở sheet1. khi bấm nút thì o sheet2 sẽ lọc và tính toán để có các ngày(theo thứ tự ngày tháng năm) và ở các Value1,2,3,4(sẽ là tổng của giờ sau trừ đi giờ trước trong cùng một ngày đó).
Em suy nghĩ mãi ma chưa ra
Mong các cao thủ trong diễn đàn giúp đỡ. Em xin cám ơn nhiều.
Đây là file đính kèm:

Code nè. Đoán và viết tạm vậy, sai thì tính tiếp. Lẽ ra cho kết quả thủ công thì may ra dể hiểu hơn

Sub tong()
Dim nguon(), kq(1 To 65536, 1 To 5), i, k
With Sheets("sheet1")
    nguon = .Range(.[C4], .[H65536].End(3)).Value
End With
With CreateObject("scripting.dictionary")
    For i = 1 To UBound(nguon)
        If Not .exists(nguon(i, 1)) Then
            k = k + 1
            .Add nguon(i, 1), k
            kq(k, 1) = nguon(i, 1)
            For j = 2 To 5
                kq(k, j) = nguon(i, j + 1)
            Next
        Else
            For j = 2 To 5
                kq(.Item(nguon(i, 1)), j) = kq(.Item(nguon(i, 1)), j) + nguon(i, j + 1)
            Next
        End If
    Next
End With
Sheets("sheet2").[C4].Resize(k, 5) = kq
End Sub

 

[datnguyenhv]

Để em xem lại thử. Em xin cám ơn nhiều.

 

[datnguyenhv]

Hình như không đúng theo yêu cầu của em rồi.
- thứ nhất không sắp xếp theo thứ tự ngày tháng năm ở sheet2.
thứ hai là Value1,2,3,4(sẽ là tổng của giờ sau trừ đi giờ trước trong cùng một ngày đó).

Xin anh coi lai giúp em.

Thanks anh!

 

[Quang_Hải]

Hình như không đúng theo yêu cầu của em rồi.
- thứ nhất không sắp xếp theo thứ tự ngày tháng năm ở sheet2.
thứ hai là Value1,2,3,4(sẽ là tổng của giờ sau trừ đi giờ trước trong cùng một ngày đó).

Xin anh coi lai giúp em.

Thanks anh!

Coi gì mà coi, sao không cho kết quả tạm. Giải thích khó hiểu lắm

 

[Ba Tê]

Coi gì mà coi, sao không cho kết quả tạm. Giải thích khó hiểu lắm

Coi hổng được cũng ráng "banh ra" mà coi, hổng trúng thì trật.
Ẹc..

 

[datnguyenhv]

Dear All,

Đại loại như vầy nè cả nhà:

 

[Ba Tê]

Dear All,

Đại loại như vầy nè cả nhà:

Đã "banh ra coi" mà cũng không thấy được cái "ý" của người ta.
Đúng là đúng, sai là sai, "đại loại" hổng biết sao nữa.

 

[datnguyenhv]

Đã "banh ra coi" mà cũng không thấy được cái "ý" của người ta.
Đúng là đúng, sai là sai, "đại loại" hổng biết sao nữa.

Hình như là đúng rồi bác Ba Tê. Thanks các bác nhiều nhe!

Như ví dụ này em thử làm trên một sheet đã có sẵn dữ liệu.
Còn nếu mình muốn truy suất tới SQL server để lấy luôn thì sao ta?