Nhờ giúp ẩn dòng Excel bằng VBA

[dung1590]

Chào cả nhà, giúp mình ẩn dòng excel bằng VBA tý, cảm ơn cả nhà

 

[Ronaldinho7]

Chào cả nhà, giúp mình ẩn dòng excel bằng VBA tý, cảm ơn cả nhà

Bạn thử chạy code xem được không?

Sub an_dong()
    Dim a%
    With Sheets("Sheet1")
        Cells.EntireRow.Hidden = False
        a = .Range("C" & Rows.Count).End(xlUp).Row + 1
        Rows(a & ":" & 37).EntireRow.Hidden = True
    End With
End Sub

 

[Maika8008]

Chào cả nhà, giúp mình ẩn dòng excel bằng VBA tý, cảm ơn cả nhà

Đăng nhầm box rồi á.

Sub AnDong()
Dim Frw&, Lrw&
    Cells.EntireRow.Hidden = False
    Frw = Range("I" & Rows.Count).End(xlUp).End(xlUp).Row
    If Frw = 10 Then Exit Sub
    Lrw = Range("I" & Rows.Count).End(xlUp).Row
    Range("A" & Frw + 1 & ":A" & Lrw - 1).EntireRow.Hidden = True
End Sub

 

[SA_DQ]

Khai báo 1 tham biến Rng As Range
Duyệt dòng nào thỏa cho vô Rng; (Union)
Duyệt hết thì ẩn dòng cái rụp.
Tốc độ tự kiểm chứng, nha.

 

[dung1590]

Bạn thử chạy code xem được không?

Sub an_dong()
    Dim a%
    With Sheets("Sheet1")
        Cells.EntireRow.Hidden = False
        a = .Range("C" & Rows.Count).End(xlUp).Row + 1
        Rows(a & ":" & 37).EntireRow.Hidden = True
    End With
End Sub

Cảm ơn bạn rất nhiều

Bài đã được tự động gộp: 22/3/23

Đăng nhầm box rồi á.

Sub AnDong()
Dim Frw&, Lrw&
    Cells.EntireRow.Hidden = False
    Frw = Range("I" & Rows.Count).End(xlUp).End(xlUp).Row
    If Frw = 10 Then Exit Sub
    Lrw = Range("I" & Rows.Count).End(xlUp).Row
    Range("A" & Frw + 1 & ":A" & Lrw - 1).EntireRow.Hidden = True
End Sub

Bạn ơi ko ẩn được dòng giữa, nếu xóa dòng giữa đi, thì thì chỉ ẩn dòng cuối lên thôi, cảm ơn bạn

 

[Maika8008]

Bạn ơi ko ẩn được dòng giữa, nếu xóa dòng giữa đi, thì thì chỉ ẩn dòng cuối lên thôi, cảm ơn bạn

Chẳng hiểu nói gì: nếu xóa dòng giữa đi, thì thì chỉ ẩn dòng cuối lên thôi,