Chương trình quản lý nhập xuất

[minhlev]

Tôi mới làm xong 1 file quản lý nhập xuất. Trong File, tôi có sử dụng logo của GPE cũng như một số hàm của các thành viên trong GPE, mong các bác thành viên nhất là các bác trong BQT cho phép.
- Đôi điều tự nhận xét: Đây là file Excel thuần tuý. Nhìn chung File còn sơ sài, bố cục chưa thành 1 hệ thống. Các dòng lệnh trong file còn dài dòng thậm chí vòng vèo (do là dân không chuyên của không chuyên cho dù đã tham khảo nhiều chương trình tương tự, nhất là của bác Vũ Ngọc) nên việc ra được kết quả là mục đích trước mắt.
- Trước khi chạy file, cần phải đổi chế độ ngày tháng năm trong Control Panel. Cụ thể: vào Control Panel --> Regional and Language Options; trong thẻ Regional Options chọn Customize; tại Short date format chỉnh lại thành dd/mm/yyyy.
- Cấu trúc của File gồm 2 phần: Phân hệ chính và Chi tiết. Để chuyển từ phân hệ chính sang chi tiết và ngược lại, ta có thể dùng chuột hoặc nhấn phím Tab. Để vào các phần chi tiết, ta có thể kích đúp chuột hoặc nhấn phím Enter.
Khi vào file cần tạo danh mục kho trước khi cập nhật phiếu nhập, phiếu xuất. File này hạn chế số lượng kho là 9 kho.
Ngày tháng năm có thể gõ đủ 8 ký tự hoặc gõ 6 ký tự. VD ngày 10/12/2007 có thể gõ 10122007 hoặc 101207
- Mong muốn: Mong các bác xem xét và góp ý để File được hoàn thiện hơn và tôi cũng có dịp mở mang, nâng cao kiến thức.
Xin chân thành cảm ơn.

 

[Duong gia]

Tôi mới làm xong 1 file quản lý nhập xuất. Trong File, tôi có sử dụng logo của GPE cũng như một số hàm của các thành viên trong GPE, mong các bác thành viên nhất là các bác trong BQT cho phép. - Đôi điều tự nhận xét: Đây là file Excel thuần tuý. Nhìn chung File còn sơ sài, bố cục chưa thành 1 hệ thống. Các dòng lệnh trong file còn dài dòng thậm chí vòng vèo (do là dân không chuyên của không chuyên cho dù đã tham khảo nhiều chương trình tương tự, nhất là của bác Vũ Ngọc) nên việc ra được kết quả là mục đích trước mắt. - Trước khi chạy file, cần phải đổi chế độ ngày tháng năm trong Control Panel. Cụ thể: vào Control Panel --> Regional and Language Options; trong thẻ Regional Options chọn Customize; tại Short date format chỉnh lại thành dd/mm/yyyy. - Cấu trúc của File gồm 2 phần: Phân hệ chính và Chi tiết. Để chuyển từ phân hệ chính sang chi tiết và ngược lại, ta có thể dùng chuột hoặc nhấn phím Tab. Để vào các phần chi tiết, ta có thể kích đúp chuột hoặc nhấn phím Enter. Khi vào file cần tạo danh mục kho trước khi cập nhật phiếu nhập, phiếu xuất. File này hạn chế số lượng kho là 9 kho. Ngày tháng năm có thể gõ đủ 8 ký tự hoặc gõ 6 ký tự. VD ngày 10/12/2007 có thể gõ 10122007 hoặc 101207 - Mong muốn: Mong các bác xem xét và góp ý để File được hoàn thiện hơn và tôi cũng có dịp mở mang, nâng cao kiến thức. Xin chân thành cảm ơn.

To minhlev Chương trình của Bác hay lắm, khá công phu, trông rất đẹp mắt. Bác cho mình xin logo của GPE, nó đẹp quá, Bác cho mình xin cái nào mà mình vô chỉnh sửa được đấy. Bác gửi đến : [EMAIL="duongnguyen220372@yahoo.com.vn"]duongnguyen220372@yahoo.com.vn[/EMAIL] Thank you very much.

 

[minhlev]

Hôm qua xem lại file quản lý nhập xuất đã gửi lên ngày 10/12, tôi nhận thấy file đó còn có lỗi. Hôm nay xin được gửi tập file mới. Trong tập file mới tôi gửibao gồm 2 file. Một file chứa Macro để chạy (đuôi '.xls') vẫn có 2 phần là Phân hệ chính và Chi tiết; một file chứa dữ liệu (đuôi '.xla' - cái này học được của bác nào đó trên GPE hình như thầy Phạm Duy Long thì phải).
Trong lần gửi này, tôi đã khắc phục những lỗi do mình tự phát hiện. Ngoài ra có thêm phần chọn năm làm việc và chuyển số liệu sang năm sau.
Để sử dụng, các bác tải tập file nén về và giải nén vào 1 thư mục. Sau đó mở file đuôi '.xls' sau đó kích đúp chuột vào phần chi tiết và chọn năm làm việc (trong tệp tôi gửi lên là năm 2007).
Nhờ các bác tiếp tục xem và sửa chữa để chương trình được hoàn thiện hơn.
Có 1 vấn đề mà tôi chưa biết lý do tại sao, đó là: sau khi thoát khỏi file bằng cách chọn Kết thúc bên phần chi tiết xong thì dung lượng của file có đuôi '.xls' là gần 400kb; nếu ta mở lại file đó --> Disable Macro --> Save và đóng file thì dung lượng của nó chỉ còn gần 300kb. Việc này cũng phải nhờ các bác trên diễn đàn tìm giúp nguyên nhân và khắc phục. Xin cảm ơn các bác.

 

