当前正在使用函数,作为函数的一部分,我需要在VBA的列中找到最早的日期。花了一段时间寻找解决方案,但找不到很多。我找到了一条线,但是它实际上不起作用。病态的代码片段我有,但任何建议或解决方案将不胜感激!
Public Function SetSOWDates() As String
Dim wsCRC As Worksheet
Set wsCRC = Worksheets("CRC")
Dim LastRowInCRC As Long
LastRowInCRC = CRC.LastRowInCRC()
LatestDate = Format(wsCRC.Max(Range("K8:K" & LastRowInCRC)), "dd/mm/yyyy")
Debug.Print LatestDate
End Function
最佳答案
您想要的是Min
,而不是最旧的日期,它是Max
的成员,而不是WorksheetFunction
:
LatestDate = Format(Worksheetfunction.Min(wsCRC.Range("K8:K" & LastRowInCRC)), "dd/mm/yyyy")