Em mới tập làm quen với VBA nên trình độ còn hạn chế, nhờ các A/c viết dùm code để hoàng chỉnh “Nhật Ký Quỹ và Bảng Kê” theo các yêu cầu sau:
1/khi cập nhật sẽ chèn thêm dòng ở sheet “NHAT KY” từ B12, em có viết củng thực hiện được nhưng ko chèn thêm dòng nên bị sai:
“Set sw = Worksheets("NHAT KY")
iRow = sw.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row
sw.Cells(12, 2).Value = Me.TextBox1.Value & " - " & Me.TextBox3.Value”
VD: ở sheet NHAT KY khi cập nhật lần thứ nhất thì thêm vào ở B12, khi cấp nhật lần hai thì chèn thêm 1 dòng dưới B12 và đẩy cột Cộng xuống, chứ không ghi đè lên cột cộng.
2/ sửa lại dùm em “sub Cmdin” hiện tab in để có thể chọn nhiều máy in củng mạng. em có chép code in vào nhưng nó in thẳng luôn ko hỏi máy in. “ActiveWindow.SelectedSheets.PrintOut”
3/ khi nhập vào các textbox số tờ thì nhân với số ở mệnh giá và cho hiện ở textbox thành tiền:
VD: khi nhập số 1 vào textbox có mệnh giá 500.000P thì = ở textbox thành tiền là 500.000
*-Ở đây em có phân loại mệnh giá theo P,C,K là: tiền polymer, cotorn, kim loại.
4/ ở texbox tổng cộng các A/c cộng dùm em số tiền có trong textbox thành tiền.
5/ khi cập nhật thì cộng dồn mệnh giá của từng loại tiền vào sheet BKKQ “C5:C25”.
VD: ở sheet BKKQ hiện có ở cột mệnh giá 200C số tờ là: 30, trêm form ở textbox mệnh giá 200C số tờ là: 2 . Thì khi cập nhật ở mệnh giá 200C thì số tờ trở thành là 32. Nếu cập nhật lần 2 cũng tương tự như trên thì số tờ trở thành 34 đó gọi là cộng dồn.
(nói đơn giản hơn ta có 30 đồng người thứ nhất cho 2 đồng thì được 32 đồng, người thứ hai tiếp tục cho 2 đồng nữa vậy là ta có 34 đồng)
Ở trên em chỉ nhờ các A/c làm phần bảng kê thu thôi, còn phần bảng kê chi em sẽ nghiên cứu làm tiếp, vì cái náy phục vụ cho việc thu chi các loại tiền nên em chỉ đưa 1 loại.
Rất mong được sự giúp đỡ của các A/c, Nếu có tiện các A/c ghi giải thích dùm em sau những dòng code để em học hỏi thêm. Xin chân thành cam ơn các A/c giúp đỡ.
1/khi cập nhật sẽ chèn thêm dòng ở sheet “NHAT KY” từ B12, em có viết củng thực hiện được nhưng ko chèn thêm dòng nên bị sai:
“Set sw = Worksheets("NHAT KY")
iRow = sw.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row
sw.Cells(12, 2).Value = Me.TextBox1.Value & " - " & Me.TextBox3.Value”
VD: ở sheet NHAT KY khi cập nhật lần thứ nhất thì thêm vào ở B12, khi cấp nhật lần hai thì chèn thêm 1 dòng dưới B12 và đẩy cột Cộng xuống, chứ không ghi đè lên cột cộng.
2/ sửa lại dùm em “sub Cmdin” hiện tab in để có thể chọn nhiều máy in củng mạng. em có chép code in vào nhưng nó in thẳng luôn ko hỏi máy in. “ActiveWindow.SelectedSheets.PrintOut”
3/ khi nhập vào các textbox số tờ thì nhân với số ở mệnh giá và cho hiện ở textbox thành tiền:
VD: khi nhập số 1 vào textbox có mệnh giá 500.000P thì = ở textbox thành tiền là 500.000
*-Ở đây em có phân loại mệnh giá theo P,C,K là: tiền polymer, cotorn, kim loại.
4/ ở texbox tổng cộng các A/c cộng dùm em số tiền có trong textbox thành tiền.
5/ khi cập nhật thì cộng dồn mệnh giá của từng loại tiền vào sheet BKKQ “C5:C25”.
VD: ở sheet BKKQ hiện có ở cột mệnh giá 200C số tờ là: 30, trêm form ở textbox mệnh giá 200C số tờ là: 2 . Thì khi cập nhật ở mệnh giá 200C thì số tờ trở thành là 32. Nếu cập nhật lần 2 cũng tương tự như trên thì số tờ trở thành 34 đó gọi là cộng dồn.
(nói đơn giản hơn ta có 30 đồng người thứ nhất cho 2 đồng thì được 32 đồng, người thứ hai tiếp tục cho 2 đồng nữa vậy là ta có 34 đồng)
Ở trên em chỉ nhờ các A/c làm phần bảng kê thu thôi, còn phần bảng kê chi em sẽ nghiên cứu làm tiếp, vì cái náy phục vụ cho việc thu chi các loại tiền nên em chỉ đưa 1 loại.
Rất mong được sự giúp đỡ của các A/c, Nếu có tiện các A/c ghi giải thích dùm em sau những dòng code để em học hỏi thêm. Xin chân thành cam ơn các A/c giúp đỡ.
Lần chỉnh sửa cuối:
