Chia sẻ file in Phiếu điều tra PCGD (1 người xem)

[HUONGHCKT]

Bước vào năm học mới, Gần đây thấy rất nhiều bạn hỏi nhiều vấn đề về PCGD. Xin chia sẻ 1 file giúp cho các bạn quan tâm có thể làm tốt vấn đề in ấn Phiếu điều tra PCGD. Hy vọng giúp ích và giảm tải phần nào công việc mà người làm công tác PCGD phải thực hiện.
Xem hướng dẫn sử dụng trong file đính kèm.
Trong file có sử dùng code của 1 số tác giả @batman1( Hàm UDF Bodau), Hàm UDF (sort mảng) của anh @ HSanbi thì phải. Rất mong các tác giả cảm thông.
Code của tôi ( một người không có căn bản về VBA) viết chắc chắn sẽ còn nhiều điểm còn phải hoàn thiện thêm. Rất mong anh chị em đóng góp thêm (kể cả gạch đá cũng sẵn lòng đón nhận) để bản thân có thêm kinh nghiệm và file chạy tốt hơn với hy vọng giúp được cho ai đó nếu cần. Trân trọng cảm ơn.

 

[nguyen6571gpex]

Bước vào năm học mới, Gần đây thấy rất nhiều bạn hỏi nhiều vấn đề về PCGD. Xin chia sẻ 1 file giúp cho các bạn quan tâm có thể làm tốt vấn đề in ấn Phiếu điều tra PCGD. Hy vọng giúp ích và giảm tải phần nào công việc mà người làm công tác PCGD phải thực hiện.
Xem hướng dẫn sử dụng trong file đính kèm.
Trong file có sử dùng code của 1 số tác giả @batman1( Hàm UDF Bodau), Hàm UDF (sort mảng) của anh @ HSanbi thì phải. Rất mong các tác giả cảm thông.
Code của tôi ( một người không có căn bản về VBA) viết chắc chắn sẽ còn nhiều điểm còn phải hoàn thiện thêm. Rất mong anh chị em đóng góp thêm (kể cả gạch đá cũng sẵn lòng đón nhận) để bản thân có thêm kinh nghiệm và file chạy tốt hơn với hy vọng giúp được cho ai đó nếu cần. Trân trọng cảm ơn.

Rất hay và rất công phu. Nhưng bạn viết cho excel mới nên có thể giảm số dòng của bảng tính xuống 65000 dòng để không bị lỗi (không biết có đúng không?)

 

[HUONGHCKT]

Rất hay và rất công phu. Nhưng bạn viết cho excel mới nên có thể giảm số dòng của bảng tính xuống 65000 dòng để không bị lỗi (không biết có đúng không?)

Cảm ơn bạn đã góp ý. Thực ra cũng không cần phải lấy đến hơn 1 triệu dòng để từ đó tìm ra dòng cuối. Câu lệnh . Range("A1000000").End(xlup).Row, hoàn toàn có thể thay bằng .Range("A65536").End(xlUp).Row và câu lệnh này sẽ phù hợp với tất cả các loại máy tính chạy hệ điều hành Offce 2003 trở lên. Và sửa nó thì ai biết chút ít về code VBA đều có thể sửa được. Tôi tin là như vậy.

 

[samthai8017]

Bước vào năm học mới, Gần đây thấy rất nhiều bạn hỏi nhiều vấn đề về PCGD. Xin chia sẻ 1 file giúp cho các bạn quan tâm có thể làm tốt vấn đề in ấn Phiếu điều tra PCGD. Hy vọng giúp ích và giảm tải phần nào công việc mà người làm công tác PCGD phải thực hiện.
Xem hướng dẫn sử dụng trong file đính kèm.
Trong file có sử dùng code của 1 số tác giả @batman1( Hàm UDF Bodau), Hàm UDF (sort mảng) của anh @ HSanbi thì phải. Rất mong các tác giả cảm thông.
Code của tôi ( một người không có căn bản về VBA) viết chắc chắn sẽ còn nhiều điểm còn phải hoàn thiện thêm. Rất mong anh chị em đóng góp thêm (kể cả gạch đá cũng sẵn lòng đón nhận) để bản thân có thêm kinh nghiệm và file chạy tốt hơn với hy vọng giúp được cho ai đó nếu cần. Trân trọng cảm ơn.

