Pam gostaria de organizar as guias da planilha em ordem alfabética. Este não é um comando do Excel, mas usando uma macro curta, você pode adicioná-lo à sua Barra de Ferramentas de Acesso Rápido.
Assistir vídeo
- Pam deseja classificar as guias da planilha em ordem alfabética
- Indo usar uma macro na pasta de trabalho macro pessoal
- Alt + T + M + S e alterar a segurança da macro para permitir macros
- Grave uma macro Hello World na pasta de trabalho macro pessoal
- Digite o novo código na pasta de trabalho macro pessoal
- Atribua esse código a um botão QAT
Transcrição de vídeo
Aprenda Excel com o Podcast, Episódio 2084: Classifique as Guias da Planilha em Ordem Alfabética
Ei, bem-vindo de volta ao netcast, sou Bill Jelen. A pergunta de hoje da Pam: Existe uma maneira de colocar em ordem alfabética as guias da planilha? Bem, não há uma maneira embutida de fazer isso, mas poderíamos fazer isso com uma macro. E agora, esta é uma macro que realmente deveria estar na pasta de trabalho macro pessoal, certo? Então, se você nunca fez macros antes, vamos usar Alt + T para Tom e para Mary, S para Sam. E certifique-se de mover de Desativar todas as macros sem notificação para Desativar macros com notificação.
Tudo bem então, pressione Alt + F8 e dê uma olhada e veja se você tem alguma macro, certifique-se de escolher Macros em: Todas as pastas de trabalho abertas Se você não tiver nada que comece como PERSONAL.XLSB, será necessário seguir estas etapas opcionais. Se você já tem algo com PERSONAL.XLSB, aguarde um segundo, certo?
Então, vamos para a guia Exibir e vamos gravar uma nova macro. Ele se chamará HelloWorld. Sem espaço, sem espaço. E vamos armazenar a macro na pasta de trabalho macro pessoal, clique em OK. E apenas digite em algum lugar Hello World, assim, e então desça aqui ao lado de Ready e clique em Stop. Tudo bem, agora isso o forçará a ter uma pasta de trabalho macro pessoal. Certo, se você nunca usou macros antes, talvez não tenha isso.
Neste ponto, vamos pressionar Alt + F11 e se você nunca usou macros, você verá esta tela cinza aqui. Iremos para View, Project Explorer e encontraremos o novo PERSONAL.XLSB. Se você já tem um Módulo lá, é claro que você vai, com certeza, abrir os módulos e clicar duas vezes no Módulo 1. Agora, eu já tenho algumas macros em minha pasta de trabalho de macro pessoal, mas vou descer aqui a última linha, coloque alguns espaços.
Tudo bem, então você digitaria este código que colei. E vamos falar sobre essa macro enquanto a executo. Então, vou executá-lo uma linha por vez pressionando a tecla F8. E uma coisa que aprendi aqui é que, depois de terminar a classificação, foi um pouco desconcertante acabar em uma folha diferente, então me lembro em qual folha estamos, então, mais tarde, posso selecioná-la logo antes da macro feito.
Ok, aqui estamos. Vamos voltar ao Excel e você verá que a primeira planilha lá se chama Título. No momento, estamos em uma planilha chamada Pergunta. Quero adicionar uma nova planilha antes do Título, então fazemos Worksheets.Add e então quero renomear isso. Atualmente vem em uma Folha1 como TempSortSheet. Tenha cuidado, este deve ser um nome que você nunca usaria. Tipo, não chame isso de Declaração de Renda, certo? Basta usar algo muito aleatório para que, quando você -, você encontre um erro se já tiver uma planilha chamada TempSortSheet. E então o que eu descobri é que eu estava usando esta Planilha.Contagem repetidamente, então vou colocá-la em uma variável mais fácil de dizer WSC do que Planilhas.Contagem mais tarde. Portanto, temos 150 planilhas e temos uma lista dessas planilhas.
Tudo bem, então você está na primeira vez através do loop onde eu vou de 1 para 250. Na primeira vez através do loop para nossa nova planilha que adicionamos, a TempSortSheet, na Linha 1, Coluna 1, vamos para colocar um valor que é = na primeira planilha. Tudo bem, e o que deveria ser bom, sim, TempSortSheet bem aqui. Mas vou deixar isso rodar mais algumas vezes. Pressionarei F8 e você verá que estamos obtendo todas as guias da planilha na ordem em que aparecem na pasta de trabalho, e presumo que comecei a obter aquelas guias que têm os números das contas, certo. E vou deixar isso funcionar, não quero ter que pressionar F8 300 vezes. Então, vou clicar aqui e ir para Debug, Run To Cursor que é Ctrl + F8 que vai terminar isso. E veja que temos uma lista de todas as guias de 150 folhas.Fantástico.
E agora é aqui que tiramos proveito do poder do Excel. Há muitas postagens online, incluindo no quadro de mensagens, onde eles realmente tentam classificar. Eles escrevem sua própria classificação para mover as planilhas e vamos aproveitar as vantagens do Excel aqui, porque o Excel tem uma classificação e estou usando o código do Excel 2003. Gosto desse código, mais fácil de lembrar. Vou começar em A1, redimensionar para 150 células onde classifico. A chave vai ser A1. Bem, essa é a única coisa que poderia ser. A ordem será crescente e certifique-se de especificar que existe um cabeçalho, certo? Não queremos que nosso TempSortSheet classifique os dados. Tudo bem, então bem aí. BAM! Isso faz a classificação e não precisamos escrever código de classificação por bolha. E então vamos da linha 2, que é A120,a folha a ser movida é A120. Porque o " " ? Ahh, caso você tenha um nome de planilha, como tínhamos no início desta semana, como uma planilha chamada 123 que confundiria o Excel. E então, para onde vamos movê-lo? Vamos passar não para a linha 2, mas depois da primeira folha. Então, MoveAfter se torna 1. Então, vamos pegar nossa planilha chamada A120 e movê-la após a primeira planilha assim, F8, e aí funcionou. Execute essas três linhas mais uma vez. A124 vem ao lugar certo.vamos pegar nossa folha chamada A120 e movê-la depois da primeira folha assim, F8, e aí funcionou. Execute essas três linhas mais uma vez. A124 vem ao lugar certo.vamos pegar nossa folha chamada A120 e movê-la depois da primeira folha assim, F8, e aí funcionou. Execute essas três linhas mais uma vez. A124 vem ao lugar certo.
Neste ponto, agora que sabemos que está funcionando, podemos fazer Ctrl + F8 que faz todos os movimentos - 150 movimentos acabaram de acontecer lá. E agora, vou deletar a planilha original que é nosso TempSortSheet deletado. Mas antes de excluí-lo, não quero que digam a quem está executando o código que estamos prestes a excluir a planilha. Então, eu simplesmente excluo e seleciono a planilha original e exibo a mensagem de que as pastas de trabalho foram classificadas dessa forma.
Ok, agora que temos a macro, sabemos que a macro está funcionando e está na pasta de trabalho macro pessoal, algumas coisas que queremos fazer: Alt + F11 volte aqui e certifique-se de que está na macro pessoal pasta de trabalho, clique lá e clique em Salvar. Se você não salvá-lo agora, mais tarde, ao fechar o Excel, ele exibirá esta mensagem sobre 'Deseja salvar as alterações em PERSONAL.XLSB?' e você esquecerá completamente e não salvará as alterações, certo? Portanto, sempre me certifico de salvar as alterações e, em seguida, Alt + Tab onde personalizo a barra de ferramentas de acesso rápido, escolho Macros, encontro aquele que se chama SortSheets, adiciono isso à barra de ferramentas de acesso rápido. Eu não gosto do fluxograma, então vamos procurar algo que diga de A a Z ou você sabe, então vamos 's use este e coloque uma pequena guia lá de Folhas de classificação, clique em OK, clique em OK.
Tudo bem, agora aqui está o teste. Vou inserir uma nova pasta de trabalho. Vou fazer algumas cópias das folhas e colocá-las em uma espécie de sequência estranha, Z e depois Y e depois M e B, assim. Clique em Sort Sheets and BAM! Eles estão de volta aqui na sequência certa. Quão legal é isso.
Certo, no episódio de hoje, Pam deseja classificar as guias da planilha em ordem alfabética. Uau! Usamos a macro. Primeiro, altere a segurança da macro e registre a macro Hello World na pasta de trabalho macro pessoal e, em seguida, digite o código na pasta de trabalho macro pessoal e atribua-o a um botão da barra de ferramentas de acesso rápido.
Quero agradecer a Pam por essa pergunta. Eu quero te agradecer por passar por aqui. Nos vemos na próxima vez para outro netcast de.
⇬ Fazer download do arquivo
Baixe o arquivo de amostra aqui: Podcast2084.xlsm
