职工考勤表（vba工作日自动填充批量打印）---源码在最后

资源下载链接：职工考勤表（vba工作日自动填充批量打印）---源码在最后-互联网文档类资源-CSDN下载

功能使用说明：

1.找到开发工具----打开vb编辑器

2.此处代码均可根据自己需要更改

输入开始日期StartDay、结束日期EndDay，打印这期间工作日的表格，每个日期打印两遍，非工作日不打印
'目前仅支持2022年工作日判断，新年份需要手动更新--节假日表

3.运行代码，日期自动填充至单元格f1(可在代码中根据自身需要修改)，并打印2月8号至2月28号期间工作日的考勤表，每个日期打印两遍

源码：


'输入开始日期StartDay、结束日期EndDay，打印这期间工作日的表格，每个日期打印两遍，非工作日不打印
'目前仅支持2022年工作日判断，新年份需要手动更新节假日表Sub 工作日考勤表打印()Dim TheDate, StartDay, EndDay As DateDim stn, isWeekDay, celname As Stringstn = "sheet1"  '工作表名称   ----可修改celname = "f1" '填入日期的单元格名称----可修改  a2 --   f1 --局StartDay = #2/8/2022#   '#########输入开始日期，格式：月/日/年###########EndDay = #2/28/2022# '#########输入结束日期，格式：月/日/年###########TheDate = DateSerial(Year(StartDay), Month(StartDay), Day(StartDay)) '获取开始日期xunhuan:While TheDate <= EndDay '循环，直到跳出结束日期isWeekDay = workDay(TheDate) '调用方法---判断是否是工作日If isWeekDay = "休" Then    '是工作日则不打印----继续下一次循环Debug.Print "不打印！" & TheDateTheDate = TheDate + 1GoTo xunhuanEnd IfSheets(stn).Range(celname) = Format(TheDate, "yyyy年mm月dd日")   '设置单元格celname的内容为日期Sheets(stn).PrintOut  '同一日期第一次打印---上午Debug.Print "第一次打印---上午" & TheDateSheets(stn).PrintOut  '同一日期第二次打印---下午Debug.Print "第二次打印---下午" & TheDateTheDate = TheDate + 1 '当前日期的下一天WendEnd Sub'判断指定日期是否是工作日，是返回"○"，不是返回 "休"
'判断方法----（1）先判断是否是周一至周五（2）遍历节假日表，查询是否是特殊日期
Function workDay(rq)Dim cel As RangeIf Weekday(rq) = 1 Or Weekday(rq) = 7 Thentemp = "休"For Each cel In Range("节假日表!B2:B17")a = DateDiff("d", cel.Value, rq)If a = 0 Thentemp = "○"Exit ForEnd IfNextElsetemp = "○"For Each cel In Range("节假日表!A2:A37")a = DateDiff("d", cel.Value, rq)If a = 0 Thentemp = "休"Exit ForEnd IfNextEnd IfworkDay = temp
End Function

附表格：

职工考勤表（vba工作日自动填充批量打印）---源码在最后相关推荐

iOS表单input自动填充后背景色变为黄色
ios表单Input自动填充背景色变为黄色问题描述解决方案问题描述在开发页面的时候发现,在iOS上input框自动填充后input的背景色变为黄色,再点击一下就可以恢复正常. 解决方案设置自 ...
基于OpenCV的刷脸考勤＆人脸校验＆用户管理系统（源码＆教程）
1.研究背景随着人工智能时代的来临,深度学习赋予了以人脸图像为中心的计算机视觉任务更多的可能.人脸检测是人脸识别系统组成的关键部分之一,其目的是检测出任意给定图片中的包含的一个或多个人脸,是人脸识别 ...
我的CSDN笔记总索引(阅读量降序，代码自动遍历生成HTML5源码)
Python代码用"命令容器"方法os.system(),调用Linux命令行工具crul获取CSDN博文页面源码,Python内置re正则解析出博文笔记信息,按阅读量降序模块输出 ...
java毕业生设计药品自动贩卖系统计算机源码+系统+mysql+调试部署+lw
java毕业生设计药品自动贩卖系统计算机源码+系统+mysql+调试部署+lw java毕业生设计药品自动贩卖系统计算机源码+系统+mysql+调试部署+lw 本源码技术栈: 项目架构:B/S架构开 ...
简约风车壁纸自动采集小程序源码
介绍: 风车壁纸自动采集小程序源码,自动采集,自动更新,无需数据库. 内壁纸资源采自: https://api.zhuti.xiaomi.com; https://at.aliCDN.com; htt ...
自动采集的网站源码-自动采集发布的电影小说新闻网站程序源码
自动采集网站源码,有不少SEO的同伴们都在找可以自动采集网站源码,但是这种源码真的好吗?首先可以自动采集的网站源码程序,规则也是别人写好的,采集的内容也是别人用过的,对于网站收录肯定不是那么友好.我们 ...
轻量级简约的自动采集小说程序源码
正文: 轻量级简约的自动采集小说程序源码,全程序自动采集,更新提示:已经更新采集规则. 安装环境: 1.Nginx环境 2.php7.0,mysql 3.宝塔服务器 4.正常的域名安装教程: 1. ...
赚多多V10自动任务网抢单源码+会员自营版+教程
正文: 赚多多V10自动任务网抢单源码会员自营版+搭建视频教程. 测试了一下,源码非常完整,短信对接的是云之讯,有喜欢的拿去研究,感谢大家对本站的支持环境:Apache 2.4.46 + mysq ...
php如何做7天后自动售货店,PHP自动售货发卡网源码集成多种支付接口
PHP自动售货发卡网源码集成多种支付接口支付接口已集成支付宝当面付支付宝PC支付支付宝手机支付 payjs微信扫码. Paysapi(支付宝/微信). 码支付(QQ/支付宝/微信) 微信企业 ...
springboot自动配置文件读取以及源码分析
今天来讲讲springboot自动配置文件读取以及源码分析 springboot启动之后 1.首先进入@springbootApplication(如上图) 里面的**@EnableAutoConfi ...

职工考勤表（vba工作日自动填充批量打印）---源码在最后

职工考勤表（vba工作日自动填充批量打印）---源码在最后相关推荐

最新文章

热门文章