Ẩn hàng có điều kiện? (2 người xem)

[311280]

Chào các bác, nhờ các bác viết giùm marco ẩn hàng.
Mình cần ẩn hiện hàng E10 đến E34 với điều kiện như sau:
-Nếu E35 trống thì không ẩn hàng E10 đến E34, nếu E35 có giá trị thì sẽ ẩn những hàng từ E10 đến E34 trống, còn những hàng có giá trị không ẩn.
Chân thành cảm ơn trước.

 

[concogia]

Cảm ơn bác, code chạy tốt nhưng khi e đổi tên sheet thì phải sửa lại code như thế nào vậy bác? Bác giúp e tí nữa nha.

Sub AnDong:

Sub AnDong()
    Dim I As Long, A, B
    Application.ScreenUpdating = False
        A = Sheets("COLY").Range("E10:E34").SpecialCells(4).Address
        For Each B In ThisWorkbook.Sheets
           B.Range(A).EntireRow.Hidden = True
        Next B
    Application.ScreenUpdating = True
End Sub

Tên Sheet "CO LY" bỏ khoảng trắng đi, đặt tên Sheet tránh dấu tiếng Việt, khoảng trắng ( nếu cần cho dễ hiểu thì thêm "gạch nối")
Sub BoAn:

Sub BoAn()
     Dim M
     For Each M In ThisWorkbook.Sheets
           M.Cells.EntireRow.Hidden = False
     Next M
 End Sub

Còn....sửa nữa hông ????
Híc
Thân

 

[311280]

Sub AnDong:

Sub AnDong()
    Dim I As Long, A, B
    Application.ScreenUpdating = False
        A = Sheets("COLY").Range("E10:E34").SpecialCells(4).Address
        For Each B In ThisWorkbook.Sheets
           B.Range(A).EntireRow.Hidden = True
        Next B
    Application.ScreenUpdating = True
End Sub

Tên Sheet "CO LY" bỏ khoảng trắng đi, đặt tên Sheet tránh dấu tiếng Việt, khoảng trắng ( nếu cần cho dễ hiểu thì thêm "gạch nối")
Sub BoAn:

Sub BoAn()
     Dim M
     For Each M In ThisWorkbook.Sheets
           M.Cells.EntireRow.Hidden = False
     Next M
 End Sub

Còn....sửa nữa hông ????
Híc
Thân

Dạ thôi, hoàn chỉnh cái này là e mang ơn bác nhiều lắm rồi. Có một lỗi nhỏ là code đang ẩn tất cả các sheet giống như sheet COLY. Ý e là trong file có rất nhiều sheet nhưng 4 sheet gần kề sheet COLY là ẩn theo thôi bác ah. Phiền bác giúp e lần cuối nha.

 

[concogia]

Dạ thôi, hoàn chỉnh cái này là e mang ơn bác nhiều lắm rồi. Có một lỗi nhỏ là code đang ẩn tất cả các sheet giống như sheet COLY. Ý e là trong file có rất nhiều sheet nhưng 4 sheet gần kề sheet COLY là ẩn theo thôi bác ah. Phiền bác giúp e lần cuối nha.

Cái này phải nói rõ mới làm được, thế nào là gần kề, liên tục từ Sheet1 ==> Sheet5 (CodeName) hay bạn đặt tên Sheet lung tung không theo thứ tự nào cả rồi sắp xếp 5 sheet (muốn ẩn) chúng nó ở gần nhau
Tốt nhất bạn đưa file có cấu trúc như file thật (không cần dữ liệu) hoặc tên thật của 5 sheet muốn ẩn ( nhớ tên sheet không dấu tiếng Việt, không khoảng trắng nhé)
Híc

 

[311280]

Sheet1-->sheet5 trong cửa sổ khi ta nhấn Alt-f11 ấy bác. Chẳng hạn Sheet1(COLY), Sheet2(SPT)....bác ơi. Chân thành cảm ơn bác lần nữa.

 

[concogia]

Sheet1-->sheet5 trong cửa sổ khi ta nhấn Alt-f11 ấy bác. Chẳng hạn Sheet1(COLY), Sheet2(SPT)....bác ơi. Chân thành cảm ơn bác lần nữa.

Sub AnDong:

Sub AnDong()
    Dim A, B
    Application.ScreenUpdating = False
        A = Sheets("CO-LY").Range("E10:E34").SpecialCells(4).Address
        For Each B In ThisWorkbook.Sheets
           If B.Index < 6 Then B.Range(A).EntireRow.Hidden = True
        Next B
    Application.ScreenUpdating = True
End Sub

Sub BoAn:

Sub BoAn()
     Dim M
     For Each M In ThisWorkbook.Sheets
         If M.Index < 6 Then M.Cells.EntireRow.Hidden = False
     Next M
End Sub

Thân