自动输入日期，当不随时间而自动改变

cyswinner

自动输入日期，当不随时间而自动改变，要用什么函数。用today（）就不行了。 mdoyqz1f.rar (6.54 KB, 下载次数: 11)

2008-3-5 23:24 上传

点击文件名下载附件
自动输入日期，当不随时间而自动改变 <br/>

[此贴子已经被作者于2008-3-5 23:24:27编辑过]

喵喵

<p>这样<br/><br/>rivate Sub Worksheet_Change(ByVal Target As Range)<br/><br/>Dim x As Integer<br/>Dim y As Integer<br/><br/>x = Target.Row<br/>y = Target.Column<br/><br/>If y = 1 And Cells(x, 1).Value &lt;&gt; "" Then<br/>&nbsp;&nbsp;&nbsp; Cells(x, 2) = Date<br/>End If<br/><br/>End Sub<br/></p>

[此贴子已经被作者于2008-3-6 0:20:34编辑过]

laosanjie

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>喵喵</i>在2008-3-5 23:43:00的发言：</b><br/><p>这样<br/><br/>rivate Sub Worksheet_Change(ByVal Target As Range)<br/><br/>Dim x As Integer<br/>Dim y As Integer<br/><br/>x = Target.Row<br/>y = Target.Column<br/><br/>If y = 1 And Cells(x, 1).Value &lt;&gt; "" Then<br/>&nbsp;&nbsp;&nbsp; Cells(x, 2) = Date<br/>End If<br/><br/>End Sub<br/></p><br/></div><p></p><font color="#dd226d" size="5">又出来第2种方案了！收藏学习了。</font> [em17][em17][em17]