Excel 如何使用公共函数返回日期值

我想使用一个函数，从一系列日期中返回最近的日期

Public Function RecentDate() As Date

Dim MaxDate As Date
Sheets("Data").Activate
MaxDate = Application.WorksheetFunction.Max(Columns("A"))

End Function

但是，当我在sub中使用此函数时，我得到：00:00:00。我做错了什么

Sub ShowDate()

MsgBox (RecentDate())

End Sub

---

您正在调用

函数RecentDate

，但从未将

RecentDate

的值设置为

MaxDate

无论如何，您不需要额外的

MaxDate

，也不需要

激活

“数据”工作表

将

功能

代码更改为：

Public Function RecentDate() As Date

RecentDate = Application.WorksheetFunction.Max(Sheets("Data").Columns("A"))

End Function