Tính Tổng Một Cột Trong EXCel với vba, mong mọi người giúp mình với? (1 người xem)

[andinh89]

Mình đang làm một Form bảng tính lương trong đó có một cột Lương hiệu quả từng NV= (Tổng quỹ lương /Tổng lương ngày công của các nhân viên)* Tiền ngày công từng nhân viên


Trên Form mình viết những texbox nhập liệu vào excel nhưng làm sao lấy được giá trị tổng của một cột ?

Giúp mình với

 

[Quang_Hải]

Mình đang làm một Form bảng tính lương trong đó có một cột Lương hiệu quả từng NV= (Tổng quỹ lương /Tổng lương ngày công của các nhân viên)* Tiền ngày công từng nhân viên
View attachment 124161

Trên Form mình viết những texbox nhập liệu vào excel nhưng làm sao lấy được giá trị tổng của một cột ?

Giúp mình với

Thì bạn cứ lấy giá trị của những textbox đó cộng lại với nhau sẽ là tổng (theo toán học thì tổng là vậy đó)

 

[andinh89]

Bạn ơi như z không được trừ khi đưa vào vòng lập trong mảng, vì mh đâu nhập liên tiếp mình tìm được một hàm tính tổng nhưng mình không truyền được giá trị
Mình mới tìm hiểu VBA được mấy ngày không hiểu sâu được mà đòi hỏi mh phải viêt xong cái form nhập liệu này...

code nè các bạn xem giùm

Sub addSums()


Dim lstRow As Integer
With Excel.ThisWorkbook.Sheets("DATA")


lstRow = .Cells(.Rows.Count, 1).End(Excel.xlUp).Row


Dim j As Integer
For j = 1 To .Cells(1, .Columns.Count).End(Excel.xlToLeft).Column
.Cells(lstRow + 1, j) = "=SUM(R[-" & lstRow - 1 & "]C:R[-1]C)"
.Cells(lstRow + 1, j).Font.Bold = True
Next j


End With


End Sub

 

[chuot0106]

Bạn ơi như z không được trừ khi đưa vào vòng lập trong mảng, vì mh đâu nhập liên tiếp mình tìm được một hàm tính tổng nhưng mình không truyền được giá trị
Mình mới tìm hiểu VBA được mấy ngày không hiểu sâu được mà đòi hỏi mh phải viêt xong cái form nhập liệu này...

code nè các bạn xem giùm

Sub addSums()


Dim lstRow As Integer
With Excel.ThisWorkbook.Sheets("DATA")


lstRow = .Cells(.Rows.Count, 1).End(Excel.xlUp).Row


Dim j As Integer
For j = 1 To .Cells(1, .Columns.Count).End(Excel.xlToLeft).Column
.Cells(lstRow + 1, j) = "=SUM(R[-" & lstRow - 1 & "]C:R[-1]C)"
.Cells(lstRow + 1, j).Font.Bold = True
Next j


End With


End Sub

Bạn nên gửi File nên!

 

[andinh89]

Bạn ơi Xem Giùm mình tính tổng cột Lương Ngày Công
Bạn xem File đình kèm

Bấm nút ở Sheet NHAPLIEU Form xuất hiện bạn nhé