Code tính tổng cộng

[Yeuvoyeucon]

Em có File kèm theo. Em muốn thay hàm sum tại cột G bằng Code thì làm thế nào ạ. Code sẽ tìm từ dưới lên trên tại cột A (Thang). Nếu khác rỗng mới thực hiện tính tống tại cột G ạ. Em cảm ơn ạ !

 

[giaiphap]

Em có File kèm theo. Em muốn thay hàm sum tại cột G bằng Code thì làm thế nào ạ. Code sẽ tìm từ dưới lên trên tại cột A (Thang). Nếu khác rỗng mới thực hiện tính tống tại cột G ạ. Em cảm ơn ạ !

Nhưng kết quả ở cột G là giá trị hay công thức?

 

[Yeuvoyeucon]

Nhưng kết quả ở cột G là giá trị hay công thức?

Giá trị ấy ạ. Nếu ra công thức em sợ nó nặng lắm ạ. Số liệu bán hàng của em theo nhiều đơn vị nó cũng dài lắm ạ. Em cảm ơn ạ.

 

[CHAOQUAY]

Em có File kèm theo. Em muốn thay hàm sum tại cột G bằng Code thì làm thế nào ạ. Code sẽ tìm từ dưới lên trên tại cột A (Thang). Nếu khác rỗng mới thực hiện tính tống tại cột G ạ. Em cảm ơn ạ !

Chạy thử code này xem sao

Sub TinhTong()
Dim Nguon
Dim Kq
Dim i, j, r, c
With Sheet1
    Nguon = .Range("A1", .Range("F65000").End(xlUp))
    r = UBound(Nguon)
    c = UBound(Nguon, 2)
    ReDim Kq(1 To r - 1, 1 To 1)
    For i = r To 2 Step -1
        If Nguon(i, 1) <> "" Then
            For j = 2 To c
                Kq(i - 1, 1) = Kq(i - 1, 1) + Nguon(i, j)
            Next j
        End If
    Next i
    .Range("G2", "G" & r).ClearContents
    .Range("G2").Resize(r - 1, 1) = Kq
End With
End Sub

 

[huuthang_bd]

Em có File kèm theo. Em muốn thay hàm sum tại cột G bằng Code thì làm thế nào ạ. Code sẽ tìm từ dưới lên trên tại cột A (Thang). Nếu khác rỗng mới thực hiện tính tống tại cột G ạ. Em cảm ơn ạ !

Công thức sum thì có gì mà nặng bạn.
Một cách khác để tham khảo:

[G2:G100].Value = [IF(A2:A100="","",MMULT(B2:F100*1,{1;1;1;1;1}))]

 

[phulien1902]

Em có File kèm theo. Em muốn thay hàm sum tại cột G bằng Code thì làm thế nào ạ. Code sẽ tìm từ dưới lên trên tại cột A (Thang). Nếu khác rỗng mới thực hiện tính tống tại cột G ạ. Em cảm ơn ạ !

Bạn thử:

Sub Test()
    Dim LC&, LR&, i&
    LR = Range("A" & Rows.Count).End(3).Row
    For i = 2 To LR
        LC = Cells(i, Columns.Count).End(xlToLeft).Column
        Cells(i, LC + 1) = WorksheetFunction.Sum(Range(Cells(i, 2), Cells(i, LC)))
    Next i
End Sub