dungluyen2119
Thành viên mới

- Tham gia
- 24/3/23
- Bài viết
- 18
- Được thích
- 9
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à.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 ạ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ờ
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.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à.
Trong khi chờ đợi code khác tốt hơn. hãy thử tham khảo đoạn code sau: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.
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