Note: The other languages of the website are Google-translated. Back to English

Como atualizar ou inserir data e hora (atuais) por um Botão de Comando no Excel?

Normalmente, muitos usuários do Excel tendem a inserir o carimbo de data / hora com a fórmula = AGORA (). Com esta fórmula, o carimbo de data / hora inserido será atualizado automaticamente sempre que você abrir a pasta de trabalho. Para atualizar manualmente a data e a hora em uma planilha a qualquer momento, como fazer isso? Este artigo mostrará o método de atualização da data e hora atuais clicando em um Botão de Comando no Excel.

Atualizar data e hora por um botão de comando com código VBA


Atualizar data e hora por um botão de comando com código VBA

Faça o seguinte para atualizar a data e a hora por um Botão de Comando no Excel.

1. Insira um botão de comando clicando Desenvolvedor > inserção > Botão de comando (controle ActiveX). Veja a imagem:

2. Clique com o botão direito no botão de comando inserido e clique em Ver código no menu do botão direito.

3. No popping up Microsoft Visual Basic para Aplicações janela, substitua o código original com o código VBA abaixo.

Código VBA: Atualizar data e hora por um botão de comando no Excel

Private Sub CommandButton1_Click()
    Range("A2").Value = Now()
End Sub

Anote os: No código, CommandButton1 é o nome do botão de comando inserido. E A2 é a célula em que a data e hora da atualização serão exibidas. Altere-os conforme necessário.

4. Desative o Modo de design na guia Desenvolvedor. Clique no botão de comando e a data e hora atuais são inseridas na célula A2.

E toda vez que você clicar no botão de comando, a data e a hora na célula A2 serão atualizadas imediatamente.


Artigos relacionados:


As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
parte inferior da aba do escritório
Comentários (7)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Oi lá .. esta é realmente boa informação básica ..


Uma pergunta - como você modifica o código para colocar o carimbo de data na próxima linha abaixo, cada vez que o botão é pressionado? (mantendo os dados previamente escritos acima?)


Muito obrigado!
Este comentário foi feito pelo moderador no site
Oi,
O código VBA abaixo funcionará na célula selecionada. Quando você deseja inserir timestamp em uma célula, basta selecioná-la e pressionar o botão.

Sub CommandButton1_Click () particular
Dim xRg como intervalo
On Error Resume Next
Definir xRg = Seleção
xRg.Value = Agora()
End Sub
Este comentário foi feito pelo moderador no site
Impressionante! Obrigado por este tutorial.


No entanto, como insiro APENAS a data no formato DD/MM/AAAA?
Este comentário foi feito pelo moderador no site
Oi,
Você pode formatar a célula de saída como formatação de data abreviada para resolver o problema.
Este comentário foi feito pelo moderador no site
Eu tenho uma pergunta. Há uma pasta de trabalho que mantemos em um drive compartilhado para toda a equipe acessar. Quero adicionar essa macro a ela para que, sempre que forem feitas alterações, possamos simplesmente pressionar o botão e a hora e a data serão preenchidas automaticamente com um clique. Agora, aqui está a pergunta, desta pasta de trabalho, os dados são puxados para outras pastas de trabalho se eu salvar um novo arquivo como "Habilitado para Macro" e excluir a pasta de trabalho "Não-Macro" antiga, os dados continuarão sendo extraídos desta nova pasta de trabalho ou precisarei corrigir todas as outras pastas de trabalho.
Este comentário foi feito pelo moderador no site
Oi Michelle,
Depois de salvar a pasta de trabalho como uma pasta de trabalho do Excel habilitada para macro, o código ainda funciona bem.
Este comentário foi feito pelo moderador no site
Como faço para atualizar o código para colocar o carimbo de data/hora na célula PRÓXIMA ao botão para que ele se aplique a cada linha
Não há comentários postados aqui ainda

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL