Tính tổng bằng VBA (1 người xem)

[huynhphucduy71]

Anh chị cao nhân xem giúp e đoạn code này có gì sai không sao nó lại hoạt động không ổn định ạ. khi thì đúng khi thì toàn cho ra kết quả =0 trong khi e kiểm tra các thành phần k1,k2, number.. đều cho ra số đúng ạ

OPERATINGTIME.Caption = Application.WorksheetFunction.Sum(Range(Cells(k1.Row, k2.column), Cells(NumberOfDay, k2.column)))

em cảm ơn

Bài đã được tự động gộp: 25/3/20

numberofday là 1 biến e đặt thôi ạ

 

[HieuCD]

Anh chị cao nhân xem giúp e đoạn code này có gì sai không sao nó lại hoạt động không ổn định ạ. khi thì đúng khi thì toàn cho ra kết quả =0 trong khi e kiểm tra các thành phần k1,k2, number.. đều cho ra số đúng ạ

OPERATINGTIME.Caption = Application.WorksheetFunction.Sum(Range(Cells(k1.Row, k2.column), Cells(NumberOfDay, k2.column)))

em cảm ơn

Bài đã được tự động gộp: 25/3/20

numberofday là 1 biến e đặt thôi ạ

Có thể
with sheets("tensheetdulieu")
OPERATINGTIME.Caption = Application.WorksheetFunction.Sum(.Range(.Cells(k1.Row, k2.column), .Cells(NumberOfDay, k2.column)))
end with

 

[huynhphucduy71]

Có thể
with sheets("tensheetdulieu")
OPERATINGTIME.Caption = Application.WorksheetFunction.Sum(.Range(.Cells(k1.Row, k2.column), .Cells(NumberOfDay, k2.column)))
end with

Cảm ơn a nhé. E thêm vào chạy ok luôn