Como pular rapidamente para a célula com a data atual no Excel?
Aqui está uma planilha com uma lista de datas, você deseja pular rapidamente para a célula que contém a data atual. Como resolver esse problema?
Pular para a data atual com VBA
Pular para a data atual com Localizar e Substituir
Pular para a data atual com VBA
Aqui está um código VBA que pode ajudá-lo a pular rapidamente para a célula com a data atual.
1. Ative a pasta de trabalho que deseja usar e pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo, cole o código abaixo no Módulo.
VBA: Pular para a data atual
Private Sub Workbook_Open()
'UpdatebyExtendoffice
Dim daterng As Range
Dim DateCell As Range
Dim WorkSht As Worksheet
Dim dateStr As String
Application.ScreenUpdating = False
For Each WorkSht In Worksheets
WorkSht.Select
'Set daterng = Range("A:A")
Set daterng = WorkSht.UsedRange
'daterng.Select
For Each DateCell In daterng
DateCell.Activate
ActiveCell.Select
On Error Resume Next
dateStr = DateCell.Value
If dateStr = Date Then
DateCell.Select
Exit Sub
End If
Next
Next WorkSht
Application.ScreenUpdating = True
'Worksheets(1).Select
End Sub
3. Pressione F5 e o cursor irá pular para a célula com a data atual, independentemente de onde você esteja na pasta de trabalho.

Desbloqueie a Magia do Excel com o Kutools AI
- Execução Inteligente: Realize operações de células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- Fórmulas Personalizadas: Gere fórmulas sob medida para otimizar seus fluxos de trabalho.
- Codificação VBA: Escreva e implemente código VBA sem esforço.
- Interpretação de Fórmulas: Compreenda fórmulas complexas com facilidade.
- Tradução de Texto: Supere barreiras linguísticas dentro de suas planilhas.
Pular para a data atual com Localizar e Substituir
Se você não está familiarizado com o código VBA, também pode aplicar o utilitário Localizar e Substituir para pular para a data atual.
1. Ative a planilha que contém a lista de datas, selecione uma célula em branco e digite esta fórmula =HOJE(), pressione Enter e agora você terá a data de hoje.
2. Pressione Ctrl + C para copiar a data de hoje, vá até a lista de datas e depois pressione Ctrl + F para ativar o Localizar e Substituir diálogo, no campo Localizar o que pressione Ctrl + V para colar a data de hoje. Veja a captura de tela:
3. Clique em Localizar Tudo. Agora o cursor pula para a célula com a data de hoje na lista selecionada.
Melhores Ferramentas de Produtividade para Office
Potencialize suas habilidades no Excel com o Kutools para Excel e experimente uma eficiência sem igual. O Kutools para Excel oferece mais de300 recursos avançados para aumentar sua produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
O Office Tab traz interface com abas para o Office e facilita muito o seu trabalho
- Habilite a edição e leitura com abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas abas na mesma janela, em vez de abrir novas janelas.
- Aumente sua produtividade em50% e reduza centenas de cliques do mouse todos os dias!