Tính tổng 1 cột của Sheet1 trả kết qua vào 1 ô của Sheet2 (1 người xem)

[Cuongnv0920]

Mình đã tính tổng của cột A của sheet1 và trả kết quả vào ô B1 của Sheet1 luôn

sub ting_tong()
dim kq As worksheet
set kq = worksheets("sheet1")
kq.cells(1, 2).Formula = "=sum(A:A)"
End sub

nhưng giờ mình muốn tính tổng cột A của sheet1 và trả kết qua về ô B1 của sheet2 thì làm thế nào ak
mong các bạn giúp đỡ.

 

[♫ђöล♥ßล†♥†µ♫]

Mình đã tính tổng của cột A của sheet1 và trả kết quả vào ô B1 của Sheet1 luôn

sub ting_tong()
dim kq As worksheet
set kq = worksheets("sheet1")
kq.cells(1, 2).Formula = "=sum(A:A)"
End sub

nhưng giờ mình muốn tính tổng cột A của sheet1 và trả kết qua về ô B1 của sheet2 thì làm thế nào ak
mong các bạn giúp đỡ.

Bạn thử như thế này xem

Sub ting_tong()
Sheets("Sheet2").Range("B1").Formula = "=SUM(Sheet1!A:A)"
End Sub

 

[Cuongnv0920]

Bạn thử như thế này xem

Sub ting_tong()
Sheets("Sheet2").Range("B1").Formula = "=SUM(Sheet1!A:A)"
End Sub

xin cám ơn bác nhiều
mình thử và đã được.