工作表自杀

hhzjxss

<br /><br /><P>刚才看到在<STRONG><FONT color=#61b713 face=Verdana>shcxxy</FONT></STRONG>问工作表自杀的问题，要求只能在2天内使用工作表“1”，我写了两句利用工作表（注册表的就不用了）存在初始时间的代码，大家看看有什么好思路！</P>
<P>&nbsp;</P>
<P>问题的帖子：<B>[求助]工作表的时间限制</B></P>
<P><A href="http://www.excelpx.com/forum.php?mod=viewthread&amp;tid=55675&amp;replyID=55675">http://www.excelpx.com/forum.php?mod=viewthread&amp;tid=55675&amp;replyID=55675</A></P>
<P>&nbsp;</P>
<P>&nbsp;</P>
<BLOCKQUOTE>Private Sub Workbook_Open()<BR>&nbsp;&nbsp;&nbsp; Application.DisplayAlerts = False<BR>&nbsp;&nbsp;&nbsp; With Sheets("1").Range("IV1")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If .Value = "" Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Value = Day(Date)&nbsp;&nbsp;&nbsp; '这句是为了记录初始时间<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Day(Date) &gt;= .Value + 2 Then Sheets("1").Delete<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ThisWorkbook.Save<BR>&nbsp;&nbsp;&nbsp; End With<BR>&nbsp;&nbsp;&nbsp; Application.DisplayAlerts = True<BR>End Sub</BLOCKQUOTE>

一剑惊心

学习一下

legend_chen

<p>学习</p><p></p>

tkgg93

看

xushiyuan

学习

zbhpass

<div style="MARGIN-TOP: 10px; FONT-SIZE: 10pt; MIN-HEIGHT: 200px; WORD-BREAK: break-all; TEXT-INDENT: 24px; LINE-HEIGHT: normal; WORD-WRAP: break-word;">学习<br/></div>

zbhpass

定义隐藏的名称

shcxxy

学习

秦始皇

学习

shcxxy

谢谢版主的指点,我试一下,有问题再请教.