myanhnet200
Thành viên mới
- Tham gia
- 5/10/11
- Bài viết
- 11
- Được thích
- 0
Bạn chạy thử code này nhé.Mình có file đính kèm cần code VBA để tính tổng sau mỗi nhóm hàng tại vị trí bôi vàng (dòng trống sau mỗi nhóm), cần duyệt từ cell K21 đến lastrow, tính tổng
Sub tinhtong()
Dim arr, Tong As Double, i As Long, lr As Long
lr = Range("A" & Rows.Count).End(xlUp).Row
If lr < 22 Then Exit Sub
arr = Range("J22:K" & lr).Value
For i = 1 To UBound(arr, 1)
If arr(i, 1) <> Empty Then
Tong = Tong + arr(i, 2)
ElseIf Tong <> 0 Then
arr(i, 2) = Tong
Tong = 0
End If
Next i
Range("J22:K" & lr).Value = arr
End Sub
Hình nhu bị thiếu tong cuối cùng thì phảiBạn chạy thử code này nhé.
Mã:Sub tinhtong() Dim arr, Tong As Double, i As Long, lr As Long lr = Range("A" & Rows.Count).End(xlUp).Row If lr < 22 Then Exit Sub arr = Range("J22:K" & lr).Value For i = 1 To UBound(arr, 1) If arr(i, 1) <> Empty Then Tong = Tong + arr(i, 2) ElseIf Tong <> 0 Then arr(i, 2) = Tong Tong = 0 End If Next i Range("J22:K" & lr).Value = arr End Sub
Theo em hiểu tính dòng cuối cột A vì thế công thêm 1 ở dòng nàyHình nhu bị thiếu tong cuối cùng thì phải
lr = Range("A" & Rows.Count).End(xlUp).Row + 1
Sub tinhtong()
Dim arr, Tong As Double, i As Long, lr As Long
lr = Range("A" & Rows.Count).End(xlUp).Row + 1
If lr < 22 Then Exit Sub
arr = Range("J22:K" & lr).Value
For i = 1 To UBound(arr, 1)
If arr(i, 1) <> Empty Then
Tong = Tong + arr(i, 2)
ElseIf Tong <> 0 Then
arr(i, 2) = Tong
Tong = 0
End If
Next i
Range("J22:K" & lr).Value = arr
End Sub
Lúc làm xong mới để ý.Theo em hiểu tính dòng cuối cột A vì thế công thêm 1 ở dòng này
Mã:lr = Range("A" & Rows.Count).End(xlUp).Row + 1
Mã:Sub tinhtong() Dim arr, Tong As Double, i As Long, lr As Long lr = Range("A" & Rows.Count).End(xlUp).Row + 1 If lr < 22 Then Exit Sub arr = Range("J22:K" & lr).Value For i = 1 To UBound(arr, 1) If arr(i, 1) <> Empty Then Tong = Tong + arr(i, 2) ElseIf Tong <> 0 Then arr(i, 2) = Tong Tong = 0 End If Next i Range("J22:K" & lr).Value = arr End Sub
Thử thêm một code tà đạo.Mình có file đính kèm cần code VBA để tính tổng sau mỗi nhóm hàng tại vị trí bôi vàng (dòng trống sau mỗi nhóm), cần duyệt từ cell K21 đến lastrow, tính tổng
Cám ơn 2 Pro, mình chạy ổn, nhưng cần định dạng tự động tổng mỗi nhóm theo accouting 2 số sau thập phân và in đậm, thêm chữ "TC" cell bên trái mỗi tổng, kính mong 2 Pro giúp hoàn thiệnThử thêm một code tà đạo.
Nếu có dữ liệu mới thì Copy và Paste vào sheet1, xong vào sheet2 nhấn nút để xem kết quả.
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2