Code VBA để tính tổng theo chiều ngang mà số cột không cố định (1 người xem)

[dungluyen2119]

Các Anh/Chị trên diễn đàn cho em xin đoạn Code tính tổng theo chiều ngang điền vào cột cuối cùng có tên là Total với ạ. Cột Total không cố định do dữ liệu thay đổi theo ngày ạ. Em xin cảm ơn.

 

[thuytrangbp28]

Vui thật, bạn gửi file nhờ hỗ trợ viết code VBA, nhưng khóa truy cập vào VBA, vậy thì viết vào đâu bây giờ

 

[Hoàng Tuấn 868]

Vui thật, bạn gửi file nhờ hỗ trợ viết code VBA, nhưng khóa truy cập vào VBA, vậy thì viết vào đâu bây giờ

Bạn viết ra một sheet nào đấy, sau đó chủ bài chép lại, mở cửa sổ viết vba ra và dán vào là xong thôi mà.

 

[dungluyen2119]

Vui thật, bạn gửi file nhờ hỗ trợ viết code VBA, nhưng khóa truy cập vào VBA, vậy thì viết vào đâu bây giờ

Em xin lỗi. Mk là : Dung1993@. Anh kiểm tra giúp em ạ

Bài đã được tự động gộp: Hôm qua, lúc 21:03

Bạn viết ra một sheet nào đấy, sau đó chủ bài chép lại, mở cửa sổ viết vba ra và dán vào là xong thôi mà.

Anh Hoàng Tuấn 868 có thể giúp em code toàn bộ lại được không ạ để cho gọn gàng được không ạ. Em cảm ơn anh.

 

[HUONGHCKT]

Các Anh/Chị trên diễn đàn cho em xin đoạn Code tính tổng theo chiều ngang điền vào cột cuối cùng có tên là Total với ạ. Cột Total không cố định do dữ liệu thay đổi theo ngày ạ. Em xin cảm ơn.

Trong khi chờ đợi code khác tốt hơn. hãy thử tham khảo đoạn code sau:

Sub TinhToTal()
Dim i&, Lr&, Cot&, Col&, Rng As Range

With Sheets("NG By Day")
Cot = .Cells(7, Columns.Count).End(xlToLeft).Column
Set Rng = .Range(.Cells(7, 1), .Cells(7, Cot))
Col = Application.WorksheetFunction.Match("Total", Rng, 0)
Lr = .Range("E" & Rows.Count).End(3).Row
.Range(.Cells(8, Col), .Cells(Lr, Col)).ClearContents
For i = 8 To Lr + 1
    Set Rng = .Range(.Cells(i, 6), .Cells(i, Col))
    .Cells(i, Col) = Application.WorksheetFunction.Sum(Rng)
Next i
End With

Set Rng = Nothing

End Sub