Como inserir o carimbo de data / hora atual quando os dados em outra célula são alterados no Excel?
Suponha que você receba uma planilha que precisa que você modifique os dados em uma determinada coluna. E depois de modificar a planilha, você precisa inserir o timestamp modificado para que outras pessoas saibam quais células foram alteradas. Como lidar com isso? Este artigo mostrará o método de inserção do carimbo de data / hora atual quando os dados em outra célula forem alterados no Excel, conforme a captura de tela abaixo.
Insira o carimbo de data / hora atual quando os dados em outra célula mudarem com o código VBA
Insira o carimbo de data / hora atual quando os dados em outra célula mudarem com o código VBA
Conforme a imagem abaixo mostrada, você precisa preencher o carimbo de data / hora na coluna E se as células correspondentes na coluna C forem alteradas. Faça o seguinte.
1. Na planilha que você precisa modificar e marcar com carimbo de data / hora, clique com o botão direito na guia da planilha e clique em Ver código no menu do botão direito.
2. Em seguida, copie e cole o código VBA abaixo no Code janela do Microsoft Visual Basic para Aplicações janela. Veja a imagem:
Código VBA: insira o carimbo de data / hora atual quando os dados em outra 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 Sub
Note: No código, o número 3 significa que você vai modificar os dados na coluna C e 5 indica que o carimbo de data / hora será preenchido na coluna E. Por favor, altere-os com base nas suas necessidades.
3. aperte o outro + Q chaves para fechar o Microsoft Visual Basic para Aplicações janela.
A partir de agora, ao alterar os dados na coluna C, o carimbo de data / hora será preenchido nas células correspondentes na coluna E, conforme a imagem abaixo mostrada.
Gorjeta. Data Picker. O Inserir Data utilidade de Kutools for Excel ajuda a inserir rapidamente a data com o formato de data especificado em uma célula selecionada.
Baixe e experimente agora! (trilha gratuita de 30 dias)
Artigos relacionados:
- Como inserir ou exibir o último carimbo de data / hora salvo na planilha do Excel?
- Como inserir carimbo de data / hora em uma célula específica quando a macro é executada no Excel?
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!