Giúp Code In Hàng Loạt Theo điều Kiện | Giải Pháp Excel

• Trang chủ Có gì mới Hoạt động gần nhất Tác giả
• Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
• Video Video về Excel Video về tin học khác Tin tức về tin học chung
• Thông tin mới Featured content Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
• Tài nguyên Đánh giá mới nhất Tìm tài nguyên
• Facebook
• Đóng góp

Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Note Bởi: Tìm kiếm Tìm nâng cao…

• Tìm bài viết mới
• Tìm theo chuyên mục

Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

• Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc

• Trang chủ
• Diễn đàn
• Lập Trình với Excel

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Giúp code in hàng loạt theo điều kiện (1 người xem)

• Thread starter Thread starter ducnv0709
• Ngày gửi Ngày gửi 22/9/20

Người dùng đang xem chủ đề này

Đang trực tuyến: 2 (Thành viên: 0, Khách: 2) D

ducnv0709

Thành viên mới

Tham gia 3/3/13 Bài viết 40 Được thích 4 Chào các anh chị trên GPE, mình có file này muốn nhờ mọi người xem giúp code VBA để có thể in được hàng loạt theo các điều kiện: Ngày thực hiện, mã sản phẩm và công đoạn. Ví dụ ngày 17/9 có 5 sản phẩm, trong mỗi sản phẩm lại có 10 công đoạn, mình muốn in ra chi tiết như trong sheet "phiếu giao việc" từng công đoạn theo mã sản phẩm và theo ngày. Mỗi công đoạn có thể có nhiều chi tiết nên số dòng sẽ khác nhau, từ đó số trang in sẽ khác nhau. Mình đã tạo được bộ lọc theo ngày, mã sản phẩm và công đoạn rồi nhưng chưa biết cách để tạo ra nút để in hàng loạt theo bộ lọc đó. Nhờ mọi người giúp sức nhé. Chân thành cảm ơn.

File đính kèm

• 20200921 - Phieu giao viec BP SON-mau.xlsm 20200921 - Phieu giao viec BP SON-mau.xlsm 152.8 KB · Đọc: 35

Sắp xếp theo thời gian sắp xếp theo bầu chọn

Nhattanktnn

Thành viên gắn bó

Tham gia 11/11/16 Bài viết 3,161 Được thích 4,150 Donate (Momo) Giới tính Nam

ducnv0709 đã viết: Chào các anh chị trên GPE, mình có file này muốn nhờ mọi người xem giúp code VBA để có thể in được hàng loạt theo các điều kiện: Ngày thực hiện, mã sản phẩm và công đoạn. Ví dụ ngày 17/9 có 5 sản phẩm, trong mỗi sản phẩm lại có 10 công đoạn, mình muốn in ra chi tiết như trong sheet "phiếu giao việc" từng công đoạn theo mã sản phẩm và theo ngày. Mỗi công đoạn có thể có nhiều chi tiết nên số dòng sẽ khác nhau, từ đó số trang in sẽ khác nhau. Mình đã tạo được bộ lọc theo ngày, mã sản phẩm và công đoạn rồi nhưng chưa biết cách để tạo ra nút để in hàng loạt theo bộ lọc đó. Nhờ mọi người giúp sức nhé. Chân thành cảm ơn. Nhấp chuột vào đây để mở rộng...

Ngắn gọn là in phần này, khi chọn ngày xong ấn nút là in phải không? Upvote 0 D

ducnv0709

Thành viên mới

Tham gia 3/3/13 Bài viết 40 Được thích 4

Nhattanktnn đã viết: Ngắn gọn là in phần này, khi chọn ngày xong ấn nút là in phải không? View attachment 245926 Nhấp chuột vào đây để mở rộng...

Đúng rồi bạn ạ, khi chọn ngày bấm nút in là sẽ in ra các bản in theo mã sp và công đoạn. Hiện tại mình đang in thủ công: chọn ngày, chọn mã sản phẩm, chọn công đoạn rồi căn chỉnh dòng xem dòng nào không có dữ liệu thì ẩn đi rồi mới in ra nên mất rất nhiều thời gian. Vì vậy có code để in được hết thì tốt quá. Cảm ơn bạn. Upvote 0

