Padrão da célula do Excel para a data e hora de hoje

2

Como obtenho o Excel para inserir automaticamente a data de hoje e a hora atual em uma célula, quando insiro um valor em outra célula na mesma linha?

Eu conheço o CTRL +; e CTRL +: atalhos, mas eu preferiria muito mais se a célula fosse preenchida automaticamente.

    
por Jakob Gade 24.09.2009 / 08:30

2 respostas

5

Se você está feliz escrevendo VBA você pode fazer isso com o Worksheet Change Evento .

Aqui está um exemplo de código que escreve a data e a hora de hoje na coluna B sempre que você altera uma célula na coluna A:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim CellToChange As Range

    'Check the change happened in Column A (i.e. 1)
    If Target.Column = 1 Then
        'The Cell we want to change is on this row, but in Column B (i.e. 2)
        Set CellToChange = Target.Worksheet.Cells(Target.Row, 2)

        'Only write in Today's date and the time if the cell is empty
        If IsEmpty(CellToChange) Then
            CellToChange.Value = Now
        End If
    End If
End Sub

Se você precisar que a alteração aconteça em colunas diferentes, basta alterar os números das colunas em:

If Target.Column = 1 Then

e:

Set CellToChange = Target.Worksheet.Cells(Target.Row, 2)

Para obter este código na planilha, clique em Alt+F11 , clique duas vezes em sua planilha na visualização em árvore à esquerda e cole o código na janela exibida.

    
por 24.09.2009 / 10:21
1

Eu acho que você poderia preencher a coluna com uma fórmula de = if (cell1=""; ""; hoje ()) mas isso seria atualizado automaticamente toda vez que você abrir a planilha, não acho que haja uma maneira de preenchê-la no ponto em que você preenche a célula e, em seguida, deixe-a nessa data. Não sem fazer alguma programação de qualquer maneira.

    
por 24.09.2009 / 09:32