Como Criar um Menu Lateral com Efeito Sanfona no Excel

Deixe um comentário / Blog, Excel / Por

 

Aprender a criar um menu lateral com efeito sanfona no Excel pode transformar a maneira como você organiza suas planilhas. Este recurso não só melhora a estética, mas também proporciona uma navegação mais eficiente. Neste guia, vamos explorar o passo a passo para implementar essa funcionalidade, utilizando imagens, VBA e formatação condicional.

O que é um Menu Lateral com Efeito Sanfona?

Um menu lateral com efeito sanfona permite que você expanda e recolha seções de informações com um simples clique. Isso é especialmente útil em dashboards, onde o espaço é limitado e a clareza é crucial. Ao utilizar esse menu, você pode esconder categorias de dados, otimizando o layout e tornando sua apresentação mais profissional.

Preparando a Planilha

Antes de começarmos a criar o menu, precisamos preparar nossa planilha. Aqui estão os passos iniciais:

  • Criação de uma Nova Planilha: Abra o Excel e crie uma nova planilha. Nomeie-a como “Menu”.
  • Organização das Imagens: Armazene as imagens que serão utilizadas em uma pasta separada. As imagens são essenciais para dar vida ao seu menu.
  • Definição dos Elementos do Menu: Planeje quais opções você deseja incluir no menu, como “Cadastros”, “Lançamentos” e “Dashboard”.

Inserindo as Imagens e Formas

Agora que temos a planilha preparada, vamos inserir as imagens e formas que formarão o menu. Siga os passos abaixo:

  • Inserir Retângulos: Use a ferramenta de formas para desenhar retângulos que servirão de botões no menu lateral.
  • Nomear as Formas: Selecione cada retângulo e atribua nomes significativos, como “Retângulo20” para o primeiro botão.
  • Configurar o Título do Menu: Insira um título para o menu e formate-o para que fique visualmente atraente.

Adicionando Funcionalidade com VBA

A parte mais importante do nosso menu sanfona é a programação em VBA. Essa linguagem de programação integrada ao Excel permitirá que o menu seja dinâmico. Vamos aos passos:

  • Acessar o Editor do VBA: Pressione Alt + F11 para abrir o editor do VBA.
  • Criar um Novo Módulo: No editor, clique em “Inserir” e selecione “Módulo”. Isso criará um novo módulo para o seu código.
  • Criar a Macro do Menu: Insira o código VBA que controla a exibição e ocultação do menu. Você pode copiar e colar um código básico, que será ajustado posteriormente.

Estrutura do Código VBA

Abaixo está uma estrutura básica do código que você pode utilizar para criar a funcionalidade do menu:

Sub MenuSanfonateste()

'Não mostrar os eventos na tela
Application.ScreenUpdating = False

On Error GoTo Error 'Caso dê algum erro no código, o mesmo irá ser tratado através de uma msg

    'Se célula A1 da planilha Auxiliar for igual a 1 então
    If PNL_Aux.Range("A1") = "1" Then
    
        'Ativa a região do submenu
                 ActiveSheet.Shapes("Rectangle 26").Visible = True
                 ActiveSheet.Shapes("Group 16").Visible = True
                 
        PNL_Aux.Range("A1") = "2"

        'Ativar célula A2 da planilha ativa
        ActiveSheet.Range("A1").Select

        'Ativar célula A2 da planilha ativa
        ActiveSheet.Shapes.Range(Array("Picture 6")).Select
        'Inserir a cor preta

        Selection.ShapeRange.PictureFormat.ColorType = msoPictureWatermark

        'Ativar célula A2 da planilha ativa
        ActiveSheet.Range("A1").Select
        
    'Senão
    Else
    
        'Oculta a região do submenu
        
                 ActiveSheet.Shapes("Rectangle 26").Visible = False
                 ActiveSheet.Shapes("Group 16").Visible = False

        PNL_Aux.Range("A1") = "1"

        'Ativar célula A2 da planilha ativa
        ActiveSheet.Range("A1").Select

        'Inserir a cor cinza claro
        ActiveSheet.Shapes.Range(Array("Picture 6")).Select
        Selection.ShapeRange.PictureFormat.ColorType = msoPictureWatermark

        'Ativar célula A2 da planilha ativa
        ActiveSheet.Range("A1").Select
        
    End If
    
    Exit Sub

        'Ativar célula A2 da planilha ativa
        ActiveSheet.Range("A1").Select
  
'Tratamento do erro
Error:
        
        MsgBox "Ocorreu um erro ao tentar exibir o submenu, por favor acione o desenvolvedor do sistema!", vbCritical, Aviso
    
    'Mostrar os eventos na tela
  Application.ScreenUpdating = True
    
End Sub

 

Certifique-se de que a planilha auxiliar esteja nomeada corretamente, pois o código depende disso para funcionar.

Testando o Menu

Após configurar o código, é hora de testar o menu. Siga estes passos:

  • Salve o Código: Clique em “Salvar” no editor do VBA.
  • Voltar ao Excel: Volte para a sua planilha e teste o menu clicando nos botões que você criou.
  • Verifique Erros: Se o menu não funcionar como esperado, verifique o código e os nomes das formas.

Personalizando o Menu

A personalização é uma parte essencial do design do seu menu. Aqui estão algumas dicas:

  • Alterar Cores: Modifique as cores dos botões para que se ajustem ao tema da sua planilha.
  • Adicionar Ícones: Insira ícones relevantes em cada botão para facilitar a identificação das seções.
  • Formatar Texto: Ajuste o tamanho e a fonte do texto para melhorar a legibilidade.

Conclusão

O menu lateral com efeito sanfona é uma ferramenta poderosa para melhorar a usabilidade das suas planilhas no Excel. Ao seguir este guia, você não só aprendeu a criar um menu funcional, mas também como personalizá-lo para atender às suas necessidades. Com a prática, você poderá explorar ainda mais funcionalidades do Excel e aprimorar suas habilidades. Não hesite em experimentar com diferentes designs e códigos VBA para tornar suas planilhas ainda mais dinâmicas.

Se você gostou deste tutorial, deixe seu feedback e compartilhe suas experiências ao implementar o menu sanfona em suas planilhas. Boa sorte!

Miguel Rodrigues
Últimos posts por Miguel Rodrigues (exibir todos)