Nhattanktnn

Thành viên gắn bó

Tham gia 11/11/16 Bài viết 3,161 Được thích 4,150 Donate (Momo) Giới tính Nam

ducnv0709 đã viết: Đúng rồi bạn ạ, khi chọn ngày bấm nút in là sẽ in ra các bản in theo mã sp và công đoạn. Hiện tại mình đang in thủ công: chọn ngày, chọn mã sản phẩm, chọn công đoạn rồi căn chỉnh dòng xem dòng nào không có dữ liệu thì ẩn đi rồi mới in ra nên mất rất nhiều thời gian. Vì vậy có code để in được hết thì tốt quá. Cảm ơn bạn. Nhấp chuột vào đây để mở rộng...

Khi in thì bạn không cần thiết phải bấm nút unhide, nhưng trong file mình làm thêm để bạn tiện kiểm tra nếu cần Mục chữ ký mình gộp 2 dòng vào thành 1 dòng, tránh trường hợp khi in một dòng trang trước, dòng trang sau PHP: Sao chép. Const SigRow As Long = 121 Const FirstRow As Long = 7 Private Sub Print_Out() Dim Lr As Long Application.ScreenUpdating = False With Sheet5 Call Unhide Lr = .Columns("B").Find("*", SearchDirection:=xlPrevious, _ SearchOrder:=xlByRows, LookIn:=xlValues).Row If Lr <= FirstRow Then MsgBox "Chua co du lieu" Exit Sub End If .Rows(Lr + 1 & ":" & SigRow - 2).Hidden = True .PrintOut End With Application.ScreenUpdating = True End Sub Private Sub Unhide() With Sheet5 .Rows(FirstRow & ":" & .Range("B" & Rows.Count).Row).Hidden = False End With End Sub

File đính kèm

• 20200921 - Phieu giao viec BP SON-mau.xlsm 20200921 - Phieu giao viec BP SON-mau.xlsm 159.9 KB · Đọc: 55

Upvote 0 D

ducnv0709

Thành viên mới

Tham gia 3/3/13 Bài viết 40 Được thích 4

Nhattanktnn đã viết: Khi in thì bạn không cần thiết phải bấm nút unhide, nhưng trong file mình làm thêm để bạn tiện kiểm tra nếu cần Mục chữ ký mình gộp 2 dòng vào thành 1 dòng, tránh trường hợp khi in một dòng trang trước, dòng trang sau PHP: Sao chép. Const SigRow As Long = 121 Const FirstRow As Long = 7 Private Sub Print_Out() Dim Lr As Long Application.ScreenUpdating = False With Sheet5 Call Unhide Lr = .Columns("B").Find("*", SearchDirection:=xlPrevious, _ SearchOrder:=xlByRows, LookIn:=xlValues).Row If Lr <= FirstRow Then MsgBox "Chua co du lieu" Exit Sub End If .Rows(Lr + 1 & ":" & SigRow - 2).Hidden = True .PrintOut End With Application.ScreenUpdating = True End Sub Private Sub Unhide() With Sheet5 .Rows(FirstRow & ":" & .Range("B" & Rows.Count).Row).Hidden = False End With End Sub Nhấp chuột vào đây để mở rộng...

Cảm ơn bạn rất nhiều, mình sẽ xem thử nhé. Upvote 0 D

ducnv0709

Thành viên mới

Tham gia 3/3/13 Bài viết 40 Được thích 4

