Bỏ qua nội dung chính

Làm cách nào để loại trừ ô hoặc khu vực nhất định khỏi in trong Excel?

Tác giả: Siluvia Sửa đổi lần cuối: 2020-07-23

Trong khi in trang tính, bạn có thể cần loại trừ giá trị của các ô hoặc khu vực nhất định khỏi việc in cho một số mục đích. Các phương pháp trong bài viết này sẽ chỉ cho bạn cách loại trừ một số ô hoặc vùng nhất định khỏi việc in chi tiết.

Loại trừ ô hoặc khu vực nhất định khỏi in bằng cách tùy chỉnh định dạng ô
Loại trừ ô hoặc khu vực nhất định khỏi in bằng mã VBA


Loại trừ ô hoặc khu vực nhất định khỏi in bằng cách tùy chỉnh định dạng ô

Như ảnh chụp màn hình bên dưới được hiển thị, bạn cần loại trừ hàng số 5 và 9 trong khi in trang tính. Trước khi in, bạn có thể tùy chỉnh định dạng của ô hoặc khu vực nhất định để ẩn nội dung ô để đạt được nó. Hãy làm như sau.

1. Chọn ô hoặc khu vực bạn sẽ loại trừ khỏi in (ở đây tôi chọn nhiều dải ô A6: C6 và A10: C10), sau đó nhấn Ctrl + 1 đồng thời để mở hộp thoại Định dạng ô.

2. bên trong Format Cells hộp thoại, nhấn Tuỳ chỉnh trong Phân loại hộp dưới Con số rồi nhập ba dấu chấm phẩy ;;; vào Kiểu và cuối cùng nhấp vào OK cái nút. Xem ảnh chụp màn hình:

Bây giờ tất cả nội dung trong các phạm vi đã chọn sẽ bị ẩn ngay lập tức như hình minh họa bên dưới. Bạn có thể bắt đầu in trang tính ngay bây giờ.

Lưu ý: Sau khi in, bạn có thể xóa các dấu chấm phẩy bạn đã nhập ở bước 2 khỏi hộp thoại Định dạng Ô để hiển thị nội dung ô.


Loại trừ ô hoặc khu vực nhất định khỏi in bằng mã VBA

Bên cạnh phương pháp trên, bạn có thể áp dụng mã VBA sau để tự động ẩn nội dung của các ô hoặc vùng được chỉ định trong khi in trang tính.

1. nhấn Khác + F11 các phím đồng thời để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp đúp Sổ làm việc này trong Dự án , sau đó sao chép và dán mã VBA bên dưới vào ThisWorkbook (Code) cửa sổ.

Mã VBA: loại trừ ô hoặc khu vực nhất định khỏi in trong Excel

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim xIndex As Long
    If ActiveSheet.Name = "Sheet1" Then
        Cancel = True
        Application.EnableEvents = False
        Application.ScreenUpdating = False
        With ActiveSheet
            xIndex = .Range("A6:C6,A10:C10").Font.ColorIndex
            .Range("A6:C6,A10:C10").Font.Color = vbWhite
            .PrintOut
            .Range("A6:C6,A10:C10").Font.ColorIndex = xIndex
        End With
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
    MsgBox "Print completed!", vbInformation, "Kutools for Excel"
End Sub

Chú thích: Trong mã, Sheet1 là tên trang tính hiện hoạt bạn cần in và A6: C6, A10: C10 là các phạm vi bạn sẽ loại trừ khỏi quá trình in. Vui lòng thay đổi chúng dựa trên nhu cầu của bạn.

3. nhấn Khác + Q đồng thời để đóng cửa sổ Microsoft Visual Basic for Applications.

Bây giờ bạn có thể bắt đầu in trang tính của mình. Sau khi in xong, bạn sẽ nhận được một Kutools cho Excel hộp thoại như hình minh họa bên dưới. Và bạn có thể thấy các phạm vi được chỉ định là khoảng trống trong bản in.


Các bài liên quan:

Công cụ năng suất văn phòng tốt nhất

🤖 Trợ lý AI của Kutools: Cách mạng hóa việc phân tích dữ liệu dựa trên: Thực thi thông minh   |  Tạo mã  |  Tạo công thức tùy chỉnh  |  Phân tích dữ liệu và tạo biểu đồ  |  Gọi các hàm Kutools...
Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao   |  Xóa hàng trống   |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu   |   Vòng không có công thức hữu ích. Cảm ơn !
Siêu tra cứu: Nhiều tiêu chí VLookup    VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọn ....
Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh dãy và cột hữu ích. Cảm ơn !
Các tính năng nổi bật: Tiêu điểm lưới   |  Chế độ xem thiết kế   |   Thanh công thức lớn    Trình quản lý sổ làm việc & trang tính   |  Thư viện tài nguyên (Văn bản tự động)   |  Bảng chọn ngày   |  Kết hợp các bảng tính   |  Mã hóa/Giải mã ô    Gửi email theo danh sách   |  Siêu lọc   |   Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
15 bộ công cụ hàng đầu12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...)   |   50 + Biểu đồ Các loại (Biểu đồ Gantt,...)   |   40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...)   |   19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...)   |   12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...)   |   7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...)   |   ... và nhiều hơn nữa

Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian.  Bấm vào đây để có được tính năng bạn cần nhất...

Mô tả


Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
Comments (3)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
I've recieved an error in my line:

xIndex = .Range("B52:K92").Font.ColorIndex
This comment was minimized by the moderator on the site
Hi Maria,
After modifying the ranges in the VBA code, please press the "Save" button to save the code first, then go to print.
This comment was minimized by the moderator on the site
__________
Rated 5 out of 5
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations