Sao phải "cực khổ" vậy? Nếu bạn dùng chức năng List thì khỏi làm gì ráo ---> Dòng tổng luôn tự động dịch chuyển xuống dưới và công thức SUM sẽ tự Update
Option Explicit
Sub Macro1()
Dim Rw As Long
With [D65500].End(xlUp).Offset(1)
Rw = .Row - 5
.Value = "Total"
.Offset(, 4).FormulaR1C1 = "=SUM(R[-" & Rw & "]C:R[-1]C)"
End With
End SubBấm lần đầu ---> Được 1 dòng tổng
Thưa thầy ndu chức năng List thì em biết. Thầy xem file đính kèm giúp em. sau khi em lấy những thiết bị cần thiết từ sheet2 sang sheet3 thì em chỉ cần ấn nút tính tổng thì tự động nó tính tổng luôn. Sau đó em lại lấy dữ liệu sang tiếp vẫn vào sheet3 đó nhưng dưới hàng tính tổng vừa làm sau khi đã lấy tiếp dữ liệu sang thì em chỉ cần ấn nút tính tổng thì nó lại tính tổng những thiết bị mới nhập vào. Thầy giúp em nha. Em cám ơn thầy.
File đó đã có code đưa dữ liệu sang sheet3 rồi thầy ạ. Bên sheet2 nếu muốn lấy thiết bị nào em chỉ cần gõ "X" vào cột "lựa chọn TB" và điền số lượng vào cột "số lượng" là tự động dữ liệu được chọn sẽ đưa sang sheet3. Nhưng em muốn sau khi chọn xong hết các thiết bị em ấn nút "tính tổng" thì tự động nó tính tổng luôn những thiết bị mà mình vừa lựa chọn. Sau đó em lại chọn thiết bị tiếp sau khi chọn xong lại ấn nút "tính tổng" thì tự động nó lại tính tổng các thiết bị mới vừa chọn. Thầy giúp em nha. Em cám ơn thầy. Chúc thầy cuối tuần vui vẻ.
Option Explicit
Private Sub CommandButton1_Click()
Dim Sh As Worksheet, rW As Long, eRw As Long
Set Sh = Sheet3
eRw = Sh.[F65500].End(xlUp).Row
rW = eRw - Sh.Cells(eRw, "D").End(xlUp).Row + 1
If rW < 4 Then rW = 1
With Sh.Cells(eRw, "F").Offset(1)
.FormulaR1C1 = "=SUM(R[-" & rW & "]C:R[-1]C)"
.Font.Bold = True
End With
End Sub[B]Private Sub Worksheet_Change(ByVal Target As Range)[/B]
Dim ECll As Range
If Intersect(Target, Union([g:g], [m:m], [s:s], [y:y], [ae:ae])) Is Nothing Or _
WorksheetFunction.CountA(Target) = 0 Then Exit Sub
Set ECll = Sheet3.[F6000].End(xlUp)(2).Offset(, -4)
With Sheet3.Range(ECll.Address)
.Resize(, 3) = Target(1, -3).Resize(, 3).Value
.Offset(, 3) = Target
.Offset(, 4) = "=if(rc[-2]=0,0,rc[-2]*rc[-1])"
End With
[B]End Sub[/B]
Vẫn chưa đúng ý mình bạn ạ. Ý mình là muốn sau khi chọn xong hết các thiết bị em ấn nút "tính tổng" thì tự động nó tính tổng luôn những thiết bị mà mình vừa lựa chọn. Sau đó em lại chọn thiết bị tiếp sau khi chọn xong lại ấn nút "tính tổng" thì tự động nó lại tính tổng các thiết bị mới vừa chọn.Chú í: Để khỏi chép đè lần sau lên lần trước, mình đã sửa macro của bạn như dưới đây:PHP:Option Explicit Private Sub CommandButton1_Click() Dim Sh As Worksheet, rW As Long, eRw As Long Set Sh = Sheet3 eRw = Sh.[F65500].End(xlUp).Row rW = eRw - Sh.Cells(eRw, "D").End(xlUp).Row + 1 If rW < 4 Then rW = 1 With Sh.Cells(eRw, "F").Offset(1) .FormulaR1C1 = "=SUM(R[-" & rW & "]C:R[-1]C)" .Font.Bold = True End With End Sub
Bạn thử lại xem sao!Mã:[B]Private Sub Worksheet_Change(ByVal Target As Range)[/B] Dim ECll As Range If Intersect(Target, Union([g:g], [m:m], [s:s], [y:y], [ae:ae])) Is Nothing Or _ WorksheetFunction.CountA(Target) = 0 Then Exit Sub Set ECll = Sheet3.[F6000].End(xlUp)(2).Offset(, -4) With Sheet3.Range(ECll.Address) .Resize(, 3) = Target(1, -3).Resize(, 3).Value .Offset(, 3) = Target .Offset(, 4) = "=if(rc[-2]=0,0,rc[-2]*rc[-1])" End With [B]End Sub[/B]
Mình thử file đính kèm của bạn rồi. Lần tính tổng đầu tiên thì đúng. Các lần sao nó chỉ tính tổng ô trên nó 1 hàng thôi cậu ạ. Cậu giúp mình lần nữa nhé. Cám ơn cậu rất nhiều.
Bạn xem lại giúp mình nha. Hay là máy chỗ mình bị lỗi.
Bạn HYen17 thân mến. Bạn đã xem lại những chữ mình bôi màu đỏ chưa? Chắc là tại máy chỗ mình à. Vậy nhờ bạn nào đó thử giúp mình và cho ý kiến nha. Bạn thông cảm giúp mình vì có thể máy chỗ mình bị lỗi. Chúc bạn luôn vui vẻ.Thân ái!
Đúng đó bạn máy mình cũng chỉ tính tổng có 1 dòng cuối cùng thôi. Còn ý mình là nó phải tính tổng của tất cả các thiết bị mới vừa chọn. Ví dụ nếu chọn 3 thiết bị thì khi ấn nút tính tổng thì nó phải tính tổng 3 thiết bị mới vừa chọn đó. Còn file của bạn HYen17 mình đã thử rồi nhưng nó chỉ tính tổng 1 hàng cuối cùng thôi. Mong bạn HYen17 làm lại giúp mình với. Cám ơn bạn nhiều lắm. Chúc bạn luôn vui.
[COLOR=Silver]Option Explicit
[B]Private Sub CommandButton1_Click()[/B]
Dim Sh As Worksheet, rW As Long, eRw As Long
Set Sh = Sheet3
eRw = Sh.[F65500].End(xlUp).Row
[/COLOR] With Sh.Cells(eRw, "D")
If .Offset(-1).Value = "" Then
rW = 1
Else
rW = eRw - .End(xlUp).Row + 1
End If
End With
[COLOR=Silver] With Sh.Cells(eRw, "F").Offset(1)
.FormulaR1C1 = "=SUM(R[-" & rW & "]C:R[-1]C)"
.Font.Bold = True
End With
[B]End Sub[/B][/COLOR]Đúng rồi cám ơn bạn nhiều lắm. Chúc cả nhà cuối tuần vui vẻ, hạnh phúc.