Nhattanktnn đã viết: Khi in thì bạn không cần thiết phải bấm nút unhide, nhưng trong file mình làm thêm để bạn tiện kiểm tra nếu cần Mục chữ ký mình gộp 2 dòng vào thành 1 dòng, tránh trường hợp khi in một dòng trang trước, dòng trang sau PHP: Sao chép. Const SigRow As Long = 121 Const FirstRow As Long = 7 Private Sub Print_Out() Dim Lr As Long Application.ScreenUpdating = False With Sheet5 Call Unhide Lr = .Columns("B").Find("*", SearchDirection:=xlPrevious, _ SearchOrder:=xlByRows, LookIn:=xlValues).Row If Lr <= FirstRow Then MsgBox "Chua co du lieu" Exit Sub End If .Rows(Lr + 1 & ":" & SigRow - 2).Hidden = True .PrintOut End With Application.ScreenUpdating = True End Sub Private Sub Unhide() With Sheet5 .Rows(FirstRow & ":" & .Range("B" & Rows.Count).Row).Hidden = False End With End Sub Nhấp chuột vào đây để mở rộng...

Bạn ơi cho mình hỏi chút là hiện tại mới in được 1 công đoạn hay 1 mã sản phẩm thôi à, ý mình mong muốn là sẽ xuất in ra tất cả các công đoạn và mã sản phẩm theo ngày đó. ví dụ ngày 18 có 5 sản phẩm, mỗi sản phẩm có 10 công đoạn như vậy sẽ có 5x10=50 bản in theo từng công đoạn và mã sản phẩm của ngày đó. Upvote 0 D

ducnv0709

Thành viên mới

Tham gia 3/3/13 Bài viết 40 Được thích 4

ducnv0709 đã viết: Bạn ơi cho mình hỏi chút là hiện tại mới in được 1 công đoạn hay 1 mã sản phẩm thôi à, ý mình mong muốn là sẽ xuất in ra tất cả các công đoạn và mã sản phẩm theo ngày đó. ví dụ ngày 18 có 5 sản phẩm, mỗi sản phẩm có 10 công đoạn như vậy sẽ có 5x10=50 bản in theo từng công đoạn và mã sản phẩm của ngày đó. Nhấp chuột vào đây để mở rộng...

Nhờ mọi người thêm code giúp mình nhé. Cảm ơn nhiều Upvote 0 B

BuiQuangThuan

❆❆❆❆❆❆❆❆❆❆❆❆

Tham gia 17/12/10 Bài viết 2,784 Được thích 3,392 Giới tính Nam

ducnv0709 đã viết: Nhờ mọi người thêm code giúp mình nhé. Cảm ơn nhiều Nhấp chuột vào đây để mở rộng...

Bạn tạo ra 1 sheet nguồn nữa. Bao gồm Công đoạn. ID sản phẩm. Upvote 0 D

ducnv0709

Thành viên mới

Tham gia 3/3/13 Bài viết 40 Được thích 4

buiquangthuan đã viết: Bạn tạo ra 1 sheet nguồn nữa. Bao gồm Công đoạn. ID sản phẩm. Nhấp chuột vào đây để mở rộng...

Cảm ơn bạn, vì mình chưa hiểu lắm về code VBA nên chưa tự viết ra được, nhờ mọi người chỉ dẫn. Upvote 0 D

ducnv0709

Thành viên mới

Tham gia 3/3/13 Bài viết 40 Được thích 4

ducnv0709 đã viết: Bạn ơi cho mình hỏi chút là hiện tại mới in được 1 công đoạn hay 1 mã sản phẩm thôi à, ý mình mong muốn là sẽ xuất in ra tất cả các công đoạn và mã sản phẩm theo ngày đó. ví dụ ngày 18 có 5 sản phẩm, mỗi sản phẩm có 10 công đoạn như vậy sẽ có 5x10=50 bản in theo từng công đoạn và mã sản phẩm của ngày đó. Nhấp chuột vào đây để mở rộng...

ducnv0709 đã viết: Bạn ơi cho mình hỏi chút là hiện tại mới in được 1 công đoạn hay 1 mã sản phẩm thôi à, ý mình mong muốn là sẽ xuất in ra tất cả các công đoạn và mã sản phẩm theo ngày đó. ví dụ ngày 18 có 5 sản phẩm, mỗi sản phẩm có 10 công đoạn như vậy sẽ có 5x10=50 bản in theo từng công đoạn và mã sản phẩm của ngày đó. Nhấp chuột vào đây để mở rộng...

