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ỉ???
Thử file này xem!
Sub HideAndUnHide()
Dim Btt As Button
With Range([L2], [L65536].End(xlUp))
Set Btt = .Parent.Buttons("Btt1")
If Btt.Characters.Text = "Hide" Then
.AutoFilter 1, ">0", , , False
Btt.Characters.Text = "UnHide"
Else
.Parent.AutoFilterMode = False
Btt.Characters.Text = "Hide"
End If
End With
End Sub
Nếu bạn làm theo từng Sheet thì càng đươn giản hơn
Dù dữ liệu thế nào thì cũng phải có cái gì đó để nhận biết. Như file của bạn, tôi dùng từ khóa "Những dòng ko phát sinh" để nhận biết cột cần tìm
Sub HideAndUnHide()
Dim Btt As Button, fRng As Range
Set fRng = Cells.Find(Evaluate("Tmp"), , , xlWhole)
If Not fRng Is Nothing Then
With Range(fRng, Cells(65536, fRng.Column).End(xlUp))
Set Btt = .Parent.Buttons("Btt1")
If Btt.Characters.Text = "Hide" Then
.AutoFilter 1, ">0", , , False
Btt.Characters.Text = "UnHide"
Else
.Parent.AutoFilterMode = False
Btt.Characters.Text = "Hide"
End If
End With
End If
End SubSub HideAndUnHide()
Dim Btt As Button, MyRng As Range
Set MyRng = IIf(ActiveSheet.Name = "Sheet4", Range([M2], [M65536].End(xlUp)), Range([L2], [L65536].End(xlUp)))
With MyRng
Set Btt = .Parent.Buttons("Btt1")
If Btt.Characters.Text = "Hide" Then
.AutoFilter 1, ">0", , , False
Btt.Characters.Text = "UnHide"
Else
.Parent.AutoFilterMode = False
Btt.Characters.Text = "Hide"
End If
End With
End SubSub HideAndUnHide()
Dim Btt As Button, fRng As Range
Set fRng = Cells.Find(Evaluate("Tmp"), , , xlWhole)
If Not fRng Is Nothing Then
With Range(fRng, Cells(65536, fRng.Column).End(xlUp))
Set Btt = .Parent.Buttons("Btt1")
If Btt.Characters.Text = "Hide" Then
.AutoFilter 1, ">0", xlOr, "<>", False
Btt.Characters.Text = "UnHide"
Else
.Parent.AutoFilterMode = False
Btt.Characters.Text = "Hide"
End If
End With
End If
End SubCái tên "Cột cần ẩn" ấy, thực tế nó là cái gì thì bạn cứ vào Define name, sửa lại y chang thế là được. Tôi đã nói ở trên là tôi tìm cột theo từ khóa rồi mà
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim Rng As Range
On Error GoTo thoat
For Each Rng In Sh.Range(Sh.[R1])
Rng.EntireRow.Hidden = Rng.Value = 0
Next
thoat:
End SubSub AnDong()
Dim Rg As Range
Application.ScreenUpdating = False
With ActiveSheet
For Each Rg In .Range(.[A4], .[A65536].End(3).Offset(-2))
If WorksheetFunction.CountA(Rg.Resize(, 5)) = 0 Then
Rg.EntireRow.Hidden = True
Else
Rg.EntireRow.Hidden = False
End If
Next
End With
Application.ScreenUpdating = True
End SubBây giờ là gần 8 giờ sáng... Không biết chú Learning_Excel có cách gì mà đi đến tương lai được vậy ta?
Ndu 96081631 đã viết:
