Exel 2007-2010 - data de inserção automática quando adicionar novo comentário ou editar

Question

Vejo que, quando adiciono um novo comentário a uma célula, o Excel insere automaticamente meu nome de usuário nele. Então eu me pergunto se podemos ou não configurar a maneira como o Excel adiciona o cabeçalho ao meu comentário. Na verdade, eu preciso do Excel para inserir automaticamente a data quando insiro um novo comentário. Posso fazer isso? Se sim, você pode dar algum guia para fazer isso!
Obrigado!

FYI, estou tentando com algumas partes do código VBA, mas ainda não consigo nada útil! Talvez no próximo fim de semana ... humph

    

Answer 1

Não existe uma maneira fácil de fazer isso. Se for uma coisa de uma só vez, você pode ir em Opções do Excel e adicionar a data ao seu nome de usuário. Você teria que se lembrar de desfazer a alteração quando terminar.

Além disso, você teria que escrever algum código. Infelizmente, o Excel não registra um evento quando você cria ou edita um comentário para que você não possa editar um comentário enquanto ele está sendo criado. O melhor que você pode fazer é escrever uma rotina para lidar com a adição de comentários. Você precisaria sempre usar a macro para adicionar comentários.

Aqui está um exemplo rápido:

Sub AddNewComment()
   Dim sComment As String, rng As Range

   If TypeName(Selection) = "Range" Then
      Set rng = Selection

      sComment = InputBox("Enter your comment.", "Add New Comment")
      If Len(sComment) > 0 Then
         ' append date and username to comment
         sComment = Format(Date, "m/d/yy") & " " & Application.UserName & ":" & vbLf & sComment
         If rng.Comment Is Nothing Then
            rng.AddComment sComment
         Else
            ' append new comment to existing comment
            rng.Comment.Text vbLf & sComment, Len(rng.Comment.Text) + 1, False
         End If

      End If

      Set rng = Nothing
   End If

End Sub

Nota: Todo o texto será simples. Você não pode definir parte do seu texto (UserName) como negrito com a função .Text .