Làm kế toán với excel VBA (6 người xem)

[hbtruyen]

Chào bạn,
File của bạn tải về không có code? Bạn có thể up lại được không? Minh cũng đã tự làm 1 phần mềm excel nhưng chỉ làm code với macro đơn giản thôi, đang mong kiếm nguồn tham khảo!

 

[nhatphuongnhatphuongn]

Tôi gởi lại cho các bạn file kế toán bằng excel đã kiểm tra. Mong các bạn góp ý và tôi đang viết thêm phần tìm mã hoặc tên khách hàng (hoặc sản phẩm) nếu người nhập liệu không nhớ chính xác

Bạn ơi,font bị lổi rồi.

 

[bluelove0909]

Chào mọi người, nhờ mọi người tư vấn giúp e. E đang tập làm VBA cho excel Kế toán như đến đoạn code tạo Sổ Cái thì vòng lập cứ vô hạn và treo máy. Do trình độ có hạn nên e chưa thể kiểm tra được. Mong mọi người chỉ giáo giúp e. Chân thành cảm ơn mọi người!

 

[bluelove0909]

Chào mọi người, nhờ mọi người tư vấn giúp e. E đang tập làm VBA cho excel Kế toán như đến đoạn code tạo Sổ Cái thì vòng lập cứ vô hạn và treo máy. Do trình độ có hạn nên e chưa thể kiểm tra được. Mong mọi người chỉ giáo giúp e. Chân thành cảm ơn mọi người!

em gửi kèm file của e nhờ mọi người xem giúp!

 

[doveandrose]

chả thấy gì sao xem ?

 

[bluelove0909]

chả thấy gì sao xem ?

Dạ e gửi lại file ạ. Do sơ xuất nên e quên đính kèm file

 

[doveandrose]

vòng lặp của bạn không vô tận
trước hết trong module1 sửa lại thành

NKC.Show (0)

module3 cũng tương tự

gọi đến 1 sheet nào đó có thể dùng tên thí dụ : sheet("CTPShangngay")
gọi mà dùng số như bạn khi đang code làm sao bạn nhớ nó là cái sheet nào ?
hệ quả

sự kiện click bên form nhật ký chung
dòng số 13 sai

Do While Sheets([B]2[/B]).Cells(I, 1) <> "#"

sự kiện click bên form sổ cái
dòng sô 27 sai

Sodu = Sodu - Sheets([B]2[/B]).Cells(I, 6)

module2 dòng 8 sai

SODN = Sheets([B]1[/B]).Cells(I, 4)

sửa lại có lẽ code đã chạy đc
nhưng đấy mới chỉ là chạy đc còn về hiệu năng tốc độ thì sẽ rất thấp nếu sổ nhật ký chứng từ có vài trăm hoặc vài nghìn dòng
bạn nên tham khảo các bài viết khác trên diễn đàn để tìm đc cách viết code hợp lý hơn

 

[halinh20]

anh gửi e xin một bản halinh2011@gmail.com Cảm ơn anh