在vba中调用工作表函数Lookup查找日期时报错的原因分析和解决办法

如下图所示:

在vba中调用excel工作表函数Lookup,会显示如上图所示的错误提示。

在excel工作表函数中可以直接使用Lookup函数是没问题的,但是在vba中调用时却不行,由于在vba中,没有办法自动把日期型数据直接转换为数值型数据,所以导致出错。

这时候可以使用Clng函数先将日期型数据转换为日期序号,再在vba中调用excel工作表函数Lookup,最后将返回的结果用CDate函数转换为日期型数据。

代码如下:





       

发表评论