• Exemplo: Como inserir um carimbo de data/hora utilizando o VBA

Pode utilizar a seguinte sintaxe básica em VBA para inserir um carimbo de data/hora numa determinada célula do Excel:

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

Esta macro em particular insere a hora atual formatada como mm/dd/aaaa hh:mm:ss na célula A1 .

Nota : O Agora em VBA devolve a data e a hora actuais de acordo com a data e a hora do sistema do computador.

O exemplo seguinte mostra como utilizar esta sintaxe na prática.

Exemplo: Como inserir um carimbo de data/hora utilizando o VBA

Suponhamos que criamos a seguinte macro para inserir a data e hora actuais como um carimbo de data/hora na célula A1 da nossa folha atual no Excel:

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

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

Célula A1 apresenta agora a data e a hora actuais em que esta macro foi executada.

Para este exemplo em particular, o datetime é formatado como mm/dd/aaaa hh:mm:ss .

Note-se que também podemos especificar um formato diferente a utilizar.

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

 Sub InsertTimestamp() 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, obtemos a seguinte saída:

Células A1 e B1 agora ambos apresentam a data e a hora actuais em formatos diferentes.

Nota : Pode encontrar a documentação completa para o Formato em VBA aqui.