Como pular rapidamente para a célula com a data atual no Excel?
Aqui está uma planilha com uma lista de datas, você quer pular rapidamente para a célula que está com a data atual, como resolver este problema?
Vá para a data atual com o VBA
Vá para a data atual com Localizar e Substituir
Vá para a data atual com o VBA
Aqui está um código VBA que pode ajudá-lo a pular rapidamente para a célula com a data atual.
1. Habilite a pasta de trabalho que deseja usar e pressione Alt + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Módulo, cole o código abaixo no Módulo.
VBA: pular para a data atual
Private Sub Workbook_Open()
'UpdatebyExtendoffice20161221
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 , o cursor salta para a célula com a data atual, onde quer que você localize na pasta de trabalho.
Vá para a data atual com Localizar e Substituir
Se você não estiver familiarizado com o código VBA, também pode aplicar o Localizar e substituir utilitário para pular para a data atual.
1. Ative a planilha que contém a lista de datas e selecione uma célula em branco, digite esta fórmula = HOJE (), pressione Entrar chave, agora você obtém a data de hoje.
2. Pressione Ctrl + C para copiar a data de hoje, selecione a lista de datas e pressione Ctrl + F para habilitar o Localizar e substituir diálogo, no Encontre o que caixa de texto, pressione Ctrl + V para colar a data de hoje em. Veja a imagem:
3. Clique Encontrar tudo. Agora o cursor salta para a célula com hoje na lista selecionada.
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!