Nhờ mọi người thêm code giúp mình được không ạ. Mình cảm ơn nhiều. Upvote 0 D

ducnv0709

Thành viên mới

Tham gia 3/3/13 Bài viết 40 Được thích 4

ducnv0709 đã viết: Bạn ơi cho mình hỏi chút là hiện tại mới in được 1 công đoạn hay 1 mã sản phẩm thôi à, ý mình mong muốn là sẽ xuất in ra tất cả các công đoạn và mã sản phẩm theo ngày đó. ví dụ ngày 18 có 5 sản phẩm, mỗi sản phẩm có 10 công đoạn như vậy sẽ có 5x10=50 bản in theo từng công đoạn và mã sản phẩm của ngày đó. Nhấp chuột vào đây để mở rộng...

Híc, có bạn nào giúp mình được đoạn code này không. Cảm ơn rất nhiều. Upvote 0

Ba Tê

Cạo Rồi Khỏi Gội

Tham gia 5/5/09 Bài viết 12,123 Được thích 17,590 Giới tính Nam

ducnv0709 đã viết: Híc, có bạn nào giúp mình được đoạn code này không. Cảm ơn rất nhiều. Nhấp chuột vào đây để mở rộng...

Tên Sheet mà có dấu tiếng Việt thì làm khó nhau trong VBA rồi. Tôi không có máy in, nên bạn tìm dòng bên dưới,Thay PrintPreview thành PrintOut PHP: Sao chép. .Range("A1:Q205").PrintPreview 'PrintOut' Dòng 201 đến 205 bạn nhập cái gì tùy ý

File đính kèm

• 20200921 - Phieu giao viec BP SON-mau.rar 20200921 - Phieu giao viec BP SON-mau.rar 47.5 KB · Đọc: 38

Upvote 0 D

ducnv0709

Thành viên mới

Tham gia 3/3/13 Bài viết 40 Được thích 4

Ba Tê đã viết: Tên Sheet mà có dấu tiếng Việt thì làm khó nhau trong VBA rồi. Tôi không có máy in, nên bạn tìm dòng bên dưới,Thay PrintPreview thành PrintOut PHP: Sao chép. .Range("A1:Q205").PrintPreview 'PrintOut' Dòng 201 đến 205 bạn nhập cái gì tùy ý Nhấp chuột vào đây để mở rộng...

Dạ vâng anh. Em sẽ nghiên cứu thử anh nhé. Em cảm ơn nhiều Upvote 0 D

ducnv0709

Thành viên mới

Tham gia 3/3/13 Bài viết 40 Được thích 4

Ba Tê đã viết: Tên Sheet mà có dấu tiếng Việt thì làm khó nhau trong VBA rồi. Tôi không có máy in, nên bạn tìm dòng bên dưới,Thay PrintPreview thành PrintOut PHP: Sao chép. .Range("A1:Q205").PrintPreview 'PrintOut' Dòng 201 đến 205 bạn nhập cái gì tùy ý Nhấp chuột vào đây để mở rộng...

Cảm ơn anh rất nhiều vì file chạy rất tốt và em sẽ lưu ý khi đặt tên sheet. Nếu được anh có thể chỉnh lại code để cho chỉ chạy theo ngày được không ạ vì hiện tại theo file của anh làm đang chạy theo chọn ngày và mã sản phẩm. Thực tế em mong muốn sẽ chỉ chọn ngày thì sẽ in toàn bộ các công đoạn của các mã sản phẩm có trong ngày đó vì nếu để chọn cả ngày và mã sản phẩm thì không rõ trong ngày đó có bao nhiêu mã sản phẩm để chọn. Nếu phức tạp quá thì em dùng file này cũng là ổn rồi ạ. Em cảm ơn. Upvote 0

Ba Tê

Cạo Rồi Khỏi Gội

Tham gia 5/5/09 Bài viết 12,123 Được thích 17,590 Giới tính Nam

