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

pink2993

<p>呵呵，参考参考。</p>

wyy830911

打不开哟.

wyy830911

<p>我现在就是用宏做的,试试看</p><p>Sub aa()<br/>'<br/>'aa Macro<br/>'<br/>p = 1<br/>For i = 1 To 2897<br/>p = p + 2<br/>Rows(p &amp; ":" &amp; p).Select<br/>Selection.Insert shift:=xlDown<br/>Next i</p><p>Rows("1:1").Select<br/>Selection.Copy<br/>k = 1<br/>For s = 1 To 2897<br/>k = k + 2<br/>Rows(k &amp; ":" &amp; k).Select<br/>ActiveSheet.Paste<br/>Next s</p><p>End Sub<br/></p>

秦关明月

果然是专业!

micheal_chan

<p>下来看看</p><p>！</p>

forrest

<p>注册日历表控件:</p><p>regsvr32 mscomct2.ocx</p><p></p><p>想了解详细的,再下面:</p><p><a href="http://club.excelhome.net/viewthread.php?tid=224120&amp;replyID=&amp;skin=0">http://club.excelhome.net/viewthread.php?tid=224120&amp;replyID=&amp;skin=0</a></p><p><a href="http://club.excelhome.net/viewthread.php?tid=200152" target="_blank">http://club.excelhome.net/viewthread.php?tid=200152</a></p>

chy_818

谢谢楼主，如果假别类型再全点就好了

jeddeng

<p><font color="#1111ee">我在系统后想转成Excel菜单时无法转换，出现如下错误信息:</font></p><p>运行时出错‘-2147467259（80004005）’：</p><p>方法‘Visible'作用于对象‘Commandbar'时失败</p><p></p><p><font color="#0909f7">导致打开Excel时没有Excel菜单，而且每打一次该系统，就会增加一个系统菜单，请高手指点！</font></p><p><font color="#0909f7">另外问一下，这里不能直接粘贴图片吗？我试了把把图片剪切一部分粘贴不了，须用其他办法吗？</font></p>

zxg751

谢谢高手了，收藏 了！

passion82

我也不能用 哪里下日历控件呢？