未定義VBA宏WeekNum

Question

我正在嘗試在VBA中將Week和Num合並為Year。 但是它說WeekNum Sub或Function沒有定義。 我該如何解決？ 這是我的代碼：

For lrow = EndRow To 2 Step -1
    CurrentSheet.Cells(lrow, "AC").Value = _
    CONCATENATE(Year(CurrentSheet.Cells(lrow, "K").Value), _
    "/", Text(WeekNum(CurrentSheet.Cells(lrow, "K").Value), "00"))
Next lrow

*請注意，我僅在一行上執行此操作，僅將_用於讀取功能

謝謝！ :)

Answer 1

在前面添加Application.WorksheetFunction ：

For lrow = EndRow To 2 Step -1
    CurrentSheet.Cells(lrow, "AC").Value = _
    CONCATENATE(Year(CurrentSheet.Cells(lrow, "K").Value), _
    "/", Text(Application.WorksheetFunction.WeekNum(CurrentSheet.Cells(lrow, "K").Value), "00"))
Next lrow