Chinarelli TI Consultoria

Função HOJE no VBA

📅 Como Fixar a Função HOJE no VBA do Excel

A função HOJE() é amplamente utilizada no Excel para exibir automaticamente a data atual, atualizando-se sempre que a planilha é aberta ou alterada. Mas, em determinadas situações, especialmente com automações no VBA (Visual Basic for Applications), é importante “fixar” a data de hoje, ou seja, registrar o valor da data atual sem que ela se altere depois.

Neste artigo, você vai aprender como utilizar o equivalente da função HOJE no VBA, e como fixar a data em células de forma simples e eficaz.

Abaixo você encontra 4 folders de demonstração dos conteúdos que existem em nossos Pacotes Completos que você pode adquirir.

  • ✅ Diferença entre HOJE() no Excel e no VBA

    • No Excel:
      =HOJE() atualiza automaticamente todos os dias.

    • No VBA:
      Você pode capturar a data do momento em que executa a macro e mantê-la fixa em uma célula, sem atualizações futuras.


    📝 Como Fixar a Data Atual no VBA

    No VBA, a função equivalente a HOJE() é a Date. Ela pega a data do sistema no momento em que a macro é executada.

    Exemplo básico para fixar a data na célula A1:

     
    Sub FixarDataHoje() Range("A1").Value = Date End Sub

    🟢 Com isso, a data atual será registrada na célula A1 como valor fixo.

🧩 Exemplo com Hora Completa

Se você quiser incluir também a hora (como uma “foto” exata do momento), pode usar a função Now:

Sub FixarDataHora() Range("A1").Value = Now End Sub

🟢 Resultado: a célula A1 mostrará data e hora fixas.


📌 Aplicações Práticas:

  • Registrar a data de preenchimento de formulário

  • Marcar data de movimentação de estoque

  • Criar logs automáticos em planilhas

  • Preencher relatórios sem risco de data se alterar

🚨 Importante Saber:

  • A função Date captura a data uma única vez, no momento da execução.

  • Após executada, o valor da célula não muda como a fórmula =HOJE().

  • Isso é útil para registros históricos ou comprovações de data.


🎁 Exemplo Avançado: Fixar Data em Linha Dinâmica

Sub RegistrarDataEmLinha() Dim ultimaLinha As Long ultimaLinha = Cells(Rows.Count, "A").End(xlUp).Row + 1 Cells(ultimaLinha, 1).Value = Date End Sub

🟢 Essa macro localiza a última linha da coluna A e insere a data do dia na próxima linha disponível.

VOCÊ PODE ADQUIRIR TAMBÉM NOSSO PACOTE COMPLETO, ABAIXO ALGUNS EXEMPLOS

🎯 Conclusão

Ao usar o Date no VBA, você ganha controle total sobre o registro da data na sua planilha. Ideal para situações em que a data não deve mudar, mesmo ao reabrir o arquivo. Essa prática é essencial para automatizar rotinas no Excel com mais segurança e organização.

Função HOJE no VBA

PREÇO REVELADO!

Escolha o melhor pacote para você:

PACOTE DE DASHOARD SIMPLES

PAGAMENTO ÚNICO

sem mensalidade

DE R$ 297
por apenas 12x de

R$ 10,03

Parcelado no cartão de crédito, ou
R$ 97,00 à vista!

⚠️⚠️NÃO É MENSALIDADE⚠️⚠️
PAGUE UMA VEZ SÓ

⚠️⚠️ACHOU BOM? ENTÃO VEJA AS  OFERTAS AO LADO ⚠️⚠️ 

MAIS VANTAGENS

COMPLETO

+ de 400 DASHBOARDS + SUPER BÔNUS + BÔNUS PREMIUM

DE R$ 697
por apenas 12x de

R$ 24,51

Parcelado no cartão de crédito, ou
R$ 237,00 à vista!

PAGAMENTO ÚNICO

sem mensalidade

⚠️⚠️NÃO É MENSALIDADE⚠️⚠️
PAGUE UMA VEZ SÓ

MAIS VENDIDO

COMPLETÃO

+ de 1000 DASHBOARDS + SUPER BÔNUS + BÔNUS PREMIUM + 15.000 PLANILHAS + PACOTE EXCLUSIVO

DE R$ 997
por apenas 12x de

R$ 50,37

Parcelado no cartão de crédito, ou
R$ 487,00 à vista!

PAGAMENTO ÚNICO

sem mensalidade

⚠️⚠️NÃO É MENSALIDADE⚠️⚠️
PAGUE UMA VEZ SÓ

Leave a Reply

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *