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 SubXin mọi người giúp em hiểu là tại sao khi ấn câu này ở đầu thì nó lại tính ah?
Ạh... nó chẳng tính gì đâu, chẳng qua để câu đó, nếu gặp lỗi nó đi luôn thôi
Em chưa hiểu lắm về tại sao lại phải thực hiện gán (các dòng bôi xanh), em cứ tưởng công thức tại dòng (bôi đỏ) chính là gán rồi. Phải chăng nó chỉ có tác dụng nhằm loại bỏ dòng 1 (là dòng tiêu đề chữ sẽ không tính toán được)?. Nhưng hình như cũng không phải vì em xóa đoạn bôi xanh đi, xóa nốt tiêu đề dòng em mà Code vẫn không chạy. Đặc biệt là dòng Erase Arr không biết có tác dụng gì ah?. Xin được kính nhờ các thày giải thích hộ em.
Thôi, bạn đừng tìm hiểu chi cho mất công! Cái đó người ta dùng phương pháp xử lý mảng. Tuy rằng tốc độ làm việc của code là vô địch nhưng rất khó hiểu
With Sheet1
.[A2].Resize(UBound(Arr), 3) = Arr
End WithNếu là công thức mảng bình thường trong Excel thì em cũng có thể hiểu được.
Lấy bài toán tạo STT cho bạn hình dung.
Sub STT1()
Dim i As Long
For i = 1 To 50000
Cells(i, 1) = i
Next
End SubSub STT2()
Dim i As Long, Arr()
ReDim Arr(1 To 50000, 1 To 1)
For i = 1 To 50000
Arr(i, 1) = i
Next
Range("A1:A50000").Value = Arr
''Hoac Range("A1").Resize(UBound(Arr)).Value = Arr
End SubVâng, hình như em không tỉnh táo nên nhầm lẫn 2 đối tượng Arr(i,1) nó khác hẳn với Rng(i)trong bài của thày. Em sẽ xem lại ngay
Bạn có thể hiểu đơn giản thế này:
Xóa mảng cho đỡ tốn bộ nhớ máy, mình nghĩ bạn muốn học mảng Arr trong VBA thì qua đây nè bạn chúc bạn thành công
Arr = .Range("A2:C" & endR).Value ---> là đưa toàn bộ giá trị trong từng cell của vùng "A2:C" & endR vào Arr và đương nhiên Arr trở thành 1 mảng 2 chiều (thế nên mới cần .Value... mà thật ra không có .Value nó vẫn hiểu)
Sub Test()
Dim i&
MsgBox TypeName(i)
End SubCũng chẳng biết nói thế nào nữa. Tóm lại làm nhiều sẽ tự ngộ ra vấn đề
Với điều kiện dữ liệu này bạn làm như thế này xem sao
Sub testtong()
Dim arr, arrkq, lRow As Long, kqrow As Long
Range("c2,c6").ClearContents
arr = Range("c2:c10").Value
For lRow = 1 To UBound(arr, 1)
If arr(lRow, 1) = "" Then
kqrow = lRow
arrkq = 0
End If
arrkq = arrkq + arr(lRow, 1)
Cells(kqrow + 1, 3).Value = arrkq
Next
End SubSub 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
End SubKhông có đoạn này thì bạn không thấy kết quả trên sheet đâu bạn đoạn này rất rất quan trọng, dữ liệu sao khi tính toán được gán vào trong mảng thì phải xuất ra chứ không lẽ để trong mảng nói chung bạn dùng mảng để tính toán tạm rồi lấy cái tạm đó ra
Em cũng đang vướng vấn đề này, mọi người chỉ giúp em cách với ạ. Em cảm ơn!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.
Có công đào mộ rồi, mà không chịu mở nắp ra nữa...
