ẩn hiện cột và dòng có điều kiện

Chia sẻ bởi:hands

★★★★★

‹ Hướng dẫn tìm kiếm ngược từ phải... VBA Ẩn cột theo điều kiện ›

Quảng cáo

em có một bảng tính mà muốn ẩn hiện cột và dòng có điều kiện
cụ thể là :có một S=4 mode ( cái này do mình nhập vào) và 4 bảng tính tương đương với 4 mode (tất cả bốn bảng tính đều giống nhau)
bây giờ em muốn nhập 3mode thì tự động sẽ ẩn đi một bảng tính, tương tự 2 mode
mong các anh chỉ giáo dùm em

Bạn nói rằng:

day la dieu kien
vi du o day co 4 mode thi em co 4 bang tinh
nhung vi du em nhap 3 mdoe thi em muon an di ban tinh cua mode4
2mode thi em muon an di hai bang tinh cua mode1 va mode2

Đọc ko hiểu!
Bạn nói là 1 lần nữa:
-Nhập 1 Mode thì ẩn cái nào, hiện cái nào?
-Nhập 2 Mode thì ẩn cái nào, hiện cái nào?
-Nhập 3 Mode thì ẩn cái nào, hiện cái nào?
-Nhập 4 Mode thì ẩn cái nào, hiện cái nào?
-Xóa đi, không nhập gì thì ẩn hết hay hiện hết?
Bạn thử code sau:

Const maxMode = 4
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iMode As Byte, pMode As Byte
    If (Target.Address = [B1].Address) And (Me.[B1] <> Empty) Then
        pMode = Target
        Application.ScreenUpdating = False
        For iMode = 1 To pMode
            Range("Mode" & iMode).Rows.EntireRow.Hidden = False
        Next
        For iMode = pMode + 1 To maxMode
            Range("Mode" & iMode).Rows.EntireRow.Hidden = True
        Next
        Application.ScreenUpdating = True
    End If
End Sub

Trong đó, tôi giả sử bạn có 4 mode, nếu có nhiều hơn thì thay giá trị thích hợp vào hằng maxMode.
Trong file, tôi dùng validation cho ô B1 để bạn có thể chọn Mode đúng (ở đó tôi giả định bạn có 4 mode, nếu nhiều hơn thì nhập thêm giá trị cho nó)
Bạn xem thêm trong file đính kèm.