Como ordenar datas automaticamente ao inserir ou alterar no Excel?
No Excel, a função Classificar pode ajudá-lo a ordenar datas em ordem crescente ou decrescente conforme necessário. No entanto, ela não é dinâmica; se você já tiver classificado as datas e depois adicionar uma nova data, precisará classificá-la novamente. Existem boas maneiras rápidas de autoordenar datas ao inserir novos dados cada vez em uma planilha?
Ordenação automática de datas quando uma data é inserida ou alterada com fórmula
Ordenação automática de datas quando uma data é inserida ou alterada com código VBA
Ordenação automática de datas quando uma data é inserida ou alterada com fórmula
Por exemplo, se as datas originais estiverem na Coluna A, a seguinte fórmula pode ajudá-lo a autoordenar as datas ou qualquer outra sequência de texto em uma nova coluna auxiliar com base na coluna que deseja classificar. Por favor, siga estas etapas:
1. Insira esta fórmula:
=INDEX($A$2:$A$15,MATCH(ROWS($A$2:A2),COUNTIF($A$2:$A$15,"<="&$A$2:$A$15),0)) em uma célula em branco ao lado da sua coluna de datas, C2, por exemplo, e pressione Ctrl + Shift + Enter juntos para obter uma sequência numérica. Em seguida, arraste a alça de preenchimento para baixo até as células desejadas. Veja a captura de tela:
Observação: Na fórmula acima: A2:A15 é o intervalo de datas original que você deseja ordenar automaticamente.
2. Em seguida, formate os números como formato de data clicando em Data Curta na lista suspensa Geral na guia Página Inicial, veja a captura de tela:
3. Os números de sequência agora foram convertidos para o formato de data, e as datas originais também foram classificadas. Veja a captura de tela:
4. A partir de agora, quando você inserir ou alterar uma data na coluna A, as datas na coluna C serão classificadas automaticamente em ordem crescente. Veja a captura de tela:
Ordenação automática de datas quando uma data é inserida ou alterada com código VBA
O seguinte código VBA pode ajudá-lo a ordenar automaticamente as datas na coluna original quando você inserir ou alterar uma data conforme necessário.
1. Vá para a planilha onde deseja ordenar automaticamente as datas ao inserir ou alterar uma data.
2. Clique com o botão direito do mouse na guia da planilha e selecione Visualizar Código no menu de contexto. Na janela Microsoft Visual Basic for Applications que aparece, copie e cole o seguinte código na janela Módulo em branco. Veja a captura de tela:
Código VBA: ordenação automática quando uma data é inserida ou alterada:
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
Observação: No código acima, as datas inseridas serão ordenadas automaticamente na coluna A. Você pode alterar A1 e A2 para suas próprias células conforme necessário.
3. A partir de agora, quando você inserir uma data na coluna A, as datas serão classificadas automaticamente em ordem crescente.
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins