AnhThu-1976
Thành viên tích cực
- Tham gia
- 17/10/14
- Bài viết
- 1,063
- Được thích
- 175
Em chào anh chị
Em muốn tìm hiểu tạo code sum cho bảng quỹ tiền mặt
Hiện nay em đã tạo được 1 cách, vì muốn học hỏi thêm nên nhờ anh chị viết code ở những dạng khác nhau để em học hỏi
Mô tả file:
Số liệu bắt đầu từ dòng 13 và bảng dữ liệu có thể dài ra nữa
Em muốn tính ở các ô màu vàng (trong ô em có ghi công thức)
Code của em
Em cảm ơn!
Em muốn tìm hiểu tạo code sum cho bảng quỹ tiền mặt
Hiện nay em đã tạo được 1 cách, vì muốn học hỏi thêm nên nhờ anh chị viết code ở những dạng khác nhau để em học hỏi
Mô tả file:
Số liệu bắt đầu từ dòng 13 và bảng dữ liệu có thể dài ra nữa
Em muốn tính ở các ô màu vàng (trong ô em có ghi công thức)
Code của em
Mã:
Sub TonQuyTM_1()
Dim lr As Long, i As Long
lr = Range("F" & Rows.Count).End(3).Row
MsgBox lr
Range("G" & lr + 1).Resize(3, 3).ClearContents
For i = 13 To lr
Cells(lr + 2, 7) = Cells(lr + 2, 7) + Cells(i, 7)
Cells(lr + 2, 8) = Cells(lr + 2, 8) + Cells(i, 8)
'Cells(i, 9) = Cells(i - 1, 9) + Cells(i, 7) - Cells(i, 8)
Next
Cells(lr + 3, 9) = Cells(lr + 2, 7) - Cells(lr + 2, 8) + Cells(12, 9)
End Sub
