Considere uma situação em que você precisa ocultar e exibir várias páginas de uma vez. Se alguém estiver ocultando e exibindo manualmente, isso levará muito tempo.
Neste artigo, você aprenderá como ocultar ou reexibir dinamicamente várias guias usando o código VBA.
P): Quero uma macro que oculte ou mostre várias guias em um determinado momento.
A seguir está um instantâneo da planilha1 em que haverá duas listas dinâmicas, ou seja, Ocultar guias e exibir guias
- A ideia é que quando clicamos no botão Ocultar ou Mostrar as páginas listadas devem ser ocultadas ou mostradas
Precisamos seguir as etapas abaixo:
- Para obter o resultado, precisamos lançar o editor VB
- Clique na guia Desenvolvedor
- No grupo Código, selecione Visual Basic
- Clique em Inserir e depois em Módulo
Isso criará um novo módulo.
Insira o seguinte código no Módulo
Sub HideTabs () Dim TabNo As DoubleDim LastTab As DoubleLastTab = Intervalo ("Hide_TabsDNR"). Contagem
Em caso de erro, continuar próximo
Para TabNo = 2 para LastTab
Planilhas (Intervalo ("Hide_TabsDNR") (TabNo)). Visível = Falso
Próximo Tab Não
No erro GoTo 0
Folhas (1) .Selecionar
End Sub
Sub UnHideTabs ()
Dim TabNo As Double
Dim LastTab As Double
LastTab = Intervalo ("Hide_TabsDNR"). Contagem
Em caso de erro, continuar próximo
Para TabNo = 2 para LastTab
Folhas (intervalo ("UnHide_TabsDNR") (TabNo)). Visível = Verdadeiro
Próximo Tab Não
No erro GoTo 0
Folhas (1) .Selecionar
End Sub
- Estamos todos prontos para executar a macro, se clicarmos no botão Ocultar, todas as planilhas listadas serão ocultadas, consulte o instantâneo abaixo
- Da mesma forma, se clicarmos no botão Reexibir, todas as folhas ocultas mencionadas na coluna D serão reexibidas.
Desta forma, podemos ocultar ou exibir dinamicamente várias guias ao mesmo tempo.