Como aceder rapidamente à célula que contém a data atual no Excel?
Tem aqui uma folha com uma lista de datas e pretende saltar rapidamente para a célula que contém a data atual. Como resolver este problema?
Saltar para a data atual com VBA
Saltar para a data atual com Localizar e Substituir
Saltar para a data atual com VBA
Aqui está um código VBA que o ajuda a saltar rapidamente para a célula com a data atual.
1. Ative o livro que pretende utilizar e prima as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o código seguinte no Módulo.
VBA: Saltar 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. Prima a tecla F5 e o cursor salta imediatamente para a célula com a data atual, independentemente da sua localização no livro.
Desbloqueie a Magia do Excel com KUTOOLS AI
- Execução Inteligente: Realize operações em células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- fórmulas personalizadas: Crie fórmulas personalizadas para simplificar os seus fluxos de trabalho.
- Programação VBA: Escreva e implemente código VBA com facilidade.
- Interpretação de Fórmulas: Compreenda facilmente fórmulas complexas.
- Tradução de Texto: Elimine barreiras linguísticas nas suas folhas de cálculo.
Saltar para a data atual com Localizar e Substituir
Se não estiver familiarizado com código VBA, também pode utilizar a utilidade Localizar e Substituir para saltar para a data atual.
1. Ative a folha que contém a lista de datas e selecione uma célula vazia. Digite a fórmula =HOJE() e prima a tecla Enter para obter imediatamente a data de hoje.
2. Prima Ctrl + C para copiar a data de hoje, selecione a lista de datas e, em seguida, prima Ctrl + F para abrir a caixa de diálogo Localizar e Substituir. Na caixa de texto Procurar, prima Ctrl + V para colar a data de hoje. Veja a imagem:
3. Clique em Localizar tudo. O cursor salta agora para a célula com a data de hoje na lista selecionada.
Dica: Se tiver o Kutools para Excel, pode utilizar a sua funcionalidade Selecionar células específicas para resolver esta tarefa rapidamente. É totalmente funcional sem limitações durante 30 dias. Transfira e experimente gratuitamente agora.
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