Como adicionar automaticamente data e hora ao comentário no Excel?

Quando você insere um comentário em uma célula, por padrão, um nome de usuário será inserido automaticamente. Você já se perguntou se a data e hora atuais também podem ser adicionadas automaticamente ao comentário? Isso ajudará você a identificar rapidamente o momento em que criou os comentários. Neste artigo, vou apresentar alguns truques para resolver esse problema no Excel.

Adicionar manualmente data e hora ao comentário com atalhos de teclado

Adicionar automaticamente data e hora ao comentário com código VBA

Adicionar manualmente data e hora ao comentário com atalhos de teclado

Sem digitar a data e hora na caixa de comentário, você pode usar esses atalhos de teclado para inserir a data e hora de forma rápida e fácil. Por favor, siga os passos abaixo:

1. Clique em uma célula onde deseja inserir um comentário com a data e hora atuais, e depois clique com o botão direito do mouse e escolha Inserir Comentário no menu de contexto, veja a captura de tela:

2. Após inserir o comentário, na caixa de comentário, pressione Ctrl +; para inserir a data atual, digite um espaço, depois pressione Ctrl + Shift +; para inserir a hora atual, e a data e hora atuais serão adicionadas ao comentário imediatamente, veja a captura de tela:

3. E então você pode editar seu comentário conforme necessário.

Adicionar automaticamente data e hora ao comentário com código VBA

Se você não está familiarizado com os atalhos de teclado, não se preocupe, aqui posso falar sobre um código VBA para ajudá-lo a inserir a data e hora automaticamente.

1. Selecione a célula onde deseja inserir o comentário.

2. Mantenha pressionado as teclas ALT + F11 para abrir a janela Microsoft Visual Basic for Applications.

3. Clique em Inserir > Módulo, e cole o seguinte código na Janela do Módulo.

Código VBA: Adicionar automaticamente data e hora ao comentário

Sub DatedComment()
'Update 20141110
Dim pComment As Comment
Dim WorkRng As Range
Set WorkRng = Application.ActiveCell
Set pComment = WorkRng.AddComment(Application.UserName & ":" & vbLf & Now & vbLf)
pComment.Shape.TextFrame.Characters(1, VBA.Len(Application.UserName) + 1).Font.Bold = True
End Sub

4. Em seguida, pressione a tecla F5 para executar este código, e um comentário será inserido na célula selecionada com a data e hora automaticamente, e você pode editar o comentário conforme necessário, veja a captura de tela:

Dica: Este VBA não funcionará se a célula selecionada já tiver um comentário inserido anteriormente.

Artigos relacionados:

Como redefinir todas as posições de comentário no Excel?

Como destacar todas as células com comentários no Excel?