Na minha folha de teste, criei dois botões de alternância:
-
ToggleButton1
(oculta e mostra 0 na coluna I) -
ToggleButton2
(oculta e mostra linhas 7: 491)
Aqui está o código para ambos:
Option Explicit
Private Sub ToggleButton1_Click()
With Me
If .ToggleButton1.Value = False Then
If .AutoFilterMode Then .UsedRange.AutoFilter
.ToggleButton1.Caption = "Hide 0's"
Else
.UsedRange.Columns(9).AutoFilter Field:=1, Criteria1:="<>0"
.ToggleButton1.Caption = "Show 0's"
End If
End With
End Sub
Private Sub ToggleButton2_Click()
Dim e7 As String, changed As Boolean
With Me
e7 = .Range("E7").Value2
If .ToggleButton2.Value = False Then
.Rows("7:491").EntireRow.Hidden = False
.ToggleButton2.Caption = "Hide Rows"
Else
changed = (e7 = "Passed" Or e7 = "Failed")
.Rows("7:491").EntireRow.Hidden = changed
If changed Then .ToggleButton2.Caption = "Show All Rows"
End If
End With
End Sub
Ao ocultar e exibir linhas com botões, os botões podem ser movidos ou ocultados para que
No modo de design:
- Clique com o botão direito em cada botão
- Selecione
Format Control
- Ir para a 3ª guia (Propriedades)
- Selecione "Não mover ou dimensionar com células"