网站asp设计作品,廊坊那家做网站排行榜,公司网站建设前期情况说明,小程序模板点击蓝字关注我们每月月底#xff0c;各位同事把考勤表报到部门后#xff0c;检查核对再汇总一份总考勤表上报#xff0c;传统的复制粘贴总是占用不少时间#xff0c;还容易出错。为提高工作效率#xff0c;现利用Excel实现考勤快速汇总。01 统一考勤模板#xff0c;每个… 点击蓝字关注我们每月月底各位同事把考勤表报到部门后检查核对再汇总一份总考勤表上报传统的复制粘贴总是占用不少时间还容易出错。为提高工作效率现利用Excel实现考勤快速汇总。01 统一考勤模板每个人按统一模板填报自己当月考勤。02 按考勤号和姓名统一文件名。03 收齐每个人考勤表并存放在同一文件夹下(如考勤)。04 新建考勤汇总Excel文件另存Excel启用宏的xlsm格式存于考勤文件夹下。05 打开考勤汇总表设计好表头后进入设计模式插入命令按钮(ActiveX控件)并修改命令按钮名称。06 双击命令按钮(汇总表)进去VBA编辑模式并输入代码。Private Sub CommandButton1_Click() Dim MyPath, MyName, AWbName Dim Wb As Workbook, WbN As String Dim i As Long Dim Num As Long Dim BOX As String Application.ScreenUpdating False 关闭屏幕更新 MyPath ActiveWorkbook.Path 获取当前工作簿的文件位置 MyName Dir(MyPath \ *.xls) 获取文件夹下的所有以“.xls”结尾的文件根据实际情况可改成“.xlsx” AWbName ActiveWorkbook.Name 获取当前工作簿的名称 Num 0 Do While MyName If MyName AWbName Then Set Wb Workbooks.Open(MyPath \ MyName) Num Num 1 For i 1 To Wb.Sheets.Count 写入Excel文件内容 Wb.Sheets(i).UsedRange.Copy Range(A65536).End(xlUp).Offset(2, 0) Next WbN WbN Chr(13) Wb.Name Wb.Close False End If MyName Dir Loop Range(A1).Select Application.ScreenUpdating True 恢复屏幕更新 MsgBox 共合并了 Num 个工作簿。如下 Chr(13) WbN, vbInformation, 提示 End Sub07 退出设计模式单击命令按钮(汇总表)。08 保存考勤汇总表Excel完成20人考勤汇总。制作好模板后只需要每人按期上报自己的考勤部门收齐后存放同一文件夹下点击考勤汇总表中的汇总表按钮就可以快速完成考勤汇总。作者海航排版曾钰金鹰电力微信号jinyingdianli▇ 扫码关注我们
