Nhờ các bác cao thủ về code viết hộ em demo với nội dung yêu cầu như file đính kèm (1 người xem)

[soonwi]

Em có file dữ liệu và muốn có đoạn code làm ẩn dòng khi không có dữ liệu như đã miêu tả chi tiết trong file, nhờ các cao thủ giúp e với nhé
Trân trọng

 

[hoangvuluan]

điều quan trọng hơn là e muốn khi bất kỳ ô nào của cột B không có dữ liệu thì dòng tương ứng với ô đó ẩn đi và nếu có dữ liệu thì nó hiện ra

Nó ẩn rồi thì làm sao nhập dữ liệu???

 

[soonwi]

Tại cột đó e sử dụng hàm chứ ko nhập tay bác à

 

[hoangvuluan]

Dùng thử code sau trong sự kiện của sheet

Private Sub Worksheet_Calculate()
Dim ra As Range
With Application
.ScreenUpdating = False
.EnableEvents = False
    Set ra = Me.Range("B5:B20000")
    On Error Resume Next
    ra.Rows.EntireRow.Hidden = True
    On Error GoTo 0
    For i = 1 To ra.Rows.Count
        If (Trim(ra(i, 1)) <> "") And (ra(i, 1) <> 0) Then
            ra(i, 1).Rows.EntireRow.Hidden = False
        End If
    Next
Exit_Sub:
    Set ra = Nothing
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub

 

[soonwi]

Dùng thử code sau trong sự kiện của sheet

Private Sub Worksheet_Calculate()
Dim ra As Range
With Application
.ScreenUpdating = False
.EnableEvents = False
    Set ra = Me.Range("B5:B20000")
    On Error Resume Next
    ra.Rows.EntireRow.Hidden = True
    On Error GoTo 0
    For i = 1 To ra.Rows.Count
        If (Trim(ra(i, 1)) <> "") And (ra(i, 1) <> 0) Then
            ra(i, 1).Rows.EntireRow.Hidden = False
        End If
    Next
Exit_Sub:
    Set ra = Nothing
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub

Thanks bác, được rồi a