Sửa đoạn code tính và diễn giải khối lượng

[tuan16]

em xin chào các anh chị trong diễn đàn. Hiện tại đoạn code trong file tại sheet "Công Trình" tại cột P ví dụ như ô P7 đang chạy code ra công thức là ROUND(SUM(O7:O12);3). Em muốn sửa lại đoạn code trong file để ô P7 chạy ra công thức là =ROUND(SUBTOTAL(109;O8:O13);3) thì mình sửa như nào ạ.. Em xin nhờ các anh chị giúp ạ

 

[vu_tuan_manh_linh]

Sửa chỗ này nhé bạn

Private Sub GanCongThucTongKhoiLuong(ByRef shCT As Worksheet, ByRef Dong As Long, ByRef KT As Long)
.....

'sua cho nay
    Cell.Formula = "=Round(SUBTOTAL(109," & TenCotKLCK & DongCT & ":" & TenCotKLCK & Dong2 & ")," & TronKL & ")"
........
End Sub

Nhân tiện, bạn tìm trên diễn đàn đoạn code tăng tốc nhé, code bạn chạy giật quá, có hơn trăm dòng mà chạy lâu bà cố luôn.

 

[tuan16]

Sửa chỗ này nhé bạn

Private Sub GanCongThucTongKhoiLuong(ByRef shCT As Worksheet, ByRef Dong As Long, ByRef KT As Long)
.....

'sua cho nay
    Cell.Formula = "=Round(SUBTOTAL(109," & TenCotKLCK & DongCT & ":" & TenCotKLCK & Dong2 & ")," & TronKL & ")"
........
End Sub

Nhân tiện, bạn tìm trên diễn đàn đoạn code tăng tốc nhé, code bạn chạy giật quá, có hơn trăm dòng mà chạy lâu bà cố luôn.c

Sửa chỗ này nhé bạn

Private Sub GanCongThucTongKhoiLuong(ByRef shCT As Worksheet, ByRef Dong As Long, ByRef KT As Long)
.....

'sua cho nay
    Cell.Formula = "=Round(SUBTOTAL(109," & TenCotKLCK & DongCT & ":" & TenCotKLCK & Dong2 & ")," & TronKL & ")"
........
End Sub

Nhân tiện, bạn tìm trên diễn đàn đoạn code tăng tốc nhé, code bạn chạy giật quá, có hơn trăm dòng mà chạy lâu bà cố luôn.

cảm ơn anh đã giúp em ạ