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

[naruto179]

Nhờ ACE viết code tính tổng tự động giống file đính kèm

 

[ndu96081631]

Nhờ ACE viết code tính tổng tự động giống file đính kèm

Cái này dùng công thức bình thường (SUM kết hợp với SUBTOTAL) cũng ra chứ cần gì code

 

[Let'GâuGâu]

Nhờ ACE viết code tính tổng tự động giống file đính kèm

đòi code có code luôn...hehehehhee

Sub Macro1()
Dim arr As Variant, kq(), i, j As Long
arr = Sheet1.[a2].Resize(Sheet1.[b2].End(xlDown).Row - 1, 5).Value
For i = UBound(arr) To 1 Step -1
If Not IsEmpty(arr(i, 1)) Then
    arr(i, 5) = TONG
    TONG = 0
Else
    TONG = TONG + arr(i, 5)
End If
Next

Sheet1.[a2].Resize(Sheet1.[b2].End(xlDown).Row - 1, 5).Value = arr


End Sub

 

[ChanhTQ@]

Bạn chạy macro này xem:

 Option Explicit
Sub Tinh()
 Dim Rng As Range, Cls As Range
 Dim lRw As Long
  
 lRw = Cells(Rows.Count, "B").End(xlUp).Row
 With Cells(lRw, "a")
    .Value = "GPE.COM"
    Set Rng = Range([A2], .Offset()).SpecialCells(xlCellTypeConstants, 1)
 End With
 For Each Cls In Rng
    If Cls.Offset(1).Value = "" Then
        lRw = Range(Cls, Cls.End(xlDown)).Rows.Count - 2
        Cls.Offset(, 4).FormulaR1C1 = "=Sum(R[1]C:R[" & lRw & "]C)"
    End If
 Next Cls
 Cells(Rows.Count, "A").End(xlUp).Value = ""
End Sub

 

[naruto179]

Cám ơn các anh.
Nhưng giờ e cũng có file như trên nhưng em muốn viết code tính tổng nhưng bằng công thức sum và hiện công thức đó tại các ô tính tổng.
Nhờ các ACE viết code giúp em nhé.
P/S: Do em tính Sum nhiều nhưng hay bị sót hàng Sum nên đành nhờ các anh viết code để em không bị sót và thực hiện cũng nhanh hơn.

 

[Let'GâuGâu]

Cám ơn các anh.
Nhưng giờ e cũng có file như trên nhưng em muốn viết code tính tổng nhưng bằng công thức sum và hiện công thức đó tại các ô tính tổng.
Nhờ các ACE viết code giúp em nhé.
P/S: Do em tính Sum nhiều nhưng hay bị sót hàng Sum nên đành nhờ các anh viết code để em không bị sót và thực hiện cũng nhanh hơn.

đã có 2 bài code rồi đó đại ca, kiểm tra đi rồi trả lời có xài được không?
còn cthức thì làm như vậy

E2=2*SUBTOTAL(109,E3:E$15)-SUM(E3:$E$15)

chọn toàn bộ vùng A1:E15 rồi filter
ở filter cột A, gở bỏ cái tick "blank" đi
rồi kéo công thức ô E2 xuống

 

[ndu96081631]

đã có 2 bài code rồi đó đại ca, kiểm tra đi rồi trả lời có xài được không?
còn cthức thì làm như vậy

E2=2*SUBTOTAL(109,E3:E$15)-SUM(E3:$E$15)

chọn toàn bộ vùng A1:E15 rồi filter
ở filter cột A, gở bỏ cái tick "blank" đi
rồi kéo công thức ô E2 xuống

Dạng bài này đã hỏi nhiều lần trên diễn đàn rồi. Công thức của bạn chắc ra kết quả đúng nhưng tui e người ta hổng chịu
Đoán: Cái người ta muốn là sao khi bấm nút chạy code, cell E2 sẽ tự động có công thức =SUM(E3:E6), cell E8 tự động có công thức =SUM(E9:E11) ... vân vân...
Vậy đấy

 

[concogia]

.....
Đoán: Cái người ta muốn là sao khi bấm nút chạy code, cell E2 sẽ tự động có công thức =SUM(E3:E6), cell E8 tự động có công thức =SUM(E9:E11) ... vân vân...
Vậy đấy

Mình nghĩ cái "đoán" này.......trúng 100%
Nhưng trong bài [A7] có số thứ tự ==> phải tính tổng mà [A8] cũng có số thứ tự nên cũng phải tính tổng, vậy [E7] tính làm sao ( mà sổ 2 trong cell [E7] ở đâu ra vậy?)
Híc, dạng bài này hình như có cả đống trên diễn đàn rồi hay sao í

 

[naruto179]

Mình nghĩ cái "đoán" này.......trúng 100%
Nhưng trong bài [A7] có số thứ tự ==> phải tính tổng mà [A8] cũng có số thứ tự nên cũng phải tính tổng, vậy [E7] tính làm sao ( mà sổ 2 trong cell [E7] ở đâu ra vậy?)
Híc, dạng bài này hình như có cả đống trên diễn đàn rồi hay sao í

Ý em như của a ndu96081631 nói đó. Còn [A7] và [A8] có số thứ tự thì [E7] bỏ qua. Rất mong các anh giúp.

 

[Ba Tê]

Ý em như của a ndu96081631 nói đó. Còn [A7] và [A8] có số thứ tự thì [E7] bỏ qua. Rất mong các anh giúp.

Sub bài #4 chưa đúng yêu cầu của bạn sao?

 

[naruto179]

giờ chạy code mới ra kết quả. Thanks các anh nhiều.