Bạn ơi cho mình xin cách sử dụng file phiếu điều tra với ạ, chỉ cần bấm vào AJ thì nó hiện ra danh sách đối tượng để in đúng không ah. Mjnh bấm vào AJ chọn số phiếu thì báo lỗi ah. cảm ơn bạn.

 

[HUONGHCKT]

Bạn ơi cho mình xin cách sử dụng file phiếu điều tra với ạ, chỉ cần bấm vào AJ thì nó hiện ra danh sách đối tượng để in đúng không ah. Mjnh bấm vào AJ chọn số phiếu thì báo lỗi ah. cảm ơn bạn.

Bạn có lấy dữ liệu mới vào Sh DS PhieuDieuTra không?
Khi chọn 1 số phiếu trong list sổ xuống là ta được ngay kết quả rồi (các ô các dòng đã được gán dữ liệu vào rồi).===> Bạn xem kỹ hướng dẫn sử dụng ở Sh HuongDanSuDung nhé.
Bạn có thể chụp ảnh màn hình cái lỗi ấy và gửi lên đây để xem lỗi ấy là gì nhé.

 

[samthai8017]

Bạn có lấy dữ liệu mới vào Sh DS PhieuDieuTra không?
Khi chọn 1 số phiếu trong list sổ xuống là ta được ngay kết quả rồi (các ô các dòng đã được gán dữ liệu vào rồi).===> Bạn xem kỹ hướng dẫn sử dụng ở Sh HuongDanSuDung nhé.
Bạn có thể chụp ảnh màn hình cái lỗi ấy và gửi lên đây để xem lỗi ấy là gì nhé.

Đây ah. Khi minh ấn vào mũi tên lên xuống thì nó hiện ra file code. CÒn ấn vào "In phiếu này" thì hiện ra lỗi ạ. Mình chưa chưa lấy dữ liệu mới vào, đang thử file của bạn. Chân thành cảm ơn bạn giúp đỡ ah.

 

[HUONGHCKT]

Bạn có UtralView không? Nếu có thể ta kết nối Utralview để tôi xem chi tiết cho.
Nếu đã sẵn sàng: Nhắn tin ID và Pass vào zalo của tôi.

 

[samthai8017]

Em cảm ơn a. Em đã vào được file phổ cập mà a đã chia sẻ rồi ah. tuy nhiên em không cho file dữ liệu mới vào Sh DS PhieuDieuTra ở cột AS được ạ. Mong anh chỉ giúp em ah. em cảm ơn ah

 

[HUONGHCKT]

Em cảm ơn a. Em đã vào được file phổ cập mà a đã chia sẻ rồi ah. tuy nhiên em không cho file dữ liệu mới vào Sh DS PhieuDieuTra ở cột AS được ạ. Mong anh chỉ giúp em ah. em cảm ơn ah

Hôm qua thấy bạn nói khi bấm vào nút nào đó bấy giò đã xử lý được chưa? Tôi đề nghị kết nối Utral để tôi xem và xử lý nhưng...
Còn bây giờ Thì :
Bạn bấm vào nút Lấy DS...(nút mũi tiên to đùng quay xuống dưới ấy)===> xuất hiện 1 bảng (tạm gọi là Exploer cho ta tìm các file để lấy dữ liệu, nếu lần sau thì hình như là nó chỉ đến luôn tệp lần trước (trong cùng phiên làm việc) đã lấy)===> Bạn chọn các file cần lấy dữ liệu====>nhấn Open=>lúc này sẽ xuất hiện các bảng hướng dẫn=> chon OK => ta sẽ thu được kết quả là Sh DS... đã có dữ liệu của các file được chọn. Ở Sh Mau... thì danh sách các file đã lấy được ghi đầy đủ cả đường dẫn ở cột AR, 2 cột tiếp theo là Số dòng chứa dữ liệu của file nguồn được gán trong Sh DS..., các cột tiếp theo là số phiếu của các hộ, số nhân khẩu và tên chủ hộ.Lưu ý: Cột AV/Sh Mau... được lấy là các phiếu duy nhất, nếu các file nguồn có số phiếu trùng nhau thì rất có thể sẽ không lấy ra Phieu Đieu Tra được.