Tính tổng bằng VBA (1 người xem)

[vanmanhvcu]

Xin chào các anh/chị!
em có bài toán này
Một công ty có 2 cửa hàng A và b. cửa hàng A bán 8 chủng loại hàng với số lượng khác nhau, cửa hàng B bán 6 chủng loại hàng với số lượng khác nhau
em nghĩ mãi không viết được code tính tổng số lượng bán của từng cửa hàng
xin các anh/chị chỉ giúp
hình ảnh và file mẫu em gửi kèm
View attachment tinh tong.bmp

 

[VetMini]

pivot table với slice hoặc filter

 

[khuongvietphong]

Bạn chạy thử đoạn Code này:

Option Explicit
Sub tinh()
  Dim i As Long, tong As Long
  tong = 0
  For i = 15 To 2 Step -1
     If Cells(i, 2) = "" Then
            tong = tong + Cells(i, 3).Value
     Else
            Cells(i, 5) = tong + Cells(i, 3)
            tong = 0
     End If
 Next i
End Sub

 

[vanmanhvcu]

Bạn chạy thử đoạn Code này:

Option Explicit
Sub tinh()
  Dim i As Long, tong As Long
  tong = 0
  For i = 15 To 2 Step -1
     If Cells(i, 2) = "" Then
            tong = tong + Cells(i, 3).Value
     Else
            Cells(i, 5) = tong + Cells(i, 3)
            tong = 0
     End If
 Next i
End Sub

cám ơn bạn
nhưng mình muốn tại ô E2 và ô E10 là công thức dạng tổng
là E2: =sum(C2:c9) và E10:=sum(C10:C15)...
vì bảng dữ liệu của mình rất nhiều cửa hàng và số lượng chủng loại hàng mỗi cửa hàng lại khác nhau

 

[khuongvietphong]

cám ơn bạn
nhưng mình muốn tại ô E2 và ô E10 là công thức dạng tổng
là E2: =sum(C2:c9) và E10:=sum(C10:C15)...
vì bảng dữ liệu của mình rất nhiều cửa hàng và số lượng chủng loại hàng mỗi cửa hàng lại khác nhau

Thế thì làm bằng CT khỏi cần VBA

 

[vanmanhvcu]

Thế thì làm bằng CT khỏi cần VBA

thêm CT bằng tay thì nói làm gì !
ý mình là có thể dùng VBA để tự động thêm CT vào đó được không ??
mình có dữ liệu của hàng trăm cửa hàng mà điền tay CT chắc đến tết

 

[VetMini]

... hàng trăm cửa hàng mà điền tay CT chắc đến tết

Trời, làm việc với dữ liệu hàng trăm cửa hàng thì đâu phải là chức vụ bèo.
Cỡ này mà cũng phải than vãn nhờ viết code nữa sao.

 

[SA_DQ]

Mỗi năm cũng có nhiều cái Tết

Ý mình là có thể dùng VBA để tự động thêm CT vào đó được không ??
mình có dữ liệu của hàng trăm cửa hàng mà điền tay CT chắc đến tết

Bạn muốn có công thức thì lắp công thức cho bạn đây:

Option Explicit
Sub CongThucTinhTong()
 Dim Rws As Long, J As Long, W As Byte, Dg As Long
 Dim Arr()
 
 Rws = [C2].End(xlDown).Row
 Arr = [B2].Resize(Rws, 2).Value
 For J = Rws To 1 Step -1
    If Arr(J, 1) = "" Then
        W = W + 1
    ElseIf Arr(J, 1) <> "" Then
        Cells(J + 1, "E").FormulaR1C1 = "=Sum(RC[-2]:R[" & W & "]C[-2])"
        W = 0
    End If
 Next J
 Exit Sub
End Sub

 

[vanmanhvcu]

Bạn muốn có công thức thì lắp công thức cho bạn đây:

Option Explicit
Sub CongThucTinhTong()
 Dim Rws As Long, J As Long, W As Byte, Dg As Long
 Dim Arr()
 
 Rws = [C2].End(xlDown).Row
 Arr = [B2].Resize(Rws, 2).Value
 For J = Rws To 1 Step -1
    If Arr(J, 1) = "" Then
        W = W + 1
    ElseIf Arr(J, 1) <> "" Then
        Cells(J + 1, "E").FormulaR1C1 = "=Sum(RC[-2]:R[" & W & "]C[-2])"
        W = 0
    End If
 Next J
 Exit Sub
End Sub

đúng ý mình cần
cám ơn bạn HYen17