如何在VBA中使用weeknum()?

max_wang73 · 发表于 2007-1-29 15:36

如何在VBA中使用weeknum()?

想要在程序中用这个函数直接向单元格输入星期数(周数)。我已加载了分析工具，在worksheet中用这个函数可以，但宏中不行。用了网上找到的下面一段代码，还是不行。

Application.Run("ATPVBAEN.xla!Weeknum", Now(), 2)

Long_III · 发表于 2007-1-29 16:22

没有用过，不知这样是否可以

[a1] = "=weeknum()" '这里输入你的公式

如果要取消公式，则可加句

[a1].value = [a1].value

stanleypan · 发表于 2007-1-29 16:32

无需加载分析工具!

Function Week(Tag)
Week = VBA.DatePart("ww", Tag, vbMonday, vbFirstFourDays)
End Function

max_wang73 · 发表于 2007-1-29 16:52

试了,可以。谢谢！

pretyking · 发表于 2009-10-27 17:32

你 msgbox format(now(),"ww") 试试

rongmaomaozhao · 发表于 2012-12-20 17:12

stanleypan 发表于 2007-1-29 16:32
无需加载分析工具!Function Week(Tag) Week = VBA.DatePart("ww", Tag, vbMonday, vbFirstFourDays)En ...

这个很强大

		自动登录	找回密码
密码			免费注册