切换城市

首页
讲师查询 课程超市 免费比价 内训众包
刘凌峰

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

研发管理 项目管理

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

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

立即购买

刘凌峰二维码
扫一扫讲师移动官网
任意分享朋友圈

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

发布日期:2015-03-18浏览:3766

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

首家按效果付费的培训众包平台

0755-83802522

周一至周五 09:00-18:00


可信网站 百度信誉,放心访问 支付宝-特约商家 网络警察