Tính hàm sum các dòng khi có điều kiện sẽ thay đổi và tính sum cột tiếp theo (1 người xem)

[LuongVanHieu]

Hiện tại mình có file excel như sau: dulieu
Mình muốn dùng macros để tính tổng loại 1, loại 2, loại 3....
Vì file có khá nhiều Loại và việc phân loại lại dựa vào ngẫu nhiên
Mong các bác pro giúp đỡ mình code VBA tính sum khi nó đến dòng tiếp theo sẽ dừng không sum nữa và thực hiện sum tiếp theo!

 

[huuthang_bd]

Hiện tại mình có file excel như sau: dulieu
Mình muốn dùng macros để tính tổng loại 1, loại 2, loại 3....
Vì file có khá nhiều Loại và việc phân loại lại dựa vào ngẫu nhiên
Mong các bác pro giúp đỡ mình code VBA tính sum khi nó đến dòng tiếp theo sẽ dừng không sum nữa và thực hiện sum tiếp theo!

D2=IF(A2="","",SUMPRODUCT(C3:$D$16*{1,-1}))

Copy cho cả cột.

 

[LuongVanHieu]

D2=IF(A2="","",SUMPRODUCT(C3:$D$16*{1,-1}))

Copy cho cả cột.

Mình đã làm code đúng thế nhưng nó báo lỗi
Với lại anh có thể giúp em viết 1 VBA phục vụ nó không

 

[huuthang_bd]

Mình đã làm code đúng thế nhưng nó báo lỗi
Với lại anh có thể giúp em viết 1 VBA phục vụ nó không

Bạn sửa lại vầy thử

=IF(A2="",0,SUMPRODUCT(C3:$D$16*{1,-1}))

 

[phulien1902]

Hiện tại mình có file excel như sau: dulieu
Mình muốn dùng macros để tính tổng loại 1, loại 2, loại 3....
Vì file có khá nhiều Loại và việc phân loại lại dựa vào ngẫu nhiên
Mong các bác pro giúp đỡ mình code VBA tính sum khi nó đến dòng tiếp theo sẽ dừng không sum nữa và thực hiện sum tiếp theo!

Bạn thử:

Sub abc()
    Dim i As Long, tong As Long
    tong = 0
   For i = Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1
        If Cells(i, 1) = "" Then
            tong = tong + Cells(i, 3).Value
        Else
            Cells(i, 4) = tong + Cells(i, 3)
            tong = 0
        End If
    Next i
End Sub

 

[LuongVanHieu]

Bạn thử:

Sub abc()
    Dim i As Long, tong As Long
    tong = 0
   For i = Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1
        If Cells(i, 1) = "" Then
            tong = tong + Cells(i, 3).Value
        Else
            Cells(i, 4) = tong + Cells(i, 3)
            tong = 0
        End If
    Next i
End Sub

Cám ơn bác nó thật là hiệu quả
Nhưng mình muốn là nó hiện ra công thức sum ở đó liêu có được không?
Mục đích mình cần nó hiện luôn hàm sum ở dấy

 

[PacificPR]

Cám ơn bác nó thật là hiệu quả
Nhưng mình muốn là nó hiện ra công thức sum ở đó liêu có được không?
Mục đích mình cần nó hiện luôn hàm sum ở dấy

Cho em góp vui với 1 code.

Sub Tinhtong()
    Dim i As Long, Er As Long, Et As Long
Er = Sheet1.Range("B65535").End(3).Row
Et = Er
For i = Er To 2 Step -1
    If Range("C" & i) = Empty Then
        Range("D" & i) = "=Sum(C" & i + 1 & ":C" & Et & ")"
        Et = i - 1
    End If
Next i
End Sub

 

[huuthang_bd]

Bài này làm thủ công cũng được nữa

 

[ngoctinh87]

Hiện tại mình có file excel như sau: dulieu
Mình muốn dùng macros để tính tổng loại 1, loại 2, loại 3....
Vì file có khá nhiều Loại và việc phân loại lại dựa vào ngẫu nhiên
Mong các bác pro giúp đỡ mình code VBA tính sum khi nó đến dòng tiếp theo sẽ dừng không sum nữa và thực hiện sum tiếp theo!

xem file có dùng được không? mình làm thêm cột phụ

 

[LuongVanHieu]

Bài này làm thủ công cũng được nữa

Thủ công như thế nào bác!

 

[LuongVanHieu]

Cho em góp vui với 1 code.

Sub Tinhtong()
    Dim i As Long, Er As Long, Et As Long
Er = Sheet1.Range("B65535").End(3).Row
Et = Er
For i = Er To 2 Step -1
    If Range("C" & i) = Empty Then
        Range("D" & i) = "=Sum(C" & i + 1 & ":C" & Et & ")"
        Et = i - 1
    End If
Next i
End Sub

Cám ơn bác cái này rất khả dụng

 

[quocgiacan]

Thủ công; rất khả dụng

"Thủ công": làm bằng tay, tức thay vì làm công thức hay VBA bạn có thể quệt từng đoạn bằng SUM()
"khả dụng": có thể dùng được, "rất khả dụng": rất có thể dùng, tức ý: có sự tùy chọn xài hay không cũng được

