用于从单元格中提取上次编辑时间戳的Vba函数或公式

时间:2014-06-03 15:04:41

标签: vba excel-vba excel-formula excel-2007 excel

excel中有一个包含100个超链接单元格的文件,该链接每周更新一次,来自多个人。我想知道是否有公式或vba脚本来获取更新到超链接单元格的日期和时间,而不是手动输入日期和时间。

请注意,超链接不在日期中,它只是工作簿的标题

1 个答案:

答案 0 :(得分:0)

在模块中尝试以下代码,并使用Call UpdateTimeStamp

调用例程
Sub UpdateTimeStamp()
  Dim HL As Hyperlink
       For Each HL In ActiveSheet.Hyperlinks
         HL.Range.Offset(0, 1).Value = HL.Address
         HL.Range.offset(0, 1).value = FileDateTime(HL.Range.Offset(0, 1).value)
       Next
End Sub

这应该返回超链接末尾的文件最后一次更新在超链接右侧的单元格中。 但是我没有时间测试这个!

<强>更新

Sub UpdateTimeStamp()
    Dim HL As Hyperlink
    For Each HL In ActiveSheet.Hyperlinks
      HL.Range.Offset(0, 1).Value = FileDateTime(HL.Address)
    Next
End Sub

此代码适用于我,返回链接末尾文件的日期和时间