Em có một fle quản lý danh sách tàu cá (trước đây đã nhờ bác be09 các dùng vba để tách ra theo cột địa chỉ. Giờ em có một yêu cầu nhỏ cần giúp đỡ là nhờ các anh, chị có thể viết mã vba làm sao mà khi mình tách ra theo tiêu chí từng cột thì các sheet được tách ra sẽ được hiển thị đúng như ở sheet "IN" và ẩn đi những dòng không cần để có thể in ra được. Cảm ơn các anh chị à
Cách lọc dữ liệu ra để in (1 người xem)
- Thread starter quyet12b
- Ngày gửi
Người dùng đang xem chủ đề này
be_09
Biên Hòa, Đồng Nai
- Tham gia
- 9/4/11
- Bài viết
- 9,972
- Được thích
- 9,882
- Nghề nghiệp
- Công chức
Ý bạn khi nhấn nút tách THEO XÃ thì các sheet tách có cấu trúc tiêu đề và phần ký bên dưới phần dữ liệu như 2 sheet tôi làm mẫu trong File sau phải không?
Lần chỉnh sửa cuối:
Dạ anh, ý em là khi mình tách theo xã thì cấu trúc và tiêu đề giống như ở file in như ở trong file em gửi lên ah
be_09
Biên Hòa, Đồng Nai
- Tham gia
- 9/4/11
- Bài viết
- 9,972
- Được thích
- 9,882
- Nghề nghiệp
- Công chức
Do tôi đang bận công việc, nếu đến cuối tuần mà chưa thành viên nào giúp, thì tôi sẽ giúp sau.
dạ cảm ơn anh à
be_09
Biên Hòa, Đồng Nai
- Tham gia
- 9/4/11
- Bài viết
- 9,972
- Được thích
- 9,882
- Nghề nghiệp
- Công chức
Bạn Kiểm tra lại File.
1/ Copy dữ liệu mới vào sheet DATA rồi nhấn nút Copy và Tách sheet, code sẽ thực hiện Copy dữ liệu một số cột cần từ sheet DATA vào sheet Tach_Data.
2/ Do Tách sheet kèm theo gán tiêu đề và định dạng riêng cho từng sheet nên tốc độ hơi chậm (khoảng 2 phút).
3/ Khi chạy code trên máy bạn có thể bị lỗi dòng này (tùy theo máy bạn có thể thay số 600 thành 200, 300 hoặc 400).
.PrintQuality = 600
4/ Khi code chạy xong sẽ hiện thông báo (xem hình).
Lần chỉnh sửa cuối:
b
Bài đã được tự động gộp:
Dạ cảm ơn anh nhiều, có điều em hơi thắc mắc là trong file của anh khi mình sửa canh chỉnh lề cho file mau thì khi tách ra để in các sheet tách không canh chỉnh lề được giống file mẫu phải không anh
be_09
Biên Hòa, Đồng Nai
- Tham gia
- 9/4/11
- Bài viết
- 9,972
- Được thích
- 9,882
- Nghề nghiệp
- Công chức
Sheet MAU chỉ lấy nội dung vào các sheet tách, còn mọi việc khác như: Điều chỉnh trang in, canh lề, canh chiều rộng cột đều nằm trong code (bởi vậy tôi mới nêu là code chạy tốc độ hơi chậm).
1/ Trong bài 6 (mục 2/) tôi nêu rõ rồi mà "2/ Do Tách sheet kèm theo gán tiêu đề và định dạng riêng cho từng sheet" và "Khi chạy code trên máy bạn có thể bị lỗi dòng này".PrintQuality = 600 (tùy theo máy bạn có thể thay số 600 thành 200, 300 hoặc 400).
2/ Canh lề cho các sheet bạn sửa chỗ (0.15) đoạn code này (tương đương với canh lề trong cửa sổ PageSetup) bạn vào 1 sheet tách thì sẽ thấy canh lề trong cửa sổ PageSetup như hình.
3/ Tôi canh trang in (Adjust to) cho các sheet tách là .Zoom = 80, bạn có thể thay đổi chỗ này là 75 hoặc 85 để hiểu.
Mã:
.LeftMargin = Application.InchesToPoints(0.15)
.RightMargin = Application.InchesToPoints(0.15)
.TopMargin = Application.InchesToPoints(0.15)
.BottomMargin = Application.InchesToPoints(0.15)
.PrintQuality = 600
Lần chỉnh sửa cuối:
