Ir para o conteúdo principal

Obtenha e insira a hora de criação e a hora da última modificação nas células

Este artigo falará sobre maneiras de obter a hora de criação e a hora da última modificação das informações da pasta de trabalho atual e inserir a hora de criação e a hora da última modificação das informações da pasta de trabalho atual nas células do Excel.

Obtenha a hora de criação e a hora da última modificação no Excel com o comando Info

Obtenha a hora de criação e a hora da última modificação no Excel com a função Propriedades avançadas

Insira a hora de criação e a hora da última modificação nas células do Excel com o código VBA

Insira a hora de criação e a hora da última modificação nas células/cabeçalho/rodapé com o Kutools para Excel boa ideia 3


seta azul bolha direita Obtenha a hora de criação e a hora da última modificação no Excel com o comando Info

Podemos descobrir a hora exata de criação e a hora da última modificação da pasta de trabalho atual no modo de exibição dos bastidores do Microsoft Excel 2010/2013.

Clique na Envie o > Informação, e no lado direito da visualização dos bastidores exibe o Datas Relacionadas em formação. Debaixo de Datas Relacionadas título, lista a hora da última modificação, a hora de criação e a hora da última impressão. Veja a seguinte captura de tela:

-2

 

Nota: Essa forma está disponível apenas no Microsoft Excel 2010/2013. É inválido no Excel 2007.


seta azul bolha direitaObtenha a hora de criação e a hora da última modificação no Excel com a função Propriedades avançadas

Na verdade, podemos obter a hora de criação e a hora da última modificação da pasta de trabalho atual na caixa de diálogo Propriedades do documento.
Passo 1: Abra o Propriedades Avançadas caixa de diálogo:

No Excel 2007, clique no Office botão> Preparar > Propriedadese um Propriedades do documento barra será exibida abaixo da barra de ferramentas, clique Propriedades do documento > Propriedades Avançadas, veja as capturas de tela:

doc-insert-modificado-time-3-3
-1
doc-insert-modificado-time-4-4

 

No Excel 2010/2013, clique no Envie o > Informação > Propriedades > Propriedades Avançadas.

doc-insert-modificado-time-4-4

Passo 2: No Propriedades Avançadas caixa de diálogo, você verá a hora de criação e a hora da última modificação na guia Estatísticas. Veja a seguinte captura de tela:

doc-insert-modificado-time-4-4


seta azul bolha direita Insira a hora de criação e a hora da última modificação nas células do Excel com o código VBA

As seguintes macros VBA irão ajudá-lo a inserir a hora de criação e a hora da última modificação das informações da pasta de trabalho atual nas células diretamente.

Insira a hora de criação e a hora da última modificação no Excel

Passo 1: Mantenha pressionada a tecla ALT + F11 e abre a janela Microsoft Visual Basic for Applications.

Passo 2: Clique inserção >> Móduloe cole a macro a seguir na janela do módulo.

Código VBA: insira a hora de criação e a hora da última modificação no Excel

Sub Workbook_Open()
Range("A1").Value = Format(ThisWorkbook.BuiltinDocumentProperties("Creation Date"), "short date")
Range("A2").Value = Format(ThisWorkbook.BuiltinDocumentProperties("Last Save Time"), "short date")
End Sub

Passo 3:Aperte o F5 chave para executar esta macro. E então a data de criação e a data da última modificação serão inseridas na célula A1 e na célula A2 separadamente.

Note: você pode modificar a célula de destino no VB de acordo com suas necessidades.

Insira a hora da última modificação da pasta de trabalho no Excel

Passo 1: Mantenha pressionada a tecla ALT + F11 e abre a janela Microsoft Visual Basic for Applications.

Passo 2: Clique inserção >> Móduloe cole a macro a seguir na janela do módulo.

Public Function ModDate()
ModDate = Format(FileDateTime(ThisWorkbook.FullName), "m/d/yy h:n ampm")
End Function

Passo 3: Em seguida, salve e feche este código, e volte para a planilha, em uma célula em branco, insira a fórmula de = ModDate ()e pressione o botão Entrar chave. Em seguida, ele insere a hora da última modificação na célula.

-2

Inserir hora criada da pasta de trabalho no Excel

Passo 1: Mantenha pressionada a tecla ALT + F11 e abre a janela Microsoft Visual Basic for Applications.

Passo 2: Clique inserção >> Móduloe cole a macro a seguir na janela do módulo.

Function CreateDate() As Date
CreateDate = ActiveWorkbook.BuiltinDocumentProperties("Creation Date")
End Function

Passo 3: Salve e feche este código, volte para a planilha, em uma célula em branco, insira a fórmula de = CreateDate ()e pressione o botão Entrar key.e a data de criação será inserida na célula conforme as seguintes capturas de tela mostradas:

-2

Nota: Se sua célula não tiver formato de data, pode exibir um número estranho. Basta formatar esta célula como Data formato, ele será mostrado como uma data normal.


seta azul bolha direita Insira a hora de criação e a hora da última modificação nas células/cabeçalho/rodapé com o Kutools para Excel