Lẽ ra ý của câu phải là: "Cám ơn bác cái này rất hữu dụng" tức báo cho người làm ra biết rằng: đoạn code rất có ích.

 

[LuongVanHieu]

"Thủ công": làm bằng tay, tức thay vì làm công thức hay VBA bạn có thể quệt từng đoạn bằng SUM()
"khả dụng": có thể dùng được, "rất khả dụng": rất có thể dùng, tức ý: có sự tùy chọn xài hay không cũng được

Lẽ ra ý của câu phải là: "Cám ơn bác cái này rất hữu dụng" tức báo cho người làm ra biết rằng: đoạn code rất có ích.

Cám ơn bác góp ý
Nhưng xin bác cho em hỏi khả dụng là không có ích ah?
Bác văn hay như nghề viết báo vậy
Có thể viết thêm vài cái code giúp em đi

 

[quocgiacan]

Cám ơn bác góp ý
Nhưng xin bác cho em hỏi khả dụng là không có ích ah?
Bác văn hay như nghề viết báo vậy
Có thể viết thêm vài cái code giúp em đi

Tôi thuộc thế hệ còn bị ảnh hưởng bởi tiếng Hán Việt, nên chữ được chữ không, nhưng chữ nào 'vào bụng' rồi thì dùng đúng nơi đúng chỗ.

Theo ý riêng của tôi, tôi thích dùng hàm theo bài #4 của anh @huuthang_bd.
Riêng VBA thì đã có hai bạn @phulien1902 và @PacificPR gửi cho bạn rồi còn chi bằng!?

Chúc bạn ngày vui

 

[huuthang_bd]

"Thủ công": làm bằng tay, tức thay vì làm công thức hay VBA bạn có thể quệt từng đoạn bằng SUM()
"khả dụng": có thể dùng được, "rất khả dụng": rất có thể dùng, tức ý: có sự tùy chọn xài hay không cũng được

Lẽ ra ý của câu phải là: "Cám ơn bác cái này rất hữu dụng" tức báo cho người làm ra biết rằng: đoạn code rất có ích.

Ý tôi không phải như cái đoạn đo đỏ đó đâu bạn .
Tải video lên mà mạng chậm quá tải không được nên tôi mô tả cách làm vậy.

• Chọn các ô trống trong vùng C3:C17 (Go to - Special... - Blanks)
• Alt + =
  
• Thay '=' thành '_'
• D2=VLOOKUP("_*",C3:C$17,1,0)
• Copy D2 cho cột D của những dòng có cột A khác rỗng
• Copy - paste value cột D và thay '_' thành '='
• Xóa dữ liệu tạm ở cột C (Replace '_*' hoặc filter rồi xóa)

 

[PacificPR]

Tôi thuộc thế hệ còn bị ảnh hưởng bởi tiếng Hán Việt, nên chữ được chữ không, nhưng chữ nào 'vào bụng' rồi thì dùng đúng nơi đúng chỗ.

Theo ý riêng của tôi, tôi thích dùng hàm theo bài #4 của anh @huuthang_bd.
Riêng VBA thì đã có hai bạn @phulien1902 và @PacificPR gửi cho bạn rồi còn chi bằng!?

Chúc bạn ngày vui

Em bị lố rồi anh ơi

 

[LuongVanHieu]

Cho em góp vui với 1 code.

Sub Tinhtong()
    Dim i As Long, Er As Long, Et As Long
Er = Sheet1.Range("B65535").End(3).Row
Et = Er
For i = Er To 2 Step -1
    If Range("C" & i) = Empty Then
        Range("D" & i) = "=Sum(C" & i + 1 & ":C" & Et & ")"
        Et = i - 1
    End If
Next i
End Sub

Nhờ bác thêm một tý nữa là
Các dòng của em có mấy số liệu bằng 0 nó cũng bị tính tổng ở đó
Thực tế cái dòng TT bên ngoài cùng là dòng để ngắt để tính tổng

 

[PacificPR]

Nhờ bác thêm một tý nữa là
Các dòng của em có mấy số liệu bằng 0 nó cũng bị tính tổng ở đó
Thực tế cái dòng TT bên ngoài cùng là dòng để ngắt để tính tổng

Bạn thay dòng if range("C"&i) =Empty then thành if range("A"&i) =Empty then thử xem sao

 

[huuthang_bd]

Bạn thay dòng if range("C"&i) =Empty then thành if range("A"&i) =Empty then thử xem sao

range("A"&i) <> Empty chứ

 

[LuongVanHieu]

Cuối cùng đã chỉnh sửa xong. Cám ơn các bác đã giúp đỡ
Sau này em còn nhờ vả nhiều. Có gì không đúng mong các bác bỏ qua
Em muốn hỏi thêm tý:
Em có vài cái VBA cần dùng cho file mà không muốn mỗi lần dùng đều copy vào trong excel
Mà muốn cho nó có 1 list riêng mỗi lúc dùng chỉ cần add vào và dùng là được thì làm thế nào ah?