ducnv0709 đã viết: Cảm ơn anh rất nhiều vì file chạy rất tốt và em sẽ lưu ý khi đặt tên sheet. Nếu được anh có thể chỉnh lại code để cho chỉ chạy theo ngày được không ạ vì hiện tại theo file của anh làm đang chạy theo chọn ngày và mã sản phẩm. Thực tế em mong muốn sẽ chỉ chọn ngày thì sẽ in toàn bộ các công đoạn của các mã sản phẩm có trong ngày đó vì nếu để chọn cả ngày và mã sản phẩm thì không rõ trong ngày đó có bao nhiêu mã sản phẩm để chọn. Nếu phức tạp quá thì em dùng file này cũng là ổn rồi ạ. Em cảm ơn. Nhấp chuột vào đây để mở rộng...

Bạn kiểm tra xem sao, nhiều mã, nhiều công đoạn thành nhiều trang in, không kiểm tra bằng mắt được, chỉ có thể in ra rồi kiểm tra thôi.

File đính kèm

• Phieu giao viec.xlsb Phieu giao viec.xlsb 54.3 KB · Đọc: 67

Upvote 0 D

ducnv0709

Thành viên mới

Tham gia 3/3/13 Bài viết 40 Được thích 4

Ba Tê đã viết: Bạn kiểm tra xem sao, nhiều mã, nhiều công đoạn thành nhiều trang in, không kiểm tra bằng mắt được, chỉ có thể in ra rồi kiểm tra thôi. Nhấp chuột vào đây để mở rộng...

Cảm ơn anh nhiều nhé Upvote 0 Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

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

Copilot bình luận các ván cờ vua từng ngày. (1 người xem)

• • 

• SA_DQ
• 3/11/25
• Chia sẻ

Trả lời 22 Đọc 936 Hôm nay lúc 15:32 SA_DQ hỏi về công thức tách kí tự từ chuỗi

• Momominh
• Hôm qua, lúc 11:52
• Hàm và công thức Excel

Trả lời 4 Đọc 117 Hôm nay lúc 14:51 dungpham01 D S TỰ ĐỘNG CẬP NHẬT DỮ LIỆU

• sangdennh
• Thứ sáu lúc 09:55
• Hàm và công thức Excel

Trả lời 13 Đọc 364 Hôm nay lúc 14:35 DeTong D File.xlsx hay bị tự động out, khi mở lại báo lỗi repaired và chỉ lưu được đến lần last saved gần nhất ạ (1 người xem)

• zonmaomao
• Thứ sáu lúc 21:50
• Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 3 Đọc 78 Hôm nay lúc 12:38 huhumalu H T Nhờ làm file excel quản lý kho N-X-T theo vị trí

• • 

• Tuan_Leok
• 1/11/18
• Excel Ứng Dụng

Trả lời 15 Đọc 5K Hôm qua, lúc 18:11 thanhphongtslocphat

• Question Question

Liệt kê tổ hợp chập k của nhóm n phần tử.

• • 
  • 

• NguyenNgocThuHien
• 5/12/17
• Lập Trình với Excel

Trả lời 55 Đọc 19K Thứ sáu lúc 14:14 tohop T G Em xin hỏi hàm Vlook up ạ!

• giangong
• Thứ sáu lúc 10:23
• Hàm và công thức Excel

Trả lời 1 Đọc 70 Thứ sáu lúc 10:38 dungpham01 D Chương trình lập Báo cáo khảo sát Địa chất công trình GeoSection

• • 

• PhanTuHuong
• 7/10/21
• Xây dựng ứng dụng.

Trả lời 10 Đọc 7K Thứ năm lúc 14:52 PhanTuHuong 2 Xin hỏi về Công thức tính tiết theo PPCT (phân phối chương trình) trong Lịch báo giảng tự động (1 người xem)

• 2013myvietnam
• Thứ tư lúc 20:22
• Excel và Giáo Dục

Trả lời 9 Đọc 304 Thứ năm lúc 14:25 2013myvietnam 2 V Giúp tạo bảng phân công lịch trực tự động

