O Excel não é apenas uma ferramenta para manter os dados e a contabilidade da empresa. O seu poder reside no facto de poder classificar e gerir quase tudo de uma forma simples e rápida. Podemos criar agendas, quadrantes de trabalho, cadernos de endereços, modelos de faturas, registros de presenças ... Porém, o Excel não nos permite organizar planilhas de cadernos, algo muito útil quando se trabalha com cadernos longos. Mas podemos classificar as guias do Excel automaticamente com uma macro no código do Visual Basic . Explicamos como fazer isso passo a passo.
As palavras "macro em código Visual Basic" podem ser intimidantes, mas tudo é mais fácil do que parece. Uma macro é um pequeno programa que executa uma série de ações para nós no Excel e serve para automatizar tarefas repetitivas . As macros são escritas em Visual Basic for Applications (ou VBA), uma linguagem de programação que permite acessar e estender as funções do Excel.
O editor de Visual Basic
Para criar nossa macro, temos que abrir qualquer pasta de trabalho no Excel, e quanto mais guias houver, melhor.
Para abrir o editor VBA, usamos o atalho de teclado Alt + F11 . Assim que a janela do editor for exibida, procuramos uma pasta de trabalho Excel específica, chamada Personal.xls . Esta pasta de trabalho tem a propriedade de que tudo o que fizermos nela afetará todas as pastas de trabalho . Ou seja, se criarmos uma macro, podemos usá-la quando quisermos.
Se você não conseguir encontrar o livro pessoal, não se preocupe. Saia do editor, abra a guia Visualização do Excel , abra o menu Macros e selecione Gravar Macro . Salve a macro em seu Livro pessoal de macros e comece a gravar. Em seguida, abra o menu Macros novamente e pare a gravação. Você já tem seu livro "especial".
Agora temos tudo pronto para criar um novo módulo . Abrimos o editor VBA com Alt + F11 , selecionamos o livro Personal.xls e clicamos em Inserir> Módulo . Colocamos o cursor na janela do módulo e escrevemos o seguinte código:
Sub SortSheets_Ascendant ()
Para a = 1 em Sheets.Count
Para s = a + 1 para Sheets.Count
If UCase (Sheets (a) .Name)> UCase (Sheets (s) .Name) Then
Folhas (s) .Mover antes: = Folhas (a)
Fim se
Próximo s
Próximo a
End Sub
Fechamos a janela e a macro terá sido armazenada automaticamente. Resta apenas verificar se funciona. Abrimos o livro cujas abas queremos ordenar, vamos em Exibir e clicamos em Macros , ou pressionamos o atalho de teclado Alt + F8 . Damos um clique duplo em SortSheets_Ascendant e as guias do livro serão colocadas em ordem alfabética em um instante .
Quando fechamos o Excel, o programa nos perguntará se queremos salvar as alterações feitas nas macros. Aceitamos e nossa macro será armazenada para uso com o livro que desejamos.
Classifique as folhas em ordem decrescente
Com algumas pequenas alterações no código, podemos obter o efeito inverso: classifique as guias em ordem alfabética decrescente . Repetimos o processo de criação da macro e, desta vez, inserimos o seguinte código:
Sub SortSheets_Descending ()
Para a = 1 em Sheets.Count
Para s = a + 1 para Sheets.Count
If UCase (Folhas (a) .Nome) <UCase (Folhas (s) .Nome) Então
Folhas (s) .Mover antes: = Folhas (a)
Fim se
Próximo s
Próximo a
End Sub
Existem apenas duas variações. O primeiro, é claro, é o nome da macro. A segunda é a mudança de> para <na quarta linha de código. Isso significa que a ordem das folhas no livro mudará de direção . Agora, ao clicar em Exibir> Macros (ou atalho Alt + F8 ), você verá as duas macros recém-criadas. Clique duas vezes em SortSheets_Descending e verifique com satisfação seu efeito.
Salvando as alterações ao sair do Excel, teremos essas duas macros disponíveis a qualquer momento . Eles nos pouparão muito tempo e esforço ao lidarmos com guias de pastas de trabalho do Excel que são especialmente volumosas.