excel表格中，怎样完成A1,B1,C1之后D1出现当前的日期。当然不是=NOW（） 谢谢

查看追问

追问:

是的，而且保存后不能被系统自动更新。

追答:

使用VBA代码能实现你要求。

补充:

调试好后会发给你。

补充:

打开Excel后，按下 Alt + F11 键，将下面的代码复制粘贴到右边空白的VBA编辑框中（如果，编辑未打开，请点击下左边Sheet1或Sheet2……），然后，关闭VBA编辑。   ActiveWindow.DisplayZeros = False X = Target.Row  'y = Target.Column If Range('A' & X) <> 0 And Range('B' & X) <> 0 And Range('C' & X) <> 0 Then    Range('D' & X) = Date & Time    Else    Range('D' & X) = 0 End If End Sub 图示如下：

只有在A列、B列和C列的同一行输入不为0数据，同行D列单元格就显示日期和时间。

补充:

对不起上的代码下了行，请用下的。 Private Sub Worksheet_Change(ByVal Target As Range) ActiveWindow.DisplayZeros = False X = Target.Row  'y = Target.Column If Range('A' & X) <> 0 And Range('B' & X) <> 0 And Range('C' & X) <> 0 Then    Range('D' & X) = Date & Time    Else    Range('D' & X) = 0 End If End Sub

补充:

以上代码，只有在A、B和C列的同行的三个单元格中，同时有不为0的数据时，相应D列同行单元格的日期和时间在存在；如果，在显示日期和时间后，只要删除前三个数据中的任一个数据，后面的日期和时间都消失。