Giúp đỡ Code tổng hợp số liệu nhiều file

[alonelove]

EM chào Anh/Chị ạ

Hàng ngày em phải tổng hợp số lượng bán hàng của nhiều cửa hàng theo mẫu của Công ty, có cửa hàng bán nhiều có cửa hàng bán ít, file mẫu lại định dạng text nên sum thủ công mất rất nhiều thời gian.
Mong Anh/Chị rành về code giúp em đoạn code để sum tổng giá trị từng cửa hàng và ghi giá trị vào file_tổng.
Em gửi kèm vài file cửa hàng cần tổng hợp (để chung 1 folder) và "File_tong" là mẫu em mong muốn để Anh/Chị dễ hình dung ạ

 

[saobekhonglac]

EM chào Anh/Chị ạ

Hàng ngày em phải tổng hợp số lượng bán hàng của nhiều cửa hàng theo mẫu của Công ty, có cửa hàng bán nhiều có cửa hàng bán ít, file mẫu lại định dạng text nên sum thủ công mất rất nhiều thời gian.
Mong Anh/Chị rành về code giúp em đoạn code để sum tổng giá trị từng cửa hàng và ghi giá trị vào file_tổng.
Em gửi kèm vài file cửa hàng cần tổng hợp (để chung 1 folder) và "File_tong" là mẫu em mong muốn để Anh/Chị dễ hình dung ạ

Tổng hợp thì các file chi tiết như thế nào thì phải tổng nó sẽ y như vậy, khác là dữ liệu bao gồm các file kia thôi, từ đó mới xử lý tiếp ra các báo cáo tổng hợp cần thiết.

 

[saobekhonglac]

Đâu nhất thiết file tổng hợp phải như file chi tiết. Tổng hợp thường khác chi tiết chứ... Tổng hợp cái cần là con số tổng không cần cái trên file chi tiết thì sao?

Cái đó thì cao siêu quá em làm không nỗi, giống sheet chi tiết và các file phải có formar giống thì mới mò được thôi.

 

[alonelove]

Tổng hợp thì các file chi tiết như thế nào thì phải tổng nó sẽ y như vậy, khác là dữ liệu bao gồm các file kia thôi, từ đó mới xử lý tiếp ra các báo cáo tổng hợp cần thiết.

Yes, vấn đề của em là tổng hợp hàng ngày nhiều cừa hàng, mỗi cửa hàng một khác nhau nên muốn nhờ Anh/Chị giúp code cho nhanh chóng, thuận tiện với đỡ sai khi copy tay.

 

[alonelove]

Cảm ơn @hkphuong nhiều lắm, chạy đúng ý mình rồi nhưng sum gía trị bị sai mất:
ví dụ file CN01... sum cột E là 63.586,20 và cột F là 25.069,98 => Code bạn sum ra 666.805.200,0 và263.154.924,0
Bị lệch nhiều quá, phiền @hkphuong sửa lại code được không ạ?

 

[alonelove]

Mình chạy lại mấy lần rồi nó cũng ra 1 kết quả như vầy nè @hkphuong, có khi nào bị cộng lên nhiều lần không ạ

 

[alonelove]

Vẫn vậy à anh @hkphuong

Em có tham khảo được đoạn code sau nhưng phải để file chạy cùng với folder chưa các file số liệu. Anh có thể chỉnh để brown tới folder được không ạ??

Sub test()
    Dim myPath As String, fn As String, n As Long
    Dim a, e, I As Long, myTotal As Double
    Application.ScreenUpdating = False
    myPath = ThisWorkbook.Path & "\"
    fn = Dir(ThisWorkbook.Path & "\*.xls"): n = 1
    Do While fn <> ""
        If fn <> ThisWorkbook.Name Then
            n = n + 1
            Sheets(1).Cells(n, 1).Value = fn
            With Workbooks.Open(myPath & fn).Sheets(1)
                a = .Range("e18:f10000").Value
                .Parent.Close False
            End With
            For Each e In Array(1, 2)
                For I = 1 To UBound(a, 1)
                    myTotal = myTotal + Val(Replace(a(I, e), ",", "."))
                Next
                Sheets(1).Cells(n, e + 4).Value = myTotal: myTotal = 0
            Next
        End If
        fn = Dir
    Loop
    Application.ScreenUpdating = True
End Sub

 

[alonelove]

Code kia cũng vậy thôi. Khác gì nhau đâu mà chỉnh
Máy bạn dấu phân cách thập phân là gì: chấm (.) hay phẩy (,)?

Dấu hàng ngàn là chấm (.), dấy thập phân là phẩy (,) @hkphuong.

Sao code kia nếu để chung folder với các file chạy thì ra số liệu chuẩn luôn? nhờ @hkphuong xem lại với ạ

 

[alonelove]

À được rồi, mình đổi dấu phẩy thành dấu chấm thì ra kết quả đúng, chỗ code bôi đỏ

dArr(K, 5) = dArr(K, 5) + Val(Replace(sArr(I, 3), ",", Mid(1 / 2, 2, 1)))
dArr(K, 6) = dArr(K, 6) + Val(Replace(sArr(I, 4), ",", Mid(1 / 2, 2, 1)))

Cảm ơn @hkphuong nhìu ạ

 

[VetMini]

Vì file bạn gửi lên (3 file con), 2 cột ấy có format mặc định là text. và dấu phân cách là phẩy (,) nên mới code như vậy... vì tôi nghỉ file của bạn luôn luôn là dấu phẩy, còn thực bên bạn như nào thì chịu.

Gặp người không chịu nhìn kỹ thì khó ghê, bạn hkphuong nhỉ!