Nhờ các bạn sửa giúp code tính tổng

[hoang0569]

Mình gửi kèm File, các bạn sửa giúp mình nhé, cảm ơn nhiều.

 

[concogia]

Mình gửi kèm File, các bạn sửa giúp mình nhé, cảm ơn nhiều.

Chỗ nào chỉ cho biết ngày hiện tại là ngày nào?
Thân

 

[hoang0569]

Cảm ơn bạn đã quan tâm giúp, như File mình gửi kèm, như ví dụ File gửi kèm,: vd là ngày 24 thì mình chỉ tính tổng những số liền nhau cuối cột đến ngày 23,còn thực tế nay là 30 (nếu không có số liệu gì thì để trống hàng tổng hết, nếu có mà có số liệu cả mấy ngày liền nhau hoặc chỉ có 1 ngày 30 thì mai mùng 1/12,hàng tổng cũng tính đến 30/11 bạn à

 

[concogia]

Cảm ơn bạn đã quan tâm giúp, như File mình gửi kèm, như ví dụ File gửi kèm,: vd là ngày 24 thì mình chỉ tính tổng những số liền nhau cuối cột đến ngày 23,còn thực tế nay là 30 (nếu không có số liệu gì thì để trống hàng tổng hết, nếu có mà có số liệu cả mấy ngày liền nhau hoặc chỉ có 1 ngày 30 thì mai mùng 1/12,hàng tổng cũng tính đến 30/11 bạn à

Híc, dữ liệu của bạn thì bạn biết ngày hiện tại bạn nhập là ngày nào, chứ làm sao người khác biết. ( thí dụ ở cell nào đó trên bảng tính bạn ghi ngày hiện tại). Tạm thời "zì" đi, cứ coi hàng nào có dữ liệu cuối cùng là hàng trước ngày hiện tại nhé. Có gì nói sau
Thân:

Public Sub Tong()
    Dim Vung, Kq, I, J, K, Tong
    Set Vung = [B8:I38]
    ReDim Kq(1 To 1, 1 To Vung.Columns.Count)
        For I = Vung.Rows.Count To 1 Step -1
            If Application.Count(Vung.Rows(I)) Then
                For J = 1 To Vung.Columns.Count
                    If Vung(I, J) <> "" Then
                       For K = I To 1 Step -1
                            If Vung(K, J) <> "" Then
                                Tong = Tong + Vung(K, J)
                            Else
                                Kq(1, J) = Tong: Tong = 0: Exit For
                            End If
                        Next K
                    End If
                Next J
                Exit For
             End If
         Next I
[B40].Resize(, Vung.Columns.Count) = Kq
End Sub

 

[hoang0569]

Chưa được bạn ơi, xem lại giúp mình với, mùng 1/12 có số liệu mà mùng 2/12 mình tính không ra kết quả, ý mình muốn tính tổng những số liền nhau hoặc chỉ là 1 số đến trước ngày hiện tại mà, vd nay mùng 2/12 thì mình tính đến mùng 1 thôi.

 

[hoang0569]

Giúp mình với các bạn ơi

 

[snow25]

Giúp mình với các bạn ơi

Theo code mình thấy đúng mà.Bạn có thể đăng cái chưa đúng lên được không.

 

[hoang0569]

Như trường hợp mình gửi theo File kèm

 

[snow25]

Như trường hợp mình gửi theo File kèm

Public Sub Tong()
    Dim Vung, Kq, I, J, K, Tong
    Set Vung = [B8:I38]
    ReDim Kq(1 To 1, 1 To Vung.Columns.Count)
        For I = Vung.Rows.Count To 1 Step -1
            If Application.Count(Vung.Rows(I)) Then
                For J = 1 To Vung.Columns.Count
                    If Vung(I, J) <> "" Then
                       For K = I To 1 Step -1
                            If Vung(K, J) <> "" Then
                                Tong = Tong + Vung(K, J)
                            Else
                                 Exit For
                            End If
                        Next K
                    End If
                    Kq(1, J) = Tong: Tong = Empty
                Next J
                
                Exit For
             End If
         Next I
[B39].Resize(, Vung.Columns.Count) = Kq
End Sub

Bạn sửa thế này xem.

 

[concogia]

Public Sub Tong()
    Dim Vung, Kq, I, J, K, Tong
    Set Vung = [B8:I38]
    ReDim Kq(1 To 1, 1 To Vung.Columns.Count)
        For I = Vung.Rows.Count To 1 Step -1
            If Application.Count(Vung.Rows(I)) Then
                For J = 1 To Vung.Columns.Count
                    If Vung(I, J) <> "" Then
                       For K = I To 1 Step -1
                            If Vung(K, J) <> "" Then
                                Tong = Tong + Vung(K, J)
                            Else
                                 Exit For
                            End If
                        Next K
                    End If
                    Kq(1, J) = Tong: Tong = Empty
                Next J
               
                Exit For
             End If
         Next I
[B39].Resize(, Vung.Columns.Count) = Kq
End Sub

Bạn sửa thế này xem.

Thật ra bài này dữ liệu còn....khó hiểu lắm
Với dữ liệu trong bài thì sửa
Set Vung = [B8:I38]
thành
Set Vung = [B7:I38]
cũng ok thôi.
Như trong bài là ngày 2, lui lại lấy ngày 1 vậy có lấy tiếp ngày cuối tháng trước nếu có dữ liệu hay không ?.....( chưa kể ngày cuối tháng trước có thể là 31, 30.......)
Thân

 

[hoang0569]

Thật ra, mình cũng rât muốn có được code lấy tiếp ngày cuối tháng trước (tùy theo các tháng có 28,30,31 ngày) khi có dữ liệu nhưng thấy phức tạp, nhờ giúp đỡ mà yêu cầu cao quá mình cũng rất e ngại, được như vậy cũng đã rất cảm ơn các bạn rồi, nếu có thời gian bạn giúp thêm thì thật là tuyệt, cảm ơn các bạn nhiều.