Code làm ẩn dòng khi in!

[pham van an]

Nhờ GPE viết đoạn code như sau:
em dùng điều kiện là khi nào có 1 ô ở cột A có giá trị =0 thì ô đó tự chuyển màu hồng để thông báo cho người dùng biết(cái này làm rồi)
em dùng đoạn code trên GPE bảo vệ những cell chứa công thức còn các shell khác dùng bình thường (có code kèm theo)


Nhưng khi dùng đoạn code này thì những dòng chứa đoạn code ấy mình cần ẩn khi in
không được. Vì vậy em nhờ mọi người giúp cách 1 là sữa đoạn code đó vẩn bảo vệ như cũ
nhưng cho phép ẩn dòng (và nếu có thể chèn thêm dòng và kéo công thức thì càng tốt).
Hoặc cách 2 là khi in sẽ không nhìn thấy những ô mà ko cần thiết em đã định dạng màu hồng như hình bên cạnh.

 

[pham van an]

Bởi vì chương trình của em tùy thuộc vào số phần tử cần in nên nhiều khi phải ẩn 1 số dòng. Các bác trên diễn đàn giúp đở em với nhé!!!. Cũng cám ơn nhiều thành viên vào quan tâm xem rồi nhưng vẩn chưa có câu trả lời. Vấn đề này em biết là hơi khó.

 

[adua29]

Theo mình bạn nên thực hiện như sau:
1. Tại A5 bạn nhập công thức =if(istext(F5);max($A$4:$A4)+1;0) và copy xuống các dòng dưới. Mục đích lấy cột F để lựa chọn các đối tượng bạn không muốn in ra (Không in thì đánh ký tự bất kỳ vào hàng tương ứng trong cột F). Khi đó các số thứ tự trong cột a được liên tục.
2. Dấu bỏ các số 0 trong sheet
3. Bạn dùng autofillter để lọc dữ liệu cho toàn bộ danh sách, chọn Nonblank trong cột A để loại bỏ các dòng trống và in ra.
4. Bạn tìm code khoá ô chứa dữ liệu trong diễn đàn để dùng (code chỉ khoá các ô có chứa dữ liệu hoặc ô có dữ liệu vừa được nhập vào) hình như tên file là lockcel.xls mình không nhớ rõ nữa.

 

[thanhtratt]

Bởi vì chương trình của em tùy thuộc vào số phần tử cần in nên nhiều khi phải ẩn 1 số dòng. Các bác trên diễn đàn giúp đở em với nhé!!!. Cũng cám ơn nhiều thành viên vào quan tâm xem rồi nhưng vẩn chưa có câu trả lời. Vấn đề này em biết là hơi khó.

Có nhiều cách làm lắm, Sao bạn k tìm trên diển đàn, bạn xem file nhé

 

[pham van an]

Cám ơn"thanhtratt" nhé.Đoạn code của bạn rất đơn giản nhưng lại rất có ích.Cuộc đời có những cái đơn giản nhưng không phải ai cũng nghi ra .thanks