H
Xem file In Phieu THU_CHI của Bác Adam_tran thấy hay quá, trong khi em lại đang làm thủ công bằng cách chọn Phiếu rồi in, mất rất nhiều thời gian. Mong các cao thủ chỉ giáo em giải thuật sau:
file Dulieu của em có dạng, tại cột D là dữ liệu phiếu thu, chi không liền nhau vì tất cả các nghiệp vụ đều trên file này.
PT01/03
.
.
PT02/03
PC01/03
PT03/03
.
.
.
(Khi muốn in phiếu nào thì hiện tại em chọn phiếu đó rồi ra lệnh in. theo thủ tục in em viết là lấy tham số ô hiện tại rồi chuyển qua sheet In_Phieuthu.)
Bây giờ em muốn viết một thủ tục có dạng giải thuật sau:
khi minh in là "PT"
Tìm trên cột D101000 khi gặp "PT01" thì gán sang sheet In_phieuthu prevew lên rồi khi in xong phiếu đó đóng lại thì nó lại tìm tiếp tới "PT02" và lặp lại cho đến khi không tìm thấy nữa thoát khỏi vòng lặp và kết thúc.
Vấn đề của em là! Chưa biết dùng code nào để tìm kiếm chuỗi, mong các cao thủ giúp cho, chứ In chọn như hiện tại thì cũng được nhưng vẫn là thủ công.
file Dulieu của em có dạng, tại cột D là dữ liệu phiếu thu, chi không liền nhau vì tất cả các nghiệp vụ đều trên file này.
PT01/03
.
.
PT02/03
PC01/03
PT03/03
.
.
.
(Khi muốn in phiếu nào thì hiện tại em chọn phiếu đó rồi ra lệnh in. theo thủ tục in em viết là lấy tham số ô hiện tại rồi chuyển qua sheet In_Phieuthu.)
Bây giờ em muốn viết một thủ tục có dạng giải thuật sau:
khi minh in là "PT"
Tìm trên cột D101000 khi gặp "PT01" thì gán sang sheet In_phieuthu prevew lên rồi khi in xong phiếu đó đóng lại thì nó lại tìm tiếp tới "PT02" và lặp lại cho đến khi không tìm thấy nữa thoát khỏi vòng lặp và kết thúc.
Vấn đề của em là! Chưa biết dùng code nào để tìm kiếm chuỗi, mong các cao thủ giúp cho, chứ In chọn như hiện tại thì cũng được nhưng vẫn là thủ công.