Tôi muốn hoàn thiện cái chương trình Thu - Chi - Tồn

[hamy]

Các bác giúp tôi hoàn thiện chương trình này nhé (Có file kèm theo)
1. Tôi muốn khi nhập dữ liệu trong cột Nội dung thì dữ liệu trong cột Ngày tháng sẽ tự xuất hiện. Nhưng phải xuất hiện theo ngày mình nhập
Note: Tôi đã thử dùng hàm Today() nhưng không thành công vì ngày hôm sau mở ra thì lại không thấy ngày hôm qua đâu rồi
2. Tôi muốn sau mỗi một ngày thì ở cột Tổng sẽ tổng hợp được số tiền Thu - Chi của ngày đó.
Các bác cố gắng giúp tôi hoàn thiện nhé. Tôi tự mò mẫm khó quá.

 

[ThuNghi]

Thấy bạn siêu lười luôn, nhập ngày và copy xuống mà ...
Bạn xem có OK? Nhớ Thanks
File này sd VBA, sự kiện change

 

[hamy]

Cha mẹ ơi. Cái ngày tháng thì tạm ổn nhưng còn cột Tồn của tôi bị hỏng rồi. Lúc trước thì khi cột Chi có số liệu thì Tồn phải giảm, đằng này Tồn vẫn cứ Cộng như khi Thu, vậy thì chết mất.
Với lại ý tôi muốn là Cột Tổng sẽ chỉ tính cho từng ngày thôi, tôi muốn theo dõi Doanh thu của từng ngày xem hiệu quả của công việc làm ăn thế nào mà.

 

[minhlev]

Trên cơ sở bài của Thunghi, tôi có sửa lại một chút. Bạn xem có được không.

 

[LikeIt]

Trên cơ sở bài của Thunghi, tôi có sửa lại một chút. Bạn xem có được không.

Hi Bạn Minhlev, mình ko hiểu gì về VBA, khi thử file của bạn thấy rất hay cho việc theo dõi nho nhỏ trong văn phòng (như mua bán lặt vặt), nhưng khi mình thử nhập vào thêm một số data ở cột C thì cột B toàn báo nhảy vào cùng một ngày, hoặc cột G nhảy ra KQ không đúng, không biết có phải bạn chỉ làm cho 7 row làm ví dụ à? Nếu có thể bạn bổ sung thêm cho nó đến khoảng 300 dòng để tiện cho việc mở rộng dữ liệu. Tks

 

[minhlev]

Chào bạn Thơm. Tôi viết lại file này trên cơ sở yêu cầu của bạn hamy và file gốc của bác Thunghi. Theo tôi hiểu, mục đích của file này là:
1- Cập nhật thu chi ngay trong ngày. Do vậy khi vào dữ liệu ở các cột C, D, E thì cột B sẽ tự động nhận giá trị là ngày cập nhật
2- Nắm được luồng tiền của chính ngày hôm đó xem nó âm hay dương, có hiệu quả hay không. Nên cột G tôi chỉ lấy = Tổng thu trong ngày - Tổng chi trong ngày thôi.
Tôi đã chỉnh lại file 1 chút và gửi lại ở bài trên. Bạn xem và cho ý kiến nhé.

 

[anhtuan1066]

Cái này nếu làm chặc chẽ thì tốt nhất nên có 1 cái nút: CẬP NHẬT TODAY... Tại vì hôm qua làm xong, hôm nay muốn chỉnh sửa lại 1 chút, nó lại điền vào NGÀY HÔM NAY thì chết... Nút ấy cho phép người ta gán TODAY vào cột B hay ko...

 

[ThuNghi]

Theo tôi, dùng code sau sẽ hay hơn, dự trù quay lại sc số tiền ngày trước.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 2 And Target.Column < 6 And Target.Row > 7 Then
If Cells(Target.Row, 2).Value <> "" Then
Cells(Target.Row, 2).Value = Cells(Target.Row, 2).Value
Else
Cells(Target.Row, 2).Value = DateSerial(Year(Now), Month(Now), Day(Now))
Cells(Target.Row, 8) = "=IF(RC2<>R[1]C2,SUMIF(R7C2:RC2,RC2,R7C4:RC4)-SUMIF(R7C2:RC2,RC2,R7C5:RC5),0)"
Cells(Target.Row, 8).NumberFormat = "#,##0"
End If
End If
End Sub

To: anhtuan1066
If Cells(Target.Row, 2).Value <> "" Then
Cells(Target.Row, 2).Value = Cells(Target.Row, 2).Value
...
Dòng lệnh sau sẽ đưa now hôm qua về giá trị.

 

[minhlev]

Quả thực là khi sửa file, tôi không nghĩ tới việc sửa chứng từ.Theo gợi ý của bác Thunghi, tôi đã sửa lại. Nhờ bác xem và góp ý.

 

[hamy]

Cảm ơn các bạn (nhất là bạn Minhlev) đã rất nhiệt tình giúp tôi hoàn thiện cái chương trình này. Tôi đã xem file mới nhất mà bạn Minhlev gửi nhưng tôi thấy vẫn có một vấn đề chưa được đó chính là Sửa chứng từ.
Ví dụ như hôm nay tôi mở ra và phát hiện ra ngày hôm qua mình đã nhập sai số liệu. Bây giờ sửa lại thì Dữ liệu cột F và cột G vẫn trơ trơ, chết không cơ chứ.
Thương đến cùng các bạn nhé.

 

[minhlev]

Tôi đã chỉnh lại 1 chút rồi, bạn xem có còn lỗi gì không thì chúng mình cùng sửa nhé.

 

[hamy]

Bạn Minhlev ơi! Bài Thu - Chi - Tồn của bạn đã đáp ứng được tương đối yêu cầu của tôi rồi. Chỉ có một vấn đề nữa là bây giờ tôi muốn xoá dữ liệu cũ đi để sử dụng luôn Bảng tính đó thì lại không được.
Bạn giúp tôi nhé.

 

[minhlev]

Viết tiếp bài quản lý thu chi của ban hamy

Trước tiên bạn ấn tổ hợp phím Alt + F11. Trong dòng mã thứ 2, ở cuối dòng, bạn sửa Target.Row > 7 thành Target.Row > = 7.
Khi bạn xoá hết số liệu trong bảng tính cũ đi, để nhập lại số liệu có 2 cách (dễ thực hiện nhât theo ý tôi):
- Cách 1: Bạn vào luôn ngày nhập, nội dung, số tiền. Cách này thì hơi thủ công nhưng cũng chấp nhận được.
- Cách 2: Trước khi vào số liệu của ngày nào thì bạn chọn lại ngày hệ thống của máy tính trùng đúng với ngày đó và bạn chỉ cần vào nội dung và số tiền thôi. Cácc này thì xem ra có vẻ đáp ứng được với yêu cầu ban đầu nhưng lại hơi rườm rà.
Tuỳ vào thói quen, bạn có thể lựa chọn 1 trong 2 cách trên.