In hàng loạt nhiều sheet trong Excel

Liên hệ QC

baolq1987

Thành viên mới
Tham gia
20/3/18
Bài viết
3
Được thích
1
Giới tính
Nam
Chào mọi người !,
Mình có 1 file hồ sơ như đính kèm bài viết.
Vấn đề mình cần giúp đỡ là cách để in hàng loạt các sheet YCNT, NTCV, KC-BT SAU sau khi lấy dữ liệu từ sheet DanhMuc được link sang.
Chu kỳ như sau:
1. Macro hoặc VBA sẽ tự điền 1 số từ giá trị trong ô C1 vào trong ô B1 (giá trị trong các ô C1, D1 do mình nhập trước) trong sheet DanhMuc
2. Tiến hành in các sheet YCNT, NTCV, KC-BT SAU với căn lề, cài đặt máy in từ trước. số bản in là 1.
3. Macro hoặc VBA sẽ tự điền 1 số tiếp theo có giá trị là C1+1 trong sheet DanhMuc
4. Tiến hành in các sheet YCNT, NTCV, KC-BT SAU với căn lề, cài đặt máy in từ trước. số bản in là 1.
5. Tiếp tục vòng lặp đến khi giá trị trong ô B1 = giá trị D1 thì dừng.
Rất mong các bạn/các anh chị giúp đỡ. Công việc của mình sẽ giảm tải hơn rất nhiều so với việc gõ từng số vào ô B1 rồi nhấn Ctrl+P để in.
Chân thành cảm ơn.
 

File đính kèm

Chào mọi người !,
Mình có 1 file hồ sơ như đính kèm bài viết.
Vấn đề mình cần giúp đỡ là cách để in hàng loạt các sheet YCNT, NTCV, KC-BT SAU sau khi lấy dữ liệu từ sheet DanhMuc được link sang.
Chu kỳ như sau:
1. Macro hoặc VBA sẽ tự điền 1 số từ giá trị trong ô C1 vào trong ô B1 (giá trị trong các ô C1, D1 do mình nhập trước) trong sheet DanhMuc
2. Tiến hành in các sheet YCNT, NTCV, KC-BT SAU với căn lề, cài đặt máy in từ trước. số bản in là 1.
3. Macro hoặc VBA sẽ tự điền 1 số tiếp theo có giá trị là C1+1 trong sheet DanhMuc
4. Tiến hành in các sheet YCNT, NTCV, KC-BT SAU với căn lề, cài đặt máy in từ trước. số bản in là 1.
5. Tiếp tục vòng lặp đến khi giá trị trong ô B1 = giá trị D1 thì dừng.
Rất mong các bạn/các anh chị giúp đỡ. Công việc của mình sẽ giảm tải hơn rất nhiều so với việc gõ từng số vào ô B1 rồi nhấn Ctrl+P để in.
Chân thành cảm ơn.

1547607429184.png
Bạn tham khảo thử
 

File đính kèm

Upvote 0
Cảm ơn PacificPR
Tuy nhiên, sau khi nhìn thấy Msgbox, nhấn yes :) chỉ đc chuyển đến Print Preview, và kích Print thủ công để in lần lượt từng sheet. Sau đó số thứ tự tiếp theo đc điền vào ô B1, và mình tiếp tục click thủ công để in từng sheet.
Có cách nào để bỏ qua Print Preview và in hàng loạt hàng trăm số thứ tự một cách tự động không ạ ?
2.jpg3.jpg
 
Lần chỉnh sửa cuối:
Upvote 0
Cảm ơn PacificPR
Tuy nhiên, sau khi nhìn thấy Msgbox, nhấn yes :) chỉ đc chuyển đến Print Preview, và kích Print thủ công để in lần lượt từng sheet. Sau đó số thứ tự tiếp theo đc điền vào ô B1, và mình tiếp tục click thủ công để in từng sheet.
Có cách nào để bỏ qua Print Preview và in hàng loạt hàng trăm số thứ tự một cách tự động không ạ ?
View attachment 211089View attachment 211090
bạn sửa chỗ này
Mã:
                    Sheets(aTmp(Idx)).PrintPreview
                    'Sheets(aTmp(Idx)).PrintOut
thành thế này
Mã:
                    'Sheets(aTmp(Idx)).PrintPreview
                    Sheets(aTmp(Idx)).PrintOut
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom