Đặt công thức SUM vào vị trí cuối cùng của cột cần tính tổng

[yenbai]

em muốn tính tổng của Jx:Jy của một cột các bác hộ em code với, làm thế nào mà biết được để em tính cho cái .Formula = "=SUM(Jx:Jy)" vào vị trí cuối cùng của cột cần tính tổng.

 

[ndu96081631]

em muốn tính tổng của Jx:Jy của một cột các bác hộ em code với, làm thế nào mà biết được để em tính cho cái .Formula = "=SUM(Jx:Jy)" vào vị trí cuối cùng của cột cần tính tổng.

Y là dòng cuối cùng có dử liệu rồi.. thế còn X bằng bao nhiêu?
Tôi giả sử X = 3 nha, tức cell đầu tiên là J3 ---> Vậy code để chèn công thức tổng vào cell cuối cùng là:

Sub TinhTong()
  Range("J65536").End(xlUp).Offset(1) = "=SUM(R3C:R[-1]C)"
End Sub

 

[SA_DQ]

Bạn thích cách nào trong 2 cách sau:

Option Explicit
Sub Macro1() 'Cong tren Cot 'B'
'Cach 1, Ghi Gia Tri Tai "C" 
   [B65500].End(xlUp).Offset(1, 1) = Application.WorksheetFunction.Sum(Range([b1], _
             [b1].End(xlDown)))
'Cach 2, Ghi Cong Thuc Tai Dong Cuoi Cot "B"'
   Dim eRw As Long
   [B65500].End(xlUp).Offset(1).Select
   eRw = Selection.Row
   ActiveCell.FormulaR1C1 = "=SUM(R[" & (1 - eRw) & "]C:R[-1]C)"
   Selection.Offset(, 1).Select

End Sub

 

[anhchangnhaque1552000]

em muốn tính tổng của Jx:Jy của một cột các bác hộ em code với, làm thế nào mà biết được để em tính cho cái .Formula = "=SUM(Jx:Jy)" vào vị trí cuối cùng của cột cần tính tổng.

Bạn muốn tính tổng tại ô cuối cùng của cột J. Bạn có thể tìm dòng cuối cùng và dòng cuối cùng +1 là dòng mà bạn cần đặt công thức.
Ví dụ: dữ liệu từ J2:Jx
Bạn làm như sau:

'

Private Sub CommandButton1_Click()
hang = Range("J2").End(xlDown).Row
Range("j" & hang + 1).Select
ActiveCell.FormulaR1C1 = "=sum(R2C:R[-1]C)"
End Sub

Nhưng cách này chỉ áp dụng cho dữ liệu từ đến cuối không rỗng thôi.
Chúc bạn may mắn

 

[quochuy86]

Cho em hỏi tý: "R2C:R[-1]C" đoạn code trên có ý nghĩa gì ạh, R, C ở đây có ý nghĩa là gì vậy.

 

[MinhNguyệt]

Cho em hỏi tý: "R2C:R[-1]C" đoạn code trên có ý nghĩa gì ạh, R, C ở đây có ý nghĩa là gì vậy.

R là Row, C là Column
"=sum(R2C:R[-1]C)" là tính tổng tại cột cần tính bắt đầu từ hàng thứ 2 đến hàng ngay phía trên ô cần tính tổng

 

[sealand]

To Quochuy: Bạn không quen công thức R1C1 thì tham khảo code của mình (Cơ bản là code của các bạn ấy, mình chuyển thôi):

Private Sub cong()
'O tieu de cot J la J5
hg = Sheet7.[j6].End(xlDown).Row
Sheet7.Range("J" & hg + 1).Formula = "=Sum(J6:J" & hg & ")"
End Sub

From QuôcHuy86:
oh công thức của bạn dễ hiểu quá. Thấy công thức ở trên nhìn rối và khó hiểu quá.
Thanks mọi người nha
Thân

 

[Hai Lúa Miền Tây]

to: sealand
oh công thức của bạn dễ hiểu quá. Thấy công thức ở trên nhìn rối và khó hiểu quá.
Thanks mọi người nha
Thân

Xin lỗi cho mình spam tí

To quochuy86: Lần sau nếu muốn cám ơn bạn chỉ cần click vào nút ở góc phải bài trả lời nhé, vừa nhanh vừa gọn, vừa làm hài lòng người giúp.