[xuan_ha919]

Gửi anh Minhlev: Tôi đã làm như hướng dẫn nhưng toàn báo lỗi "Run-time error '9'"
Subscript out of range.
Không chạy được anh ạ.

 

[minhlev]

Sau khi xem lại file tại bài viết số #3, tôi thấy đúng là nó có một số lỗi như bạn xuan_ha919 đã nêu. Tôi xin gửi lại file mới (không xóa file cũ để biết được tiến trình công việc của mình đến đâu).

 

[xuan_ha919]

Sau khi xem lại file tại bài viết số #3, tôi thấy đúng là nó có một số lỗi như bạn xuan_ha919 đã nêu. Tôi xin gửi lại file mới (không xóa file cũ để biết được tiến trình công việc của mình đến đâu).

Em tải File mới về, chọn năm làm việc là 2007, 2008 đều báo lỗi: Run time error 445.
Object doesn't support this action.
Anh Minh xem lại xem.

 

[minhlev]

To xuanha919: Trước tiên xin cảm ơn bạn về những ý kiến đóng góp. Tôi đã kiểm tra lại trên máy của mình rồi vẫn thấy OK mà. Tôi làm file này trên bộ Office 2003, không hiểu bạn đang sử dụng trên bộ Office nào? Để cụ thể hơn, bạn có thể báo cho tôi biết dòng lỗi không (bằng cách nhấn nút debug khi hiện ra thông báo lỗi)?

 

[xuan_ha919]

To xuanha919: Trước tiên xin cảm ơn bạn về những ý kiến đóng góp. Tôi đã kiểm tra lại trên máy của mình rồi vẫn thấy OK mà. Tôi làm file này trên bộ Office 2003, không hiểu bạn đang sử dụng trên bộ Office nào? Để cụ thể hơn, bạn có thể báo cho tôi biết dòng lỗi không (bằng cách nhấn nút debug khi hiện ra thông báo lỗi)?

Em dùng Office 2007. Khi dùng cái File A đưa lên về sau:
Khi bấm vào Debug nó báo vàng dòng này:
With Application.FileSearch 'Nguon tu www.Ozgrid.com.
Sau đó lại vào được bình thường ở các Sheet khác, nhwng ở bên Sheet QLNX trắng xóa chẳng có gì cả.

 

[minhlev]

Em dùng Office 2007. Khi dùng cái File A đưa lên về sau:
Khi bấm vào Debug nó báo vàng dòng này:
With Application.FileSearch 'Nguon tu www.Ozgrid.com.
Sau đó lại vào được bình thường ở các Sheet khác, nhwng ở bên Sheet QLNX trắng xóa chẳng có gì cả.

Đây là dòng lệnh tìm file từ 1 thư mục cho trước. Có thể đoạn code này không phù hợp với office 2007, tôi cũng chưa có điều kiện để thử trên office 2007 cho nên cũng chưa khắc phục được lỗi bạn đã nêu.
Hy vọng được các bác trên diễn đàn giúp đỡ khắc phục lỗi trên. Xin cảm ơn nhiều nhiều.

 

[Nguyễn Duy Tuân]

Đây là dòng lệnh tìm file từ 1 thư mục cho trước. Có thể đoạn code này không phù hợp với office 2007, tôi cũng chưa có điều kiện để thử trên office 2007 cho nên cũng chưa khắc phục được lỗi bạn đã nêu.
Hy vọng được các bác trên diễn đàn giúp đỡ khắc phục lỗi trên. Xin cảm ơn nhiều nhiều.

Qua chạy thử và xem mã nguồn chương trình "Quanly_NX" tôi mới biết nội công VBA của Minhlev thâm hậu ra phết . Nếu có thời gian cố gắng chỉnh chu thêm cho đồng bào được nhờ nha

Qua quá trình chạy minh đã phát hiện một vài lỗi:

+ Lỗi không tương thích: đối tượng Application.FileSearch không có trong Office2007.
+ Lỗi thiếu (hoặc thừa control): trong một số form có dùng control dạng CheckBox có tên "ChBgia" nhưng trên form lại không có vì vậy khi debug báo lỗi.

