tối ưu file Scan liệu

[dangtaipbtn]

dear các cao nhân, tình hình là em đang bập bẹ học VBA nên có đàn anh trước khi đi cty khác đã truyền lại cho em cái file scan này. sau 1 thời gian dùng thì code VBA hay bị chậm, lỗi mà ngoài tầm hiểu biết của em nên em cũng không biết giải quyết ra sao. có bác nào rảnh tối ưu nó giúp em được không ạ

 

[Thong Hoang Tien 250691]

dear các cao nhân, tình hình là em đang bập bẹ học VBA nên có đàn anh trước khi đi cty khác đã truyền lại cho em cái file scan này. sau 1 thời gian dùng thì code VBA hay bị chậm, lỗi mà ngoài tầm hiểu biết của em nên em cũng không biết giải quyết ra sao. có bác nào rảnh tối ưu nó giúp em được không ạ

File này hỏng (vòng lặp vô hạn, do đặt sai End if), nếu muốn ai đó sửa thì anh cần giải thích logic hoạt động mà anh muốn (cũng hết hơi đấy)

 

[darknightno007]

dear các cao nhân, tình hình là em đang bập bẹ học VBA nên có đàn anh trước khi đi cty khác đã truyền lại cho em cái file scan này. sau 1 thời gian dùng thì code VBA hay bị chậm, lỗi mà ngoài tầm hiểu biết của em nên em cũng không biết giải quyết ra sao. có bác nào rảnh tối ưu nó giúp em được không ạ

Bạn nói chi tiết thêm một xíu đi. Đọc vô code biết mỗi cái pass protect. ^^

 

[VetMini]

Bạn nói chi tiết thêm một xíu đi. Đọc vô code biết mỗi cái pass protect. ^^

Tối ưu số từ sử dụng.

 

[dangtaipbtn]

Tối ưu số từ sử dụng.

đúng rồi bác.

Bài đã được tự động gộp: 27/11/18

Bạn nói chi tiết thêm một xíu đi. Đọc vô code biết mỗi cái pass protect. ^^

cũng như bác Thông nói thì để giải thích tất cả các câu lệnh thì thật là khó, bởi vì em cũng không phải là người viết code, nói sơ sơ là như này :
1,đối với sheet" Scan " thì mục đích sẽ là phân tách 3 phần vTO,vPatname,vQty
vTO sẽ gồm từ 7 số tự nhiên trở lên
vPatname sẽ gồm những phần tử bắt đầu bằng chữ "P"
vQty sẽ gồm những phần tử bắt đầu bằng chữ "Q"
2, unprotect sheet 1( details) và coppy vào từng vùng. đối với cột T thì sẽ là để count số lượng cuộn đã scan
hết.
còn đối với sheet details chỉ là định dạng ngày giờ và protect lại để không sửa chữa thôi