NumberFormat属性在需要返回格式化日期的函数中不生效

Question

Excel VBA问题：

另一个人对NOW（）函数有问题，因为他们希望它返回一个静态日期和时间，而不需要复制和粘贴该值。 我建议用户定义的函数以静态方式正确返回当前日期和时间。 问题是NumberFormat属性被忽略，弹出的结果是一个数字。

我已经尝试了其他几种格式化解决方案，但这些也被忽略或导致错误。

Public Function DateNow() As Date

    ActiveCell.NumberFormat = "[$-en-US]m/d/yy h:mm AM/PM;@"
    DateNow = Now

End Function

预期结果将是静态当前日期和时间。 重新迭代; 代码是正确的，除了说ActiveCell.NumberFormat ...没有生效的部分。

编辑：我已阅读下面的评论，并试图更新它以包括对子的调用，但仍然没有运气。 有人可以指导我解决这个问题吗？ 谢谢。

Public Function DateNow() As Date
    DateNow = Now
    Call DateSub(ActiveCell)
End Function
Public Sub DateSub(rg As Range)

    rg.NumberFormat = "[$-en-US]m/d/yy h:mm AM/PM;@"

End Sub

Answer 1

 Sub test()
      ActiveCell = DateNow
      ActiveCell.NumberFormat = "[$-en-US]m/d/yy h:mm AM/PM;@"
 End Sub


 Public Function DateNow() As Date

     DateNow = Now

 End Function

Answer 2

请尝试以下格式，因为格式化它很重要，所以让格式值在它自己的函数内。 希望！ 它有助于达到目的。 万一有帮助请标记接受的答案。

Public Function DateNow() As String

    DateNow = Format(Now, "[$-en-US]m/d/yy h:mm AM/PM;@")

End Function