Sao kg dùng ct subtotal mà phải viết code.Xin hộ em về tính tổng theo các thành phần (tính tổng cột C theo số thứ tự công việc ở cột A).
Do em chưa biết nhiều, ví dụ có vẻ hơi "Ngố", mong các thày giúp.
Sub TinhTong()
Dim endR&, i&, sotien As Double
Dim Arr()
With Sheet1
'Xac dong cell cuoi co du lieu o cot C tu dong 65000 - dau'
endR = .Cells(65000, 3).End(xlUp).Row
'Gan vao array cot can tinh'
Arr = .Range("A2:C" & endR).Value
End With
'Dung vong lap' UBound(Arr)= so dong cua arr
For i = UBound(Arr) To 1 Step -1 'duyt tu duoi len
If Len(Arr(i, 1)) > 0 Then 'ie o nay chua co gi
Arr(i, 3) = sotien 'gan vao C
sotien = 0
Else
sotien = sotien + Arr(i, 3)
End If
Next i
'gán vào
With Sheet1
.[A2].Resize(UBound(Arr), 3) = Arr
End With
Erase Arr
End Sub
Cách dễ nhất là duyệt từ dưới lên trên đồng thời cộng dồn vào 1 biến tạmXin hộ em về tính tổng theo các thành phần (tính tổng cột C theo số thứ tự công việc ở cột A).
Do em chưa biết nhiều, ví dụ có vẻ hơi "Ngố", mong các thày giúp.
Sub Test()
Dim Rng As Range, i As Long, Tmp As Double
Set Rng = Range("C2:C10")
For i = Rng.Rows.Count To 1 Step -1
Tmp = Tmp + Rng(i).Value
If Rng(i) = "" Then Rng(i) = Tmp: Tmp = 0
Next
End SubCách đó em tự làm được ah, nhưng em mới học VBA nên chưa biết làm theo cách này ah.
Thưa thày, em đã bắt đầu hơi hiểu rồi, có phải cái bôi xanh hàm ý là đến đây thì những phần tính tạm cộng dồn được bao nhiêu vứt hết (cho trở về 0), dấu : có nghĩa là đồng thời ah?
Thế là hiểu rồi đấy
If Rng(i) = "" Then
Rng(i) = Tmp
Tmp = 0
End IfSub Test()
Dim Rng As Range, i As Long, Tmp As Double
Set Rng = Range("C2:C10")
For i = Rng.Rows.Count To 1 Step -1
If Rng(i) = "" Then Rng(i) = Tmp
Tmp = Tmp + Rng(i).Value
Next
End SubKhông phải là lập vô hạn. Code vẫn chạy nhưng.. SAI. Vì khi bạn cho rác vào thùng, lý ra bạn đã hết rác (Tmp =0), bạn lại moi rác lên đi gom tiếp. Cuối cùng chỉ có cell rổng dưới cùng là đúng, còn bao nhiêu sai hết
Thày ví dễ hiểu quá, em đã hiểu ra được bản chất vấn đề rồi. Em cảm ơn thày
Sub Test()
Dim Rng As Range, i As Long, Tmp As Double
Set Rng = Range("C2:C10")
For i = Rng.Rows.Count To 1 Step -1
If Rng(i) = "" Then Rng(i) = Tmp: Tmp = 0 'em tưởng đến đây là cắt đuôi rồi (Tmp = 0) rồi?
Tmp = Tmp + Rng(i).Value
Next
End SubThì như đã nói lần trước
Nó làm thằng này trước:
If Rng(i) = "" Then Rng(i) = Tmp: Tmp = 0Tmp = Tmp + Rng(i).ValueSub Test()
Dim Rng As Range, i As Long, Tmp As Double
Set Rng = Range("C2:C10")
For i = Rng.Rows.Count To 1 Step -1
If Rng(i) = "" Then
Rng(i) = Tmp: Tmp = 0
Else
Tmp = Tmp + Rng(i).Value
End If
Next
End Sub
Nhưng sao lại dò như thế? duyệt từ dưới lên ở cột C, nếu ngang hàng ở cột A ="" thì Tmp=Tmp + Rng(i) ngược lại thì gán Tmp
Híc
Sub Test()
Dim Rng As Range, i As Long, Tmp As Double
Set Rng = Range("C2:C10")
For i = Rng.Rows.Count To 1 Step -1
Tmp = Tmp + Rng(i).Value
If Rng(i) = "" Then Rng(i) = Tmp: Tmp = 0
Next
End Sub
Sub Test()
Dim Rng As Range, i As Long, Tmp As Double
Set Rng = Range("C2:C10")
For i = Rng.Rows.Count To 1 Step -1
If Rng(i) <> "" Then
Tmp = Tmp + Rng(i).Value
Else: Rng(i) = Tmp: Tmp = 0
End If
Next
End SubEm đã tìm ra nguyên nhân tại sao nó lỗi rồi, nếu ô C2 và C6 của thày em xóa (delete) đi thì lại chạy ngon. Em chưa hiểu sâu về vụ này nhưng chắc có liên quan đến vấn đề rỗng thật và giả chăng?
Vấn đề là tôi đã "bẫy" cái gì trong file này chứ
Người ta thường bị lỗi như thế này:
Sub Test()
Dim Rng As Range, i As Long, Tmp As Double
Set Rng = Range("C2:C10")
For i = Rng.Rows.Count To 1 Step -1
If Rng(i).Value <> "" Then
Tmp = Tmp + Rng(i).Value
Else
Rng(i) = Tmp: Tmp = 0
End If
Next
End Sub
