Como ordenar automaticamente as datas ao introduzi-las ou alterá-las no Excel?
No Excel, a função Ordenar permite-lhe organizar datas por ordem crescente ou decrescente, consoante as suas necessidades. Contudo, não é dinâmica: se ordenar as datas e depois adicionar uma nova data, terá de as reordenar manualmente. Existem formas eficazes e rápidas de ordenar automaticamente as datas sempre que introduz novos dados numa folha de cálculo?
Ordenação automática de datas ao introduzir ou alterar com fórmula
Ordenação automática de datas ao introduzir ou alterar com código VBA
Ordenação automática de datas ao introduzir ou alterar com fórmula
Por exemplo, se as datas originais estiverem na Coluna A, a fórmula seguinte permite-lhe ordenar automaticamente as datas — ou quaisquer outras cadeias de texto — numa nova coluna auxiliar, com base na coluna que pretende ordenar. Siga estes passos:
1. Introduza esta fórmula:
=INDEX($A$2:$A$15,MATCH(ROWS($A$2:A2),COUNTIF($A$2:$A$15,«<=»&$A$2:$A$15),0)) numa célula vazia ao lado da sua coluna de datas, como por exemplo C2, e prima em seguida as teclas Ctrl + Shift + Enter em simultâneo para obter uma sequência numérica. Depois, arraste a alça de preenchimento até às células pretendidas. Veja a imagem:
Nota: Na fórmula acima, A2:A15 é o seu intervalo de datas original que pretende ordenar automaticamente.
2.Em seguida, formate os números como Formato de data clicando em Data Curtana lista pendente Geralno separador Base, veja a imagem:
3. Os números consecutivos foram agora convertidos em formato de data, e as datas originais também foram ordenadas. Veja a imagem:
4. A partir de agora, sempre que introduzir ou alterar uma data na coluna A, as datas na coluna C serão automaticamente ordenadas por ordem crescente. Veja a imagem:
Ordenação automática de datas ao introduzir ou alterar com código VBA
O código VBA seguinte permite ordenar automaticamente as datas na coluna original sempre que introduzir ou alterar uma data, conforme necessário.
1. Aceda à folha de cálculo onde pretende que as datas sejam ordenadas automaticamente assim que forem introduzidas ou alteradas.
2. Clique com o botão direito do rato no separador da folha e selecione Ver Código no menu de contexto. Na janela Microsoft Visual Basic for Applications que surge, copie e cole o seguinte código na janela em branco do Módulo. Veja a imagem:
Código VBA: ordenação automática ao introduzir ou alterar uma data:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
On Error Resume Next
If Application.Intersect(Target, Application.Columns(1)) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
Range("A1").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
Nota: No código acima, as datas introduzidas serão ordenadas automaticamente na coluna A. Pode alterar A1 e A2 para as suas próprias células, conforme necessário.
3. A partir de agora, sempre que introduzir uma data na coluna A, as datas serão automaticamente ordenadas por ordem crescente.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos