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

iamallen

我会好好学习使用的

tlhxhr

<p><font style="BACKGROUND-COLOR: #bb44a3;">Private Sub CommandButton1_Click() '考勤窗体确定按纽</font><br/>Dim a, b, c, d, e, f, cc, i, Sh As Integer<br/>Application.ScreenUpdating = False<br/>a = Sheets("资料").[a65536].End(xlUp).Row '取得[资料]表A列最下行号<br/>c = Sheets("资料").[IV3].End(xlToLeft).Column '取得[资料]表第3行最右列号</p><p>&nbsp;&nbsp;&nbsp; Call QingChu '先运行清除模块<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Sheets("空表").Visible = -1 '显示[空表]<br/>&nbsp;&nbsp;&nbsp; Sheets("考勤统计表").Select<br/>&nbsp;&nbsp;&nbsp; Sheets("考勤统计表").Unprotect<br/>With Sheets("考勤统计表")<br/>&nbsp;&nbsp;&nbsp; .Cells(3, 16).Value = Month(<font style="BACKGROUND-COLOR: #22dd92;">DTPicker1</font>.Value) '考勤年份</p><p>编译错误</p><p>变量未定义</p><p></p><p>什么意思？？求救</p><p></p>

zhongjoyce

<p>看看。谢谢</p><p></p>

膛肖琮琮

VBA工程没有密码,工作表保护密码是空密码

asdf00000

怎么老提示不适用于本机?????

sdlijian

<p>怎么不会总呀？</p>

xyue97

下了,但不能用,稍作修改,再保存不能适合本计算机.晕倒

sdlijian

<p>好东西，不过没有大于26天的，该怎么办？？<br/></p>

海洋123

<p>这么好的东东..怎么没人顶</p><p>顶................................</p>

Catherinejie

<font size="1">这么多如此好的贴子，太值得学习了，谢谢！</font>