Hướng Dẫn Tạo Add-in Ẩn Các Dòng Trống Trong Excel (Kèm File Mẫu)

Hướng Dẫn Sử Dụng Add-in Ẩn Dòng Trống Trong Excel (Kèm File Mẫu)

Add-in này có chức năng ẩn các dòng trống để tiện cho việc xem hoặc in ấn. Ví dụ, mỗi tháng có một sheet Nhật ký thu chi theo mẫu sẵn. Người nhập liệu chỉ cần copy sheet mẫu để nhập cho tháng mới, tạo ra nhiều dòng trống để nhập liệu. Khi dữ liệu ít, các dòng trống này sẽ thừa. Mỗi lần muốn xem hoặc in ấn, bạn phải xóa hoặc ẩn các dòng trống này.

Công thức của Add-in: Kiểm tra dữ liệu từng dòng của cột 1. Nếu không có dữ liệu, dòng đó sẽ bị ẩn (cột 1 thường được dùng để đánh số thứ tự trong các bảng biểu).

Phạm vi tác động: Tất cả các sheet và 1000 dòng đầu tiên của mỗi sheet.

code bạn sẽ sai nếu người ta chỉ nhập ở cột B không nhập ở cột A nhé. bạn nên thêm
Application.ScreenUpdating = False
…..code…………
Application.ScreenUpdating = True
để tắt chức năng cập nhật màn hình nhé
sử dụng code này xem

Dim Lr, Lc As String
Sub HideRows()
Application.ScreenUpdating = False
On Error Resume Next
Application.ScreenUpdating = False
Lr = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Lc = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
If Lr = 0 Then Exit Sub
For I = 1 To Lr
    For j = 0 To Lc - 1
    If Range("A1").Offset(I - 1, j).Value = "" Then
GoTo nexj
    Else
GoTo nexi
    End If
nexj:
    Next j
If j = Lc Then Rows(I).Hidden = True
nexi:
Next I
Application.ScreenUpdating = True
End Sub
Sub UnHideRows()
Application.ScreenUpdating = False
On Error Resume Next
Lr = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Rows("1:" & Lr).Hidden = False
Application.ScreenUpdating = True
End Sub

Cách Ẩn Dòng Trống Trong Excel Bằng SpecialCells
Nếu muốn ẩn dòng trống trong Excel, bạn chỉ cần một câu lệnh duy nhất. Sử dụng SpecialCells có thể ẩn sạch các dòng trống mà không cần đến hai vòng lặp For Next như bạn đang sử dụng. Dưới đây là mẫu bạn có thể tham khảo và tùy biến theo nhu cầu của mình:

Sub Hide()
Selection.SpecialCells(4).EntireRow.Hidden = True
End Sub

Hướng dẫn chi tiết:

1. Bôi đen chữ SpecialCells và nhấn F1 để xem các điều kiện có sẵn.
2. Các số 1, 2, 3,… là mã hóa của các tùy chọn (số 4 ở đây là Blank).
3. Trong vùng chọn, dòng nào có ký tự trống sẽ bị ẩn.

Lưu ý:
Sử dụng SpecialCells yêu cầu bạn phải có kiến thức cơ bản về VBA. Nếu bạn biết cách sử dụng, nó sẽ rất hữu ích. Nếu không, bạn có thể gặp khó khăn.

Nếu bạn gặp vấn đề, hãy đưa dữ liệu của bạn lên đây để được hỗ trợ cụ thể hơn.

Khóa học SprinGO phù hợp

Khóa học Power PI – Ứng dung trong Nhân sự

TỔNG QUAN KHÓA HỌC: POWER BI CHO NGÀNH NHÂN SỰ Khóa học Power BI cho Nhân sự được thiết kế dành riêng cho các...

Xem khóa học