[原创]一个通用的考勤表

yuanzhuping

<p>为公司做了一个考勤表，免了大家手写之苦。</p><p>1、[设置]按纽：可以自由设置单位名称、部门名称、部门负责人、考勤员，增加减少部门人员。</p><p>2、[考勤]按纽：开始填写所选部门的考勤表。</p><p>3、[人员考核]按纽：考核个人的出勤记录，按[批量录入]按纽可一次录入，如有变化要修改自动录入的个人出勤统计表上的出缺勤记录，在“到”栏输入1就是出勤，如有缺勤在“缺”栏输入1就是缺勤，工作内容默认的是星期一到五是“工作”，星期六和星期日是“休息”，可以根据实际情况填写工作内容。如果有春节的月份，应出勤天数和实际出勤天数可能有误差，在“出缺勤统计表”中自行修改。<br/></p><p>4、[汇总]按纽：自动统计汇总部门人员的出勤记录。加班等要手工填入。</p><p>5、[打印]按纽：一次性打印所有人员的考勤表。</p><p>使用的顺序就是这样。单位只能设置一个，部门设置不限，但每个部门最多只能有25个人员名单，如超过的话要分成两个部门。使用后如果没有进行设置工作，退出时请不要保存，加快退出速度。</p><p>VBA工程没有密码,工作表保护密码是空密码.</p><p>&nbsp;</p> fheoqHnY.rar (58.89 KB, 下载次数: 16543)

2007-3-14 23:18 上传

点击文件名下载附件
[原创]一个通用的考勤表

<br/>

hhzjxss

<p>谢谢了，收藏 了！·</p>

SWD2000

[<p>555555555555,不能用。提示：forms“无法装在这个对象，因为它不适应于这台计算机”</p><p>&nbsp; Sub YinCang() '隐藏模块<br/>&nbsp;&nbsp;&nbsp; With Application<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .CommandBars.DisableAskAQuestionDropdown = True '去除帮助</p>

yuanzhuping

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>SWD2000</i>在2007-3-15 19:37:47的发言：</b><br/>[<p>555555555555,不能用。提示：forms“无法装在这个对象，因为它不适应于这台计算机”</p><p>&nbsp; Sub YinCang() '隐藏模块<br/>&nbsp;&nbsp;&nbsp; With Application<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .CommandBars.DisableAskAQuestionDropdown = True '去除帮助</p></div><p></p><p>你电脑中没有日历控件。</p><p><a href="http://club.excelhome.net/dispbbs.asp?boardid=2&amp;replyid=755249&amp;id=224797&amp;page=1&amp;skin=0&amp;Star=1">http://club.excelhome.net/dispbbs.asp?boardid=2&amp;replyid=755249&amp;id=224797&amp;page=1&amp;skin=0&amp;Star=1</a></p>7楼。

[此贴子已经被作者于2007-3-15 21:18:01编辑过]

shewoyu

<img src="attachments/dvbbs/2007-3/200731915223773224.gif" border="0" onclick="zoom(this)" onload="if(this.width>document.body.clientWidth*0.5) {this.resized=true;this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" /><br/>怎么回事呢！！

yuanzhuping

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>shewoyu</i>在2007-3-19 15:22:48的发言：</b><br/><img src="attachments/dvbbs/2007-3/200731915223773224.gif" border="0" onclick="zoom(this)" onload="if(this.width>document.body.clientWidth*0.5) {this.resized=true;this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" /><br/>怎么回事呢！！</div><p></p>看4楼的。

slg36

不错，谢谢了。

第十八个

<p>不能用啊。可惜</p><p></p>

yuanzhuping

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>第十八个</i>在2007-4-2 20:17:57的发言：</b><br/><p>不能用啊。可惜</p><p></p></div><p></p>先注册引用日历控件，然后重新下附件。

narutoshyb

<p>谢谢了，收藏 了！·</p>