Como ocultar ou reexibir várias guias dinamicamente usando o VBA no Excel

Anonim

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 Double

LastTab = 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.