Sub AnDong()
Dim Rng As Range, MyRng As Range, Ham
Set Ham = Application.WorksheetFunction
Set MyRng = Range(Sheet1.[A5], Sheet1.[A65536].End(xlUp))
On Error Resume Next
With Sheet1.CommandButton1
If .Caption = "Hide" Then
For Each Rng In MyRng
''If Ham.CountIf(Rng.Offset(, 1).Resize(, 4), "0") = 4 Then Rng.EntireRow.Hidden = True
''Neu muon nhung dong rong va nhung gia tri trong hang bang 0 thi nen chon code nay:
If Ham.Sum(Rng.Offset(, 1).Resize(, 4)) = 0 Then Rng.EntireRow.Hidden = True
Next
Else
MyRng.EntireRow.Hidden = False
End If
.Caption = IIf(.Caption = "Hide", "UnHide", "Hide")
End With
End Sub
Private Sub CommandButton1_Click()
Dim Rng As Range, MyRng As Range
Set MyRng = Range(Sheet1.[A5], Sheet1.[A65536].End(xlUp))
On Error Resume Next
With Sheet1.CommandButton1
If .Caption = "Hide" Then
For Each Rng In MyRng
Rng.EntireRow.Hidden = WorksheetFunction.CountA(Rng.Resize(, 5)) = 0
Next
Else
MyRng.EntireRow.Hidden = False
End If
.Caption = IIf(.Caption = "Hide", "UnHide", "Hide")
End With
End Sub
Muốn như thế thì bạn làm:
Private Sub Worksheet_Activate()
Dim Rng As Range
For Each Rng In Sheet1.Range("A5:A" & Sheet1.[A65500].End(xlUp).Row)
If Application.WorksheetFunction.CountIf(Rng.Offset(, 1).Resize(, 4), "0") = 4 Then Rng.EntireRow.Hidden = True
Next
End Sub
Nếu vùng để kiểm tra cố định là vùng L3:L60 thì code chỉ cần như vầy là được (tất nhiên là chỗ Sheet1 bạn phải sửa cho phù hợp với thực tế):
Sub AnDong()
Dim Rng As Range
For Each Rng In Sheet1.[L3:L60]
Rng.EntireRow.Hidden = Rng.Value = 0
Next
End SubSub AnDong()
Dim Rng As Range
For Each Rng In Sheet1.Range("Vungan")
Rng.EntireRow.Hidden = Rng.Value = 0
Next
End SubSub AnDong()
Dim Rng As Range
Dim Sh() As String
ReDim Sh(1 To 3)
Sh(1) = Sheet1.Name
Sh(2) = Sheet2.Name
Sh(3) = Sheet3.Name
For i = 1 To 3
For Each Rng In Worksheets(Sh(i)).Range("Vungan" & i)
Rng.EntireRow.Hidden = Rng.Value = 0
Next: Next
End SubThật ra tất cả các cách hướng dẫn vẫn mang tính tương đối. Nếu tác giả chỉnh sửa số liệu ngay tại sheet có số hàng cần ẩn thì muốn nó hide hay unhide cũng phải nhảy qua sheet khác rồi quay lại sheet này mới có "ép phê". Như vậy, thà cứ việc thay đổi số liệu thoải mái cho đã, rồi nhấn nút cái "kịt" là xong, chẳng lẻ lại lười biếng tới mức không nhấp được cái nút nhỉ???
