Nhờ anh, chị lập giúp code VBA cho dòng cộng và tổng cộng.

hoangminh2018 · 7/5/19

Em có file này trước đây có một anh trên diễn đàn giúp làm ra phần phát sinh.
Nhưng nay em muốn thêm vào dòng cộng và tổng cộng bằng code vba luôn (các dòng tô màu vàng), mong nhận được sự giúp đỡ của mọi người.
Code trong Module 2
Em xin cảm ơn.

bacngoctuan · 7/5/19

Em cũng đang tìm code này. tiện bác nào chỉ luôn e với

hoangminh2018 · 8/5/19

Phần này có khó lắm không ạ.

leonguyenz · 8/5/19

Thêm dòng như thế nào bạn?
Thiết nghĩ nếu bạn thêm dòng thì code cũng sẽ tự thêm dòng thôi.

hoangminh2018 · 8/5/19

leonguyenz đã viết:
Thêm dòng như thế nào bạn?
Thiết nghĩ nếu bạn thêm dòng thì code cũng sẽ tự thêm dòng thôi.

Dạ không có thêm dòng anh, code có sẵn rồi nhưng khi chạy thì các dòng cộng và tổng cộng không ra.

SA_DQ · 8/5/19

Nếu là mình thì các tổng & cộng tổng nên áp công thức; Không thèm xài VBA;
Mà cũng không cần xài đến Dictionary cho nó hàm lậm, chỉ đưa dữ liệu vô mảng mà duyệt thôi.
Vòng lặp ngoài duyệt theo các (4) hàng của cột B của trang 'THTien'
Vòng lặp trong duyệt theo dữ liệu của mảng ( Arr = .Range("A3:J" & A).Value)
Cái nào thỏa ngày nào thì ghi vô 1 trong 3 tham biến (DuDauKy; TangTrongKy & GiamTrongKy là được
Duyệt xong dòng nào của trang 'THTien' thì ghi các tham biến tương ứng vô 3 cột
(Xóa về 0 các tham biến, để ghi cho dòng dưới liền kề có dữ liệu của trang)

Với hướng này bạn dễ bảo trì hơn nhiều.

hoangminh2018 · 8/5/19

SA_DQ đã viết:
Nếu là mình thì các tổng & cộng tổng nên áp công thức; Không thèm xài VBA;
Mà cũng không cần xài đến Dictionary cho nó hàm lậm, chỉ đưa dữ liệu vô mảng mà duyệt thôi.
Vòng lặp ngoài duyệt theo các (4) hàng của cột B của trang 'THTien'
Vòng lặp trong duyệt theo dữ liệu của mảng ( Arr = .Range("A3:J" & A).Value)
Cái nào thỏa ngày nào thì ghi vô 1 trong 3 tham biến (DuDauKy; TangTrongKy & GiamTrongKy là được
Duyệt xong dòng nào của trang 'THTien' thì ghi các tham biến tương ứng vô 3 cột
(Xóa về 0 các tham biến, để ghi cho dòng dưới liền kề có dữ liệu của trang)

Với hướng này bạn dễ bảo trì hơn nhiều.

Dạ vì em không rành VBA lắm, thầy có thể làm phần này giúp em không ạ - theo ý của thầy.

leonguyenz · 8/5/19

hoangminh2018 đã viết:
Dạ vì em không rành VBA lắm, thầy có thể làm phần này giúp em không ạ - theo ý của thầy.

Bạn dùng công thức tạm đi, còn VBA, để sửa trên code người khác viết thì mất công lắm.

hoangminh2018 · 8/5/19

leonguyenz đã viết:
Bạn dùng công thức tạm đi, còn VBA, để sửa trên code người khác viết thì mất công lắm.

Dạ em cảm ơn, nhưng em vẫn muốn dung VBA để làm cái này.

HieuCD · 8/5/19

leonguyenz đã viết:
Bạn dùng công thức tạm đi, còn VBA, để sửa trên code người khác viết thì mất công lắm.

Viết mới hết cũng được mờ

hoangminh2018 · 8/5/19

HieuCD đã viết:
Viết mới hết cũng được mờ

Dạ anh viết mới cũng được ạ.

SA_DQ · 8/5/19

Ai cũng chê hay sao ý:

PHP:

Sub TongHopPhatSinh()
Dim Rws As Long, J As Long, DuDK As Double, Tang As Double, Giam As Double, Tmp As Double
Dim Arr(), Cls As Range
Dim CT As Integer

With Sheets("NhapLieu")
    Rws = .[b3].CurrentRegion.Rows.Count
    Arr() = .[b3].Resize(Rws, 8).Value:                             Tmp = Timer()
End With
With Sheets("THTien")
    fDat = .[d7].Value:                                               lDat = .[g7].Value
    For Each Cls In .Range(.[b11], .[B65500].End(xlUp))
        If Cls.Value = "" Then GoTo GPE
        For J = 1 To UBound(Arr())
            If Arr(J, 8) = Cls.Value Then
                If Arr(J, 2) <> Space(0) Then CT = 1 Else CT = -1
                If Arr(J, 1) < fDat Then
                    DuDK = DuDK + CT * Arr(J, 7)
                ElseIf Arr(J, 1) >= fDat And Arr(J, 1) <= lDat Then
                    If CT Then
                        Tang = Tang + Arr(J, 7)
                    Else
                        Giam = Giam + Arr(J, 7)
                    End If
                End If
            End If
        Next J
        .Cells(Cls.Row, "F").Value = DuDK:          DuDK = 0
        .Cells(Cls.Row, "G").Value = Tang:          Tang = 0
        .Cells(Cls.Row, "H").Value = Giam:          Giam = 0
GPE:
    Next Cls
End With
MsgBox Timer() - Tmp
End Sub

hoangminh2018 · 8/5/19

SA_DQ đã viết:

Ai cũng chê hay sao ý:

PHP:

Sub TongHopPhatSinh()
Dim Rws As Long, J As Long, DuDK As Double, Tang As Double, Giam As Double, Tmp As Double
Dim Arr(), Cls As Range
Dim CT As Integer

With Sheets("NhapLieu")
    Rws = .[b3].CurrentRegion.Rows.Count
    Arr() = .[b3].Resize(Rws, 8).Value:                             Tmp = Timer()
End With
With Sheets("THTien")
    fDat = .[d7].Value:                                                     lDat = .[g7].Value
    For Each Cls In .Range(.[b11], .[B65500].End(xlUp))
        If Cls.Value = "" Then GoTo GPE
        For J = 1 To UBound(Arr())
            If Arr(J, 8) = Cls.Value Then
                If Arr(J, 2) <> Space(0) Then CT = 1 Else CT = -1
                If Arr(J, 1) < fDat Then
                    DuDK = DuDK + CT * Arr(J, 7)
                ElseIf Arr(J, 1) >= fDat And Arr(J, 1) <= lDat Then
                    If CT Then
                        Tang = Tang + Arr(J, 7)
                    Else
                        Giam = Giam + Arr(J, 7)
                    End If
                End If
            End If
        Next J
        .Cells(Cls.Row, "F").Value = DuDK:          DuDK = 0
        .Cells(Cls.Row, "G").Value = Tang:          Tang = 0
        .Cells(Cls.Row, "H").Value = Giam:          Giam = 0
GPE:
    Next Cls
End With
MsgBox Timer() - Tmp
End Sub

Dạ em cảm ơn thầy.

hoangminh2018 · 9/5/19

SA_DQ đã viết:

Ai cũng chê hay sao ý:

PHP:

Sub TongHopPhatSinh()
Dim Rws As Long, J As Long, DuDK As Double, Tang As Double, Giam As Double, Tmp As Double
Dim Arr(), Cls As Range
Dim CT As Integer

With Sheets("NhapLieu")
    Rws = .[b3].CurrentRegion.Rows.Count
    Arr() = .[b3].Resize(Rws, 8).Value:                             Tmp = Timer()
End With
With Sheets("THTien")
    fDat = .[d7].Value:                                                     lDat = .[g7].Value
    For Each Cls In .Range(.[b11], .[B65500].End(xlUp))
        If Cls.Value = "" Then GoTo GPE
        For J = 1 To UBound(Arr())
            If Arr(J, 8) = Cls.Value Then
                If Arr(J, 2) <> Space(0) Then CT = 1 Else CT = -1
                If Arr(J, 1) < fDat Then
                    DuDK = DuDK + CT * Arr(J, 7)
                ElseIf Arr(J, 1) >= fDat And Arr(J, 1) <= lDat Then
                    If CT Then
                        Tang = Tang + Arr(J, 7)
                    Else
                        Giam = Giam + Arr(J, 7)
                    End If
                End If
            End If
        Next J
        .Cells(Cls.Row, "F").Value = DuDK:          DuDK = 0
        .Cells(Cls.Row, "G").Value = Tang:          Tang = 0
        .Cells(Cls.Row, "H").Value = Giam:          Giam = 0
GPE:
    Next Cls
End With
MsgBox Timer() - Tmp
End Sub

Dạ thầy ơi em test mà nó bị lỗi

SA_DQ · 9/5/19

Mình nhồm hình không rõ, nhưng đoán là nó báo thời gian đã dùng để chạy macro trên file của bạn đó thôi.

leonguyenz · 9/5/19

SA_DQ đã viết:
Mình nhồm hình không rõ, nhưng đoán là nó báo thời gian đã dùng để chạy macro trên file của bạn đó thôi.

Đôi lúc cẩn thận quá cũng thừa phải không bác?

hoangminh2018 · 9/5/19

SA_DQ đã viết:
Mình nhồm hình không rõ, nhưng đoán là nó báo thời gian đã dùng để chạy macro trên file của bạn đó thôi.

Dạ vậy là sao ạ (em không hiểu lắm).

leonguyenz · 9/5/19

hoangminh2018 đã viết:
Dạ vậy là sao ạ (em không hiểu lắm).

Bạn nhấn Alt+F11 và thử xóa dòng này: MsgBox Timer() - Tmp
Sau đó chạy code lại thử xem.

SA_DQ · 9/5/19

Đó là hiệu thời gian đầu & cuối khi thực hành 1 lần của macro

hoangminh2018 · 9/5/19

SA_DQ đã viết:
Đó là hiệu thời gian đầu & cuối khi thực hành 1 lần của macro

Em đã thử nhưng nó vẫn không ra kết quả thầy ơi

Nhờ anh, chị lập giúp code VBA cho dòng cộng và tổng cộng.

Thành viên chính thức

File đính kèm

Thành viên mới

Thành viên chính thức

Thành viên gạo cội

Thành viên chính thức

/(hông là gì!

Thành viên chính thức

Thành viên gạo cội

File đính kèm

Thành viên chính thức

Chuyên gia GPE

Thành viên chính thức

/(hông là gì!

Thành viên chính thức

Thành viên chính thức

/(hông là gì!

Thành viên gạo cội

Thành viên chính thức

Thành viên gạo cội

/(hông là gì!

Thành viên chính thức

Facebook

Group