Como inserir automaticamente a marca de tempo atual no Excel sempre que os dados numa outra célula forem alterados?
Imagine que recebe uma folha de cálculo em que precisa de alterar dados numa determinada coluna. Depois de efetuar as alterações, tem de inserir a marca de tempo correspondente para informar os outros utilizadores das células modificadas. Como resolver esta situação? Este artigo apresenta-lhe um método para inserir automaticamente a marca de tempo atual sempre que os dados de outra célula forem alterados no Excel, conforme ilustrado na imagem seguinte.
Inserir a marca de tempo atual quando os dados noutra célula forem alterados com código VBA
Inserir a marca de tempo atual quando os dados noutra célula forem alterados com código VBA
Conforme ilustrado na imagem seguinte, preencha a marca de tempo na coluna E sempre que as células correspondentes na coluna C forem alteradas. Siga os passos abaixo.
1. Na folha de cálculo que pretende modificar e marcar com uma marca de tempo, clique com o botão direito do rato no separador da folha e, em seguida, clique em Ver Código no menu de contexto.
2. Em seguida, copie e cole o seguinte código VBA na janela Código da janela do Microsoft Visual Basic for Applications. Veja a imagem:
Código VBA: Inserir a marca de tempo atual quando os dados noutra célula forem alterados
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20180830
Dim xCellColumn As Integer
Dim xTimeColumn As Integer
Dim xRow, xCol As Integer
Dim xDPRg, xRg As Range
xCellColumn = 3
xTimeColumn = 5
xRow = Target.Row
xCol = Target.Column
If Target.Text <> "" Then
If xCol = xCellColumn Then
Cells(xRow, xTimeColumn) = Now()
Else
On Error Resume Next
Set xDPRg = Target.Dependents
For Each xRg In xDPRg
If xRg.Column = xCellColumn Then
Cells(xRg.Row, xTimeColumn) = Now()
End If
Next
End If
End If
End SubNota: No código, o número 3 indica que irá modificar dados na coluna C e o número 5 especifica que a marca de tempo será inserida na coluna E. Ajuste estes valores conforme as suas necessidades.
3. Prima as teclas Alt + Q para fechar a janela do Microsoft Visual Basic for Applications.
A partir de agora, sempre que alterar dados na coluna C, uma marca de tempo será automaticamente inserida nas células correspondentes da coluna E, conforme ilustrado na imagem seguinte.
Sugestão: Seleção de Data. A funcionalidade Inserir data do Kutools para Excel permite-lhe inserir rapidamente uma data com o formato específico pretendido numa célula selecionada.
Transfira e experimente já! (teste gratuito de 30 dias)
Artigos relacionados:
- Como inserir ou exibir a marca de tempo da última gravação na folha de cálculo do Excel?
- Como inserir uma marca de tempo numa célula específica ao executar uma macro no Excel?
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