Posso apresentar uma ferramenta útil -Kutools for Excel qual incluindo mais de 300 funções úteis pode melhorar sua eficiência de trabalho? Com o seu Inserir informações da pasta de trabalho , você pode inserir rapidamente o caminho da pasta de trabalho, nome da pasta de trabalho / planilha, nome de usuário ou hora de criação e hora da última modificação nas células ou cabeçalho ou rodapé.

Kutools for Excel, com mais de 300 funções úteis, tornam seus trabalhos mais fáceis. 

Depois de instalação grátis Kutools para Excel, faça o seguinte:

1. Clique Kutools Plus > livro > Inserir informações da pasta de trabalho. Veja a imagem:
doc última modificação nome2

2. Em seguida, no Inserir informações da pasta de trabalho caixa de diálogo, marque as informações que deseja inserir na seção Informações e vá para especificar o local onde deseja inserir, você pode escolher células, rodapé (rodapé esquerdo, rodapé central, rodapé direito) ou cabeçalho (cabeçalho esquerdo, cabeçalho central, cabeçalho direito). Veja a imagem:
doc insert criado modificado hora 1

3. Clique Ok, e as informações que você verifica foram inseridas no local que você especificar.

Gorjeta. Se você quiser ter um teste gratuito da função Inserir informações da pasta de trabalho, acesse o download gratuito do Kutools para Excel primeiro e, em seguida, aplique a operação de acordo com as etapas acima.

seta azul bolha direita Inserir informações da pasta de trabalho


Melhores ferramentas de produtividade de escritório

Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios    VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula    Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células    Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo.  Clique aqui para obter o recurso que você mais precisa...

guia kte 201905


Office Tab 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!
Comments (21)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I LOOOOOOOOVE YOU!!!! TKSSSSSSS
This comment was minimized by the moderator on the site
I want to automatically create a space between each customer in excel how do i do this??
This comment was minimized by the moderator on the site
Hi Team, I need your help. I am having an excel file, there i want to find the modified date of a particular cell. Please help me with the coding here, if possible. Thanks in advance.
This comment was minimized by the moderator on the site
I learned why "Last Save Time" was not working for me. I put my function in my .XLA file, and "ThisWorkbook" was referring to the .XLA file itself. Therefore I needed to get Application.ActiveWorkbook (presumably the location of the function call), ending up with: Function DocumentProperty(PropertyName As String) ' 'You can refer to document properties either by index value or by name. The following list shows the available built-in document property names: 'Title Subject Author 'Keywords Comments Template 'Last Author Revision Number Application Name 'Last Print Date Creation Date Last Save Time 'Total Editing Time Number of Pages Number of Words 'Number of Characters Security Category 'Format Manager Company 'Number of Bytes Number of Lines Number of Paragraphs 'Number of Slides Number of Notes Number of Hidden Slides 'Number of Multimedia Clips Hyperlink Base Number of Characters (with spaces) Call Application.Volatile(True) Dim ActiveUserWorkbook On Error Resume Next Set ActiveUserWorkbook = Application.ActiveWorkbook If Err.Number 0 Then DocumentProperty = "!!! Error getting Application.ActiveWorkbook: " & Err.Description Exit Function End If DocumentProperty = ActiveUserWorkbook.BuiltinDocumentProperties(PropertyName) If Err.Number 0 Then DocumentProperty = "!!! Unknown Property Name !!!" Exit Function End If End Function
This comment was minimized by the moderator on the site
I see that "Last Save Time" is only referenced ONCE in the code. I'm using Excel 2010.When I put "Last Save Time" into a function, even with Application.Volatile(true), the value never updates. Then I noticed that the value returned by "Last Save Time" does not appear in the Excel 2010 "Properties" page NOR any of the tabs in the "Advanced Properties" dialog. Could "Last Save Time" be some relic?
This comment was minimized by the moderator on the site
Thanks for the help, but I also had a problem with the cell not updating after a save without having to first close and reopen the workbook. I added the following code to the workbook which refreshes after a save event: Private Sub Workbook_AfterSave(ByVal Success As Boolean) If Success Then ActiveSheet.Calculate End If End Sub That did the trick for me. Hope it helps.
This comment was minimized by the moderator on the site
Could this be modified to display the Created Date of other closed files? I'd like to compare the Created Date of a file on my Desktop to a file on a public web server. I could create the formula to use your functions...CreateDate() of local file to CreateDate() of web file...and alert me to a change. I appreciate your help. Bruce
This comment was minimized by the moderator on the site
very very very very very very very very helpful thanks
This comment was minimized by the moderator on the site
Hiya Love love love this but sadly the date only is appearing in USA and in Australia we have dd/mm/yy I've tired changing it to this format using the "Date" section but have not had any luck. Any ideas?
This comment was minimized by the moderator on the site
Julie - in the VBA code use "dd/mm/yy hh:n" instead. That'll put the date in the "right" order! :lol:
This comment was minimized by the moderator on the site
Hey this was awesome. Is it possible to insert the created date and last modified date of a different workbook? I'm looking to create an index file that tells me when other documents were last updated. Thanks!!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations