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

Question

我想使用返回一系列日期中最近日期的函數。

Public Function RecentDate() As Date 

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

End Function 

但是，當我在一個子內使用這個函數時，我得到：00:00:00。我究竟做錯了什麼？

Sub ShowDate() 

MsgBox (RecentDate()) 

End Sub 

Answer 1

要調用Function RecentDate，但你永遠的RecentDate值設置爲MaxDate值。

無論如何，你不需要額外的可用的MaxDate，並且不需要Activate「數據」工作表。

更改Function代碼：

Public Function RecentDate() As Date 

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

End Function