在VBA功能显示之前添加文本

Question

我有Excel公式宏，显示上次保存的文件时间

Function LastModified() As Date
LastModified = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")
End Function

在单元格B5中，我用以下格式调出它

=LastModified()

它返回以下数据：＆＃34; 43070.58675＆＃34; 我使用格式单元格选项转换为日期和时间格式＆＃34; 01/12/2017 12:38＆＃34;

但是我想添加一个文字＆＃34;最后修改：＆＃34;在此功能之前，在同一个单元格B5中。

请帮忙，谢谢

Answer 1

您应该能够使用Text函数进行格式化，如下所示：

="Last Modified " & TEXT(LastModified(), "dd/mm/yyyy hh:mm")

Answer 2

如果其他单元格在公式中使用B5，您可以保留 DateTime 数据类型，并使用自定义数字格式添加标题：

  

_{右键点击→Format Cells...→Number标签→Custom}

     

类型：

       "Last Modified: "h:mm AM/PM

如果您想更改原始公式，以便始终返回Last modified: 01/12/2017 12:38（作为文字），那么它就像以下一样简单：

Function LastModified() As String
    LastModified = "Last Modified: " & ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")
End Function