• • 

• vudaicacvatn
• Thứ tư lúc 17:05
• Những vấn đề chung

Trả lời 4 Đọc 160 Thứ năm lúc 08:51 thanthanhan [GPE21] ỨNG DỤNG POWER QUERY TRONG ĐỐI CHIẾU DỮ LIỆU HÓA ĐƠN ĐIỆN TỬ VÀ DỮ LIỆU KẾ TOÁN

• • 

• GPE-Trợ Lý
• 21/12/25
• Học tập Online

Trả lời 1 Đọc 10K Thứ năm lúc 05:26 GPE-Trợ Lý Nhờ các cao nhân chỉ giúp file excel quá nặng. không không biết nguyên nhân

• hanhlx88
• Thứ hai lúc 13:02
• Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 5 Đọc 230 Thứ tư lúc 22:56 Mr.hieudoanxd Q Nhờ các anh chị giúp cho công thức đếm số khách hàng theo File đính kèm

• QUANSUNG
• Thứ hai lúc 10:15
• Hướng dẫn sử dụng các hàm trong Excel

Trả lời 8 Đọc 277 Thứ tư lúc 16:31 dungpham01 D T Nhờ các Pro giúp thiết lập bảng excel

• thanhkybk
• Thứ hai lúc 17:53
• Hàm và công thức Excel

Trả lời 10 Đọc 454 Thứ tư lúc 15:19 thanhkybk T D

• Question Question

Tách dòng tự động theo điều kiện bằng VBA

• • 

• duongnhuxuyen
• 12/12/25
• Lập Trình với Excel

Trả lời 20 Đọc 768 Thứ ba lúc 10:32 ptm0412 D Công thức tính thuế TNCN cho người lao động nước ngoài

• Dinh Hong Nhung
• Thứ hai lúc 10:04
• Hàm và công thức Excel

Trả lời 1 Đọc 210 Thứ hai lúc 15:05 Phan Thế Hiệp D Công thức tính thuế thu nhập cá nhân mới nhất theo mức 5 bậc (1 người xem)

• Dinh Hong Nhung
• 11/12/25
• Hàm và công thức Excel

Trả lời 16 Đọc 2K Thứ hai lúc 13:55 dungpham01 D L [Nhờ giúp đỡ] Tìm khoảng thời gian bị gối, hoặc trùng nhau

• Lá chanh
• 26/12/25
• Hàm và công thức Excel

Trả lời 8 Đọc 243 Thứ hai lúc 05:36 lamvankhoat1 L B Tính 1 đồng Doanh thu thuần mang về thì còn lại được bao nhiêu đồng EBITDA

• Bobby52
• 27/12/25
• Hàm và công thức Excel

Trả lời 0 Đọc 121 27/12/25 Bobby52 B Bán sách Excel nâng cao để ủng hộ đồng bào bão lũ năm 2025!

• • 

• PhanTuHuong
• 10/12/25
• Câu lạc bộ hoạt động xã hội

Trả lời 6 Đọc 562 25/12/25 PhanTuHuong Xem thêm… Chia sẻ: Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

Thành viên có số lượng bài viết cao nhất tháng

• sangdennh 7
• Phan Thế Hiệp 5
• 2013myvietnam 4
• Duy Tùng 9x 3
• DeTong 3
• dungpham01 3
• thanhphongtslocphat 2
• zonmaomao 2
• huhumalu 2
• huuthang_bd 1
• thanthanhan 1
• PhanTuHuong 1
• giangong 1
• tohop 1
• Momominh 1

Thành viên có điểm tương tác cao nhất tháng

• Phan Thế Hiệp 10
• 2013myvietnam 5
• thanthanhan 2
• PhanTuHuong 2
• Duy Tùng 9x 1
• huhumalu 1

Thời gian đếm ngược.

000 Ngày 00 Giờ 00 phút 00 giây Thân mời tham dự sự kiện sinh nhật GPE 2025

• Trang chủ
• Diễn đàn
• Lập Trình với Excel

• Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…

Back Top Bottom