[已解决][求助]这个代码为什么会出错

rinyxa · 发表于 2012-2-23 18:28

本帖最后由 rinyxa 于 2012-2-23 18:30 编辑

我很不懂VBA，请教不知附件里的代码为什么会出错？谢谢！！！

最佳答案

cbg2008

2012-2-23 22:07

本帖最后由 cbg2008 于 2012-2-23 22:36 编辑

楼主错在这个函数
DateDiff("md", arr(i, 1), arr(i, 2))
这是工作表函数Datedif和VBA函数Datediff的区别，工作表函数Datedif能用参数"MD"，而VBA函数Datediff却不能，而且，这个工作表函数Datedif还不能被VBA引用，所以直接把公式赋值到D列中，应该是最简单的办法吧。
为什么不能引用，请看这个帖子。
http://www.excelpx.com/thread-186034-1-1.html
我改了一下代码，你自己试一下吧。

超过15天算不及时率.rar (36.16 KB, 下载次数: 8)

fjmxwrs · 发表于 2012-2-23 18:34

本帖最后由 fjmxwrs 于 2012-2-23 18:43 编辑

什么地方错，你要的是什么？你要怎么计算？足月后的天数是指什么？没有需求怎么回答呢？

fjmxwrs · 发表于 2012-2-23 20:53

以下代码足月后天数是指出生后一个月开始的天数

超过15天算不及时率.zip (50.33 KB, 下载次数: 7)

cbg2008 · 发表于 2012-2-23 22:07

这个最佳答案由 cbg2008 给出，感谢 cbg2008 的回答。

单击隐藏图章

本帖最后由 cbg2008 于 2012-2-23 22:36 编辑

楼主错在这个函数
DateDiff("md", arr(i, 1), arr(i, 2))
这是工作表函数Datedif和VBA函数Datediff的区别，工作表函数Datedif能用参数"MD"，而VBA函数Datediff却不能，而且，这个工作表函数Datedif还不能被VBA引用，所以直接把公式赋值到D列中，应该是最简单的办法吧。
为什么不能引用，请看这个帖子。
http://www.excelpx.com/thread-186034-1-1.html
我改了一下代码，你自己试一下吧。

超过15天算不及时率.rar (36.16 KB, 下载次数: 8)

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