Ẩn các dòng không có giá trị (1 người xem)

[daubap2006]

Em có sheet kết quả theo công thức đặt trươc, em muốn ẩn đi các dòng không có giá trị để in nội dung cho gọn, tiết kiệm giấy. Các bác giúp em nhé.

 

[phulien1902]

Bạn tham khảo Code này của bạn HMTC

Sub Andong()
Dim sH As Worksheet
Dim i As Long
For Each sH In Worksheets
    If sH.Name <> "Sheet2" Then
        For i = 1 To sH.[A65536].End(xlUp).Row
            If sH.Cells(i, 1) = "" Then
                sH.Cells(i, 1).EntireRow.Hidden = True
            End If
        Next i
    End If
Next
End Sub

 

[nghiaphuc]

Em có sheet kết quả theo công thức đặt trươc, em muốn ẩn đi các dòng không có giá trị để in nội dung cho gọn, tiết kiệm giấy. Các bác giúp em nhé.

Chèn thêm vào sheet KET QUA một CheckBox (ActiveX Control) với tên là CheckBox1 và sử dụng code sau cho CheckBox này:
[GPECODE=vb]Private Sub CheckBox1_Click()
Sheets("KET QUA").[B2:B22,B26:B46].SpecialCells(xlCellTypeFormulas, xlTextValues).EntireRow.Hidden = CheckBox1
CheckBox1.Caption = IIf(CheckBox1, "Show all", "Hide blank")
End Sub[/GPECODE]

 

[daubap2006]

Em thử nhưng vẫn không được. Bác xem thử giúp em. Xin cám ơn bác nhiều.

 

[nghiaphuc]

Em thử nhưng vẫn không được. Bác xem thử giúp em. Xin cám ơn bác nhiều.

Bạn tham khảo trong file nhé.

 

[daubap2006]

chạy ok rồi. Cám ơn bác nhiều.