我们经常要将日期转换成星期,这个在Excel中很容易实现,但是如何使用vba来转换,这个可能大家就不熟悉了,今天就来给大家演示一下如何使用vba来进行日期到星期的转换:
首先打开Excel,如图所示,有一列日期,我们在第二列输入周几,作为星期列
![VBA如何判断一个日期是星期几[2]Excel2013教程](https://exp-picture.cdn.bcebos.com/a1780d1fceecd3d9a57c327067995943050108a2.jpg)
我们切换到vb界面,如图所示,在菜单栏上执行:开发工具--vb
![VBA如何判断一个日期是星期几[2]Excel2013教程](https://exp-picture.cdn.bcebos.com/5c2a1ad149299a88ee1a285167eeadbcbf2f7fa2.jpg)
双击模块,打开模块,在这个模块中定义一个函数,如图所示:在下面的参考资料里有这个Excel文件的下载链接
![VBA如何判断一个日期是星期几[2]Excel2013教程](https://exp-picture.cdn.bcebos.com/e57a258602214f57705f930f732064fb970b73a2.jpg)
接着我们选中b2单元格,输入公式:=周几(a2),这样就可以计算周几了
![VBA如何判断一个日期是星期几[2]Excel2013教程](https://exp-picture.cdn.bcebos.com/04201aa355e983ae05de999e68efe078153169a2.jpg)
拖动b2单元格的右下角,快速填充下面的单元格,到此我们就完成了所有的日期的转换
![VBA如何判断一个日期是星期几[2]Excel2013教程](https://exp-picture.cdn.bcebos.com/1570c1b6326c57666cc6c2e7a4632385e13661a2.jpg)
![VBA如何判断一个日期是星期几[2]Excel2013教程](https://exp-picture.cdn.bcebos.com/e3d059e833e03972c30a7b5eb5863048604356a2.jpg)