Viết code tính tổng

[NH_DK]

Em có 1 ví dụ nhỏ thế này A/C viết dùm em code tính tổng nhé!?

 

[khoavu87]

Em có 1 ví dụ nhỏ thế này A/C viết dùm em code tính tổng nhé!?

anh thử đoạn code này xem sao. ở đây em mặc định là dữ liệu cột d

Private Sub CommandButton1_Click()
  Dim rng As Range
  For Each rng In ActiveSheet.Range("d2", [d65536].End(xlUp)).Columns
  Dim tong As Double
  tong = 0
  Dim mycell As Range
  For Each mycell In rng.Cells
  tong = tong + Val(mycell.Offset(, 1).Value)
  Next mycell
  rng.Cells(rng.Rows.Count + 1, 2) = tong
  Next rng
End Sub

 

[SA_DQ]

Thêm 1 cách để dễ bề tham khảo

Option Explicit
Sub TinhTong()
 Dim WF, Rng As Range, eRw As Long
 
 eRw = [E65500].End(xlUp).Row
 Set Rng = Range([E2], Cells(eRw, "E"))
 Set WF = Application.WorksheetFunction
 If WF.Sum(Rng) = 2 * Cells(eRw, "E") Then
   MsgBox "Hình Nhu Da Cong Ròi!"
 Else
   Cells(eRw + 2, "E").Value = WF.Sum(Rng)
 End If
End Sub

 

[concogia]

Em có 1 ví dụ nhỏ thế này A/C viết dùm em code tính tổng nhé!?

Thử một cái code nhỏ cho ví dụ nhỏ

Public Sub tong()
[a100].End(xlUp).Offset(1, 4) = Application.WorksheetFunction.Sum(Range([a2], [a2].End(xlDown)).Offset(0, 4))
End Sub

 

[boyxin]

Em có 1 ví dụ nhỏ thế này A/C viết dùm em code tính tổng nhé!?

Thêm một phương án nhỏ cho những ví dụ nhỏ ( 2 in 1) dùng để tham khảo

Option Explicit
Sub ThanhTien()
Dim Tmp, WF, eRw As Long, i As Long
Set WF = Application.WorksheetFunction
    eRw = [A65500].End(xlUp).Row
    [E2].Resize(eRw).ClearContents: Tmp = [E2].Resize(eRw)
For i = 2 To eRw
    Tmp(i - 1, 1) = Cells(i, "C") * Cells(i, "D")
    Tmp(eRw, 1) = Tmp(eRw, 1) + Tmp(i - 1, 1)
Next
    [E2].Resize(eRw) = Tmp
End Sub