ẩn và hiện các dòng (1 người xem)

[thlamvba]

Các pro mình có file này các pro giúp mình nhé.
Mình xin chân thành cảm ơn!

 

[thlamvba]

Các pro giứp mình với nhé

 

[hoangvuluan]

Bạn sử dụng sự kiện change của worksheet để thực hiện yêu cầu của mình theo code sau:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Union([A4], [C16])) Is Nothing Then Exit Sub
Dim ra As Range
With Application
.ScreenUpdating = False
.EnableEvents = False
 
    If Target.Address = [A4].Address Then
        If Left([B4], 1) = "C" Then 'Co buon ban'
            Me.Rows("6:9").EntireRow.Hidden = False
        Else 'Muc dich khac'
            Me.Rows("6:9").EntireRow.Hidden = True
        End If
    Else
        Set ra = [A20:G89]
        ra.Rows.EntireRow.Hidden = True
        ra.Rows("1:" & 7 * Target).EntireRow.Hidden = False
    End If
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub

Nhớ copy code vào cửa sổ VBE nhé và thiết lập cho phép sử dụng macro.

 

[thlamvba]

Cảm ơn bạn rất nhiều, mình làm được rồi!