Microsoft Excel 2012 adiciona uma data quando abro o documento

2

Eu queria saber se era possível adicionar uma data toda vez que eu abria minha planilha de excel. Eu sei que a função é =TODAY() , como posso proceder para fazer isso, por exemplo, digamos:

       A
1 02/05/2013 (Today's date, it would be automatically written unless it is today's date)
2 03/05/2013 (Tomorrow's date, if I open it tomorrow.) 
    
por Meds 02.05.2013 / 16:21

1 resposta

1

Você pode fazer isso com uma macro. O Workbook_Activate é acionado no evento de carregamento, portanto, isso deve funcionar:

Private Sub Workbook_Activate()
    If Not IsEmpty(Range("A1").Value) Then
         Range("A1").Value = Date
    End If         
End Sub

Se isso não funcionar, altere o sub para

Private Sub Workbook_Open()

editar

Atualizei meu código com base no seu comentário, mas isso pode ser uma falha de design. Se você está sempre escrevendo para A1, por exemplo, significa que no dia seguinte haverá um valor. Eu acho que você precisa testar o valor, no entanto, isso é possivelmente mais de matar por um comando tão simples.

Private Sub Workbook_Activate()
    If Not Range("A1").Value = Date Then
         Range("A1").Value = Date
    End If         
End Sub

Se fosse eu, eu apenas substituiria o valor toda vez que você carregasse e não se importasse com o cheque, já que não é caro.

    
por 02.05.2013 / 16:24