Tính tổng các chỉ tiêu của từng công ty theo từng tháng (năm) (1 người xem)

[LinDan]

Tôi có số liệu đầu vào nhập

Cần tổng hợp số liệu ứng với từng công ty theo từng tháng như sau:

Nhờ các bác trên GPE giúp tôi 1 tay, xin cảm ơn rất nhiều

 

[Hai Lúa Miền Tây]

Dùng Pivot ngon lành bạn à.

 

[LinDan]

Cảm ơn thày rất nhiều, lỗi do bản thân tôi không nêu rõ đầu bài khi nhờ diễn đàn, chẳng là Pivot tôi biết làm rồi thày ah, tôi đang cần học VBA, phiền thày và mọi người giúp làm bằng phương pháp VBA để tôi học hỏi với.

 

[Hai Lúa Miền Tây]

Cảm ơn thày rất nhiều, lỗi do bản thân tôi không nêu rõ đầu bài khi nhờ diễn đàn, chẳng là Pivot tôi biết làm rồi thày ah, tôi đang cần học VBA, phiền thày và mọi người giúp làm bằng phương pháp VBA để tôi học hỏi với.

Có thể dùng AutoFilter để giải quyết nhưng ở đây mình làm thử ADO. Bạn chỉnh lại tên cột tí nhé.

Public cnn As New ADODB.Connection
Sub Moketnoi()
  With cnn
    .ConnectionString = "Provider= Microsoft.Jet.OLEDB.4.0; data source=" & ThisWorkbook.Path & _
                        "\" & ThisWorkbook.Name & ";Extended Properties=Excel 8.0;"
    .CursorLocation = adUseClient
    .Open
  End With
    
End Sub

Sub FillList()
Moketnoi
On Error Resume Next
Dim lsSQL As String, r As Integer
Dim lrs As New ADODB.Recordset
    With Sheet3
        lsSQL = "select NgayThang, TenCongTy, DoanhThu, ChiPhi " & _
                        "From [XN1$] " & _
                        "Where month(NgayThang) =" & .Range("B1") & " and TenCongTy like '" & _
                        IIf(Len(.Range("B2")) = 0, "%", .Range("B2")) & "' " & _
                        "ORDER BY [NgayThang] "

        lrs.Open lsSQL, cnn, adOpenStatic, adLockReadOnly
        .Range("A5:D6000").ClearContents
        .Range("A5").CopyFromRecordset lrs
        r = .Range("A65000").End(xlUp).Row + 1
        .Range("B" & r) = "T" & ChrW(7893) & "ng C" & ChrW(7897) & "ng"
        .Range("C" & r).FormulaR1C1 = "=SUM(R[-" & r - 4 & "]C:R[-1]C)"
        .Range("D" & r).FormulaR1C1 = "=SUM(R[-" & r - 4 & "]C:R[-1]C)"
        
    End With
lrs.Close
cnn.Close

End Sub

Bạn tham khảo thêm file đính kèm nhe

 

[LinDan]

Chà chà, thày làm cách cao siêu quá, tôi lại chưa có chút khái niệm gì về cái này cả; cứ tạm áp dụng để sài cái đã rồi nghiên cứu sau (nếu thày rỗi, phiền thày hộ cho cả cách AutoFilter nữa nhé).

 

[ndu96081631]

Có thể dùng AutoFilter để giải quyết nhưng ở đây mình làm thử ADO. Bạn chỉnh lại tên cột tí nhé.


Bạn tham khảo thêm file đính kèm nhe

Thay vì:
ThisWorkbook.Path & "\" & ThisWorkbook.Name
Sao không ghi là
ThisWorkbook.FullName
Cho nó gọn?
Ẹc... Ẹc...