In phiếu thu chi bằng VBA

Liên hệ QC

thomong

Thành viên chính thức
Tham gia
31/8/07
Bài viết
55
Được thích
33
Nghề nghiệp
văn phòng
Chào các anh chị thành viên, em mới học VBA nên k biết viết chương trình phiếu thu chi này chi như thế nào? mấy anh chị xem file đính kèm và hướng dẫn giúp em với nha. xếp em hối thúc em mấy ngày nay. em rất cảm ơn.
 

File đính kèm

  • phieu thu chi.xls
    46 KB · Đọc: 290
Dùng VLOOKUP mà làm, Truy xét các thành phần dựa và số phiếu bên Data
 
Upvote 0
Bạn thử tải file này xem
 

File đính kèm

  • S_ nh_t ký S_ qu_.rar
    591.3 KB · Đọc: 567
Upvote 0
em tải file về bị virus nhiều quá, ko chạy macro được, với lại không xem đươc code trong VBA nen em không biết cách viết theo yêu cầu của mình, mong anh Ng_Duy_Long và các anh chị trên diễn đàn giúp đỡ.
 
Upvote 0
mấy anh chị có file nào khác không? cho em với, em cảm ơn
 
Upvote 0
Mình nghĩ bạn nên dùng hàm Vlookup hoặc dùng cách tạo phiều thu, chi bằng Merger Mail
 
Upvote 0
Chào các anh chị thành viên, em mới học VBA nên k biết viết chương trình phiếu thu chi này chi như thế nào? mấy anh chị xem file đính kèm và hướng dẫn giúp em với nha. xếp em hối thúc em mấy ngày nay. em rất cảm ơn.

Chào bạn,
Theo cách thông thường trước đây các kế toán thường làm phần hạch toán trước, sau đó mới tạo form để in ra.

Còn mình thì làm theo cách ngược lại, Kế toán thanh toán phải lập chứng từ thu chi trước, hạch toán và in ra phiếu thu chi trước, sau đó mới lưu dữ liệu vào hê thống.

Bạn xem file đính kèm. Đây là phân hệ kế toán thanh toán bao gồm, phiếu thu, phiếu chi, ủy nhiệm chi và phiếu kế toán.

Mình xin nói sơ về file VASCashModule như sau:
1.User name và pass admin:
User Name: Admin
Password: admin
2. Setup thông tin công ty tại sheet(SystemName)
3.Setup User tai sheet(User)
4. Setup Tài khoản ngân hàng tại sheet(BankID)
5. Setup mã lưu chuyển tiền tệ tại sheet(CFLOWID)
6. Setup tài khoản tại sheet(COA)
7. Setup danh mục khách hàng tại sheet(CUST)
8. Setup danh mục Nhà cung cấp tại sheet(VEND)
9. Setup danh mục hàng tồn kho tại sheet(INVTID)
10. Setup mã chi phí tại sheet(COSTCENTER)
11. Setup danh mục phòng ban tại sheet(DIVISION)
12. Dữ liệu được lưu tại sheet(GLDATA)
13. Dữ liệu về hóa đơn, kê khai hóa đơn được lưu tại sheet(GLINVC)

Nếu dữ liệu công ty nhiều và lớn, mình cũng có giải pháp để lưu trữ vào access (file System đính kèm), lúc này chúng ta cần một đăng ký ODBC và kết nối Dynamic DNS (thông qua VPN) nếu dữ liệu trung tâm ở xa cho file access kèm theo (lấy tên là DNS là AMGACCT).
14. Sheet(VAT) dùng để xem lại bảng kê thuế GTGT đầu ra, đầu vào theo tháng (lấy query từ file access, không cần thiết nếu dữ liệu công ty không nhiều và lưu trữ trực tiếp trên excel ở sheet(GLDATA))
15. Sheet(DATA) dùng để xem lại nhật ký chung theo tháng/kỳ (lấy query từ file access, không cần thiết nếu dữ liệu công ty không nhiều và lưu trữ trực tiếp trên excel ở sheet(GLDATA)).

Hiện tại bạn sử dụng chức năng hạch toán và in phiếu thu, chi ủy nhiệm chi và phiếu kế toán thôi, những phần hành khác mình đang hoàn thiện, chưa xong.

Trong màn hình nhập liệu phiếu thu chi, phiếu kế toán, Bạn có thể double click và tìm danh mục theo ý mình (ví dụ danh mục tài khoản, danh mục hàng tồn kho, danh mục khách hàng, danh mục nhà cung cấp...).

Có vần đề gì, mong các bạn cho ý kiến để mình hoàn thiện file này nhé!.

Trân trọng,
 

File đính kèm

  • VASCashModule.rar
    559.1 KB · Đọc: 416
  • SYSTEM.rar
    67.6 KB · Đọc: 278
Upvote 0
em đã tải file về rồi, em mở file lên nhập username là Admin thì bị báo lỗi, chương trình tự động chuyển đến VBA, em đóng cửa sổ VBA lại, mở phiếu thu hoặc chi lên nhập thử vào thì bị báo lỗi ở dòng "số tiền bằng chữ" là #value và trong VBA báo lỗi là: can't fine proẹct or library tại dòng Trim của function VN (baonhieu). mong anh chỉ giúp em phải làm sao nhé. em cảm ơn.
 
Upvote 0
em đã tải file về rồi, em mở file lên nhập username là Admin thì bị báo lỗi, chương trình tự động chuyển đến VBA, em đóng cửa sổ VBA lại, mở phiếu thu hoặc chi lên nhập thử vào thì bị báo lỗi ở dòng "số tiền bằng chữ" là #value và trong VBA báo lỗi là: can't fine proẹct or library tại dòng Trim của function VN (baonhieu). mong anh chỉ giúp em phải làm sao nhé. em cảm ơn.

Có lẽ khi cài office bạn không cài dạng Run all from My computer nên bị thiếu một số thư viện hàm. Bạn thử cài lại office thử xem.
 
Upvote 0
Web KT
Back
Top Bottom