Mạn phép tác giả, tôi đã sửa lại các lỗi trên và thêm vào chương trình một module "VBAUtils" cung cấp một số hàm làm việc với file và workbook để phục vụ cho chương trình.
Việc sửa lỗi cụ thể như sau:
+ Thay thế đối tượng Application.FileSearch bằng các hàm VBAUtils.FileExists, VBAUtils.YearToFile,...
+ Những lệnh có sử dụng CheckBox "ChBgia" tạm đặt dấu comment (') để ngưng không chạy, tác giả nghiên cứu chỉnh lại nếu cần.

+ Sủa lại code trong 2 thủ tục của form "ChonNam" là Chon_nam và ChuyenSLieu

Như vậy phiên bản sửa lỗi này có thể chạy trên các phiên bản Excel 2000, XP (2002), 2003, 2007.

 

[minhlev]

Qua chạy thử và xem mã nguồn chương trình "Quanly_NX" tôi mới biết nội công VBA của Minhlev thâm hậu ra phết . Nếu có thời gian cố gắng chỉnh chu thêm cho đồng bào được nhờ nha

Cảm ơn bác đã quá khen. Công phu có được như vậy là nhờ GPE đó.

Qua quá trình chạy minh đã phát hiện một vài lỗi:

+ Lỗi không tương thích: đối tượng Application.FileSearch không có trong Office2007.
+ Lỗi thiếu (hoặc thừa control): trong một số form có dùng control dạng CheckBox có tên "ChBgia" nhưng trên form lại không có vì vậy khi debug báo lỗi.

Lỗi này là do lúc đầu tôi định để lựa chọn 2 cách tính giá vốn trong bán hàng (tính theo giá đích danh và tính theo giá bình quân gia quyền). Nhưng về sau do lười quá nên chỉ để tính theo giá bình quân gia quyền mà quên không bỏ các dòng code liên quan tới nó đi.

Mạn phép tác giả, tôi đã sửa lại các lỗi trên và thêm vào chương trình một module "VBAUtils" cung cấp một số hàm làm việc với file và workbook để phục vụ cho chương trình.
Việc sửa lỗi cụ thể như sau:
+ Thay thế đối tượng Application.FileSearch bằng các hàm VBAUtils.FileExists, VBAUtils.YearToFile,...
+ Những lệnh có sử dụng CheckBox "ChBgia" tạm đặt dấu comment (') để ngưng không chạy, tác giả nghiên cứu chỉnh lại nếu cần.

+ Sủa lại code trong 2 thủ tục của form "ChonNam" là Chon_nam và ChuyenSLieu

Như vậy phiên bản sửa lỗi này có thể chạy trên các phiên bản Excel 2000, XP (2002), 2003, 2007.

Xin cảm ơn bác. Việc chỉnh sửa này làm cho chương trình này hoàn thiện hơn rất nhiều. Nếu được, nhờ bác chỉ dạy thêm cho nhé (chỉ học tại quán bia thôi).

 

[duongcaothu]

ai biết giúp mình với nhé

xin chỉ cách làm được bảng ở file đính kèm.chỉ chi tiết nha.thanks

 

[quochung2005]

sao mình file của bác TUANVNUNI không được, dow xuống mở lên bị lỗi, mong các bác xem lại để mình có thể down được một file NXT thật là công phu này, thanks
Thân

 

[duli48]

các bạn có thể giúp mình về đặc tả bài toán quản lí việc nhập,xuất của công ty A không?cảm ơn nhiều^^

 

[dung_war]

Bạn cho minh địa chỉ mail đi.Minh sẽ gởi cho bạn xem thử phần mềm mà minh đang lamcòi bạn có xài được kjông.

 

[levanduyet]

Để giải quyết vấn đề Application.FileSearch trong Excel 2007, chúng ta có thể dùng Dir để giải quyết.
Ví dụ sau sẽ quét qua các tập tin .doc trong thư mục của tập tin Excel

    sPath = ThisWorkbook.Path   
    ChDir sPath 'Đổi thư mục sang thư mục hiện hành
    sFil = Dir("*.doc")    'Thay đổi và thêm formats
    Do While sFil <> ""     
        Set wrdDoc = wrdApp.Documents.Open(Filename:=sPath & "\" & sFil, ReadOnly:=True)   
        'Thực hiện các lệnh cần thiết tại đây        

        'Đóng tài liệu word
        wrdDoc.Close
        sFil = Dir
    Loop

Lê Văn Duyệt

 

[adult]

sao mình chọn vào mục nào nó cũng báo là chưa tạo năm làm việc vậy sao vậy bác?
Vui lòng hướng dẫn em tý

 

[tuyenbui]

mình cũng không làm gì được vì thông báo chưa chọn năm làm việc

 

[my021102]

Mình đang rất cần chương trình này, mình đã load về nhưng cũng bị báo lỗi chưa chọn năm làm việc. Và khi mình muốn tắt nó thì không được. Xin các cao thủ bày cách cho mình với

 

[cop_kh]

Mình đang rất cần chương trình này, mình đã load về nhưng cũng bị báo lỗi chưa chọn năm làm việc. Và khi mình muốn tắt nó thì không được. Xin các cao thủ bày cách cho mình với

Các bạn down về chọn năm làm việc là 2008, sau đó vào Phân hệ chính >> Cập nhật >> Chuyển số liệu sang năm sau; vậy là các bạn đã chuyển được năm làm việc sang 2009 rồi.