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

Question

我想写一个VBA,检查WEEKNUM或ISOWEEKNUM是否等于该值,然后运行其余的宏.我试过这样做但是因为使用TODAY作为arg我得到了一个错误.

Answer 1

使用WorksheetFunction对象或Excel Application对象将本机函数调用到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.