利用VBA求每月首个工作日代码,刘凌峰博客 -【搜根网名师汇】刘凌峰博客,刘凌峰网站,刘凌峰文章,刘凌峰最新文章

切换城市

首页

讲师查询课程超市免费比价内训众包

刘凌峰按效果付费暂无评分

研发管理项目管理

讲师官网：http://liulf.sougen.cn/

付费查询讲师联系方式(无需注册扫码即可)
仅需5.00元查询讲师或助教联系方式，仅限聘请讲师授课

立即购买

扫一扫讲师移动官网
任意分享朋友圈

利用VBA求每月首个工作日代码

发布日期：2015-03-18浏览：3808

Private Sub CommandButton1_Click()
Dim yy, mm, dd
yy = Range("b1")
'对12个月进行循环
For m = 4 To 15
mm = Cells(m, 1)
For dd = 1 To 5
If Weekday(yy & "-" & mm & "-" & dd) = 1 Or Weekday(yy & "-" & mm & "-" & dd) = 7 Then
Else
Cells(m, 2) = yy & "-" & mm & "-" & dd
Exit For
End If
Next dd
Range("d2").AddComment
Next m
End Sub