Giúp viết hàm VBA tổng hợp dữ liệu từng ngày. (1 người xem)

[maiyeu004]

Chào các anh chị, Em có file excel thống kê công việc từng ca bên bảo dưỡng, ( Một Ngày có 3 ca ) từng ca sẽ viết vào một Worksheet đặt tên là : Ngày +S1 , S2, S3 ex: ngày 19 tháng 1 năm 2013 --> tên 3 ca : 19S1 , 19S2, 19S3.

Em cần viết code VBA tổng hợp 3 ca đó vào worksheet SUMM ( Chạy theo ngày tại ô E3. Khi E3 thay đổi ngày thì sẽ ra tổng hợp của ngày thay đổi đó.

Tổng hợp theo list thiết bị .

Rất mong các anh chị giúp đỡ.

Cám ơn anh chị rất rất nhiều.

 

[Ba Tê]

Chào các anh chị, Em có file excel thống kê công việc từng ca bên bảo dưỡng, ( Một Ngày có 3 ca ) từng ca sẽ viết vào một Worksheet đặt tên là : Ngày +S1 , S2, S3 ex: ngày 19 tháng 1 năm 2013 --> tên 3 ca : 19S1 , 19S2, 19S3.

Em cần viết code VBA tổng hợp 3 ca đó vào worksheet SUMM ( Chạy theo ngày tại ô E3. Khi E3 thay đổi ngày thì sẽ ra tổng hợp của ngày thay đổi đó.

Tổng hợp theo list thiết bị .

Rất mong các anh chị giúp đỡ.

Cám ơn anh chị rất rất nhiều.

Thử với sub này xem, muốn nó chạy khi thay đổi ô Ẻ thì gán nó vào Private Sub Worksheet_Change của sheet SUMM.

Public Sub TongHop()
Dim Ws As Worksheet, sArr(), dArr(1 To 50, 1 To 12), I As Long, J As Long, K As Long, Tem As String
Tem = Day(Sheets("SUMM").[E3]) & "S"
For Each Ws In ThisWorkbook.Worksheets
    If Ws.Name Like Tem & "*" Then
        sArr = Ws.Range(Ws.[B11], Ws.[B11].End(xlDown)).Resize(, 11).Value
        For I = 1 To UBound(sArr, 1)
            K = K + 1
            dArr(K, 1) = K
            For J = 1 To 11
                dArr(K, J + 1) = sArr(I, J)
            Next J
        Next I
    End If
Next
With Sheets("SUMM")
    .[A7:L50].ClearContents
    .[A7].Resize(K, 12).Value = dArr
End With
End Sub

 

[maiyeu004]

Cám ơn anh Ba tê nhiều, anh có thể chỉ dẫn chi tiết hơn nữa được không anh.

Em pase code đó vào worksheet nào và làm nt để nó chạy được.

Cám ơn a

 

[maiyeu004]

Cám ơn anh, e đã cho chạy được rồi a Ba tê ahm,
Jo còn làm như thế nào để khi thay giá trị ở ô E3 là lại run VBA là ok.