Como inserir um carimbo de data/hora usando vba (com exemplo)

Você pode usar a seguinte sintaxe básica no VBA para inserir um carimbo de data/hora em uma célula específica no Excel:

 SubInsertTimestamp ()

Range("A1").Value = Format(Now, "mm/dd/yyyy hh:mm:ss")
    
End Sub

Esta macro específica insere a hora atual no formato mm/dd/yyyy hh:mm:ss na célula A1 .

Nota : A função Agora do VBA retorna a data e hora atuais com base na data e hora do sistema do seu computador.

O exemplo a seguir mostra como usar essa sintaxe na prática.

Exemplo: como inserir um carimbo de data/hora usando VBA

Suponha que criemos a seguinte macro para inserir a data e hora atuais como carimbo de data/hora na célula A1 de nossa planilha atual no Excel:

 SubInsertTimestamp ()

Range("A1").Value = Format(Now, "mm/dd/yyyy hh:mm:ss")
    
End Sub

Quando executamos esta macro, recebemos a seguinte saída:

A célula A1 agora exibe a data e hora atuais em que esta macro foi executada.

Para este exemplo específico, a data e hora está no formato mm/dd/yyyy hh:mm:ss .

Observe que também poderíamos especificar um formato diferente para usar.

Por exemplo, poderíamos criar a seguinte macro para exibir a hora atual no formato dd-mm-aaaa hh:mm:ss na célula B1 :

 SubInsertTimestamp ()

Range("A1").Value = Format(Now, "mm/dd/yyyy hh:mm:ss")
Range("B1").Value = Format(Now, "dd-mm-yyyy hh:mm:ss")

End Sub

Quando executamos esta macro, recebemos a seguinte saída:

As células A1 e B1 agora exibem a data e a hora atuais em formatos diferentes.

Nota : Você pode encontrar a documentação completa da função Format no VBA aqui .

Recursos adicionais

Os tutoriais a seguir explicam como realizar outras tarefas comuns em VBA:

Como comparar datas em VBA
Como formatar hora em VBA
Como calcular a diferença de tempo em VBA