EXCEL2003/2007/2010中,我尺攵跋赈们有时候需要知道了周,需要知道这一周的第1天(星期一)、第2天(星期二)、第3天(星期三)、第4天(星期四)、第5天(星期五)、第6天(星期六傧韭茆鳟)、第7天(星期日,星期天)的日期。利用VBA,轻松两部就可以搞定,如果需要将其绑定为函数,请看我的参考资料链接。
工具/原料
EXCEL
VBA
方法/步骤
1、按“ALT+F11”两个按键,弹出VBA模式右击Thisworkbook-插入-模块
2、拷贝下面代码到空白处,然后关闭VBAFunctionweek2Day(yAs咯悝滩镞Integer,iAsInteger,kAsInteger)As胨检馁秣StringDimdatetempAsDate,jAsIntegerIfi>52ThenMsgBox("一年最多只有52个周!")weekFristDay="1900-1-1"ExitFunctionEndIfdatetemp=y&"-"&1&"-"&1j=VBA.Weekday(datetemp,vbMonday)j=(8-j)+(i-2)*7datetemp=DateAdd("d",j+k-1,datetemp)week2Day=CStr(datetemp)EndFunction
3、在空单元格中输入下面函数=week2day(2014,1,5)‘其中第一个参数是年,第二个参数是第几周,第三个参数该周第几天,该函数返回为2014-1-3日