excel - 如何在 VBA 语句中使用 WEEKNUM 函数？

Question

我想编写一个VBA，检查WEEKNUM或ISOWEEKNUM是否等于该值，然后运行宏的其余部分。我尝试这样做，但由于使用 TODAY 作为参数而出现错误。

Answer 1

使用 WorksheetFunction object 或 Excel Application object 将 native 函数调用到 VBA 中。

debug.print WorksheetFunction.WeekNum(Date)
debug.print application.WeekNum(Date)
debug.print WorksheetFunction.IsoWeekNum(Date)
debug.print application.IsoWeekNum(Date)
if application.WeekNum(Date) = 28 then
     'it is currently 28
end if

在 VBA 中，TODAY() 函数被 Date 替换。