Hỏi về code tự động Set Print Area cho vùng dữ liệu bất kỳ theo điều kiện? (2 người xem)

[KUMI]

Xin chào mọi người!
Em muốn xem có cách nào tự động SetPrint cho vùng dữ liệu bất kỳ không?
Theo điều kiện vùng (bắt đầu từ ô đầu tiên có dữ liệu đến ô cuối cùng trong có dữ liệu) trong cùng một sheet.
ví dụ như hình đính kèm ạ!
nhưng không phải theo vùng cụ thể (B6:J14) như trong ví dụ đâu ạ.
Mà set theo điều kiện em bôi màu đỏ đó ạ!
Xin Chân thành cám ơn!

 

[KUMI]

Các Thầy ơi Trường hợp trên của em thế nào ạ?
Có giải pháp nào không ạ?

 

[nguyenkhuyen106]

Xin chào mọi người!
Em muốn xem có cách nào tự động SetPrint cho vùng dữ liệu bất kỳ không?
Theo điều kiện vùng (bắt đầu từ ô đầu tiên có dữ liệu đến ô cuối cùng trong có dữ liệu) trong cùng một sheet.
ví dụ như hình đính kèm ạ!
nhưng không phải theo vùng cụ thể (B6:J14) như trong ví dụ đâu ạ.
Mà set theo điều kiện em bôi màu đỏ đó ạ!
Xin Chân thành cám ơn!

Bạn sử dụng câu lệnh này nhé:

Sheet1.PageSetup.PrintArea = Sheet1.UsedRange.Address

 

[KUMI]

Tks bạn rất nhiều... thật đơn giản mà lại rất chính xác.