在excel显示不同输入数据时的日期

zhcd · 发表于 2009-5-26 10:52

求助，能不能帮忙一下，现在我需要这样的功能。就是如：在电子表格a1单元格中输入内容，在a2中显示当前日期，要求是当第二天在b1单元格中输入时，在b2中显示第二天的日期，而第一天的数据中日期不能改变。以此类推。急急急！！！！

supershll · 发表于 2009-5-26 11:02

不明白什么意思啊。。。

新生报到 · 发表于 2009-5-26 11:07

使用迭代
先要设置：工具-选项-自动重算-迭代 1次
如果需要记录时间的内容输入在B1，在A1中输入以下公式后下拉：
=IF(B1="","",IF(A1="",NOW(),A1))

一意孤行 · 发表于 2009-5-26 11:09

右击sheet1标签>查看代码>粘贴下面的代码

Private Sub Worksheet_Change(ByVal Target As Range)
For Each c In Target.Cells '如果用填充等同时改变了多个单元格,则一个个的进行判断
      With c
         If .Column = 2 Then '判断被改变的单元格是否在B列
            Application.EnableEvents = False
            .Offset(0, -1) = Date '如果在B列,则在同行的A列填充当前系统日期
            Application.EnableEvents = True
         End If
      End With
Next
End Sub

darkqi · 发表于 2009-5-26 11:20

受教，3楼说的确实很好

zhcd · 发表于 2009-5-26 14:47

原帖由 一意孤行 于 2009-5-26 11:09 发表
右击sheet1标签>查看代码>粘贴下面的代码

Private Sub Worksheet_Change(ByVal Target As Range)
For Each c In Target.Cells '如果用填充等同时改变了多个单元格,则一个个的进行判断
With c
...

如果我要在C列输入，在A列显示日期，应该怎么修改上面的代码，请求协助，我对代码一窍不通。谢谢

[ 本帖最后由 zhcd 于 2009-5-26 15:05 编辑 ]

一意孤行 · 发表于 2009-5-26 14:48

原帖由 zhcd 于 2009-5-26 14:47 发表

如果我要在B列输入，在A列显示日期，应该怎么修改上面的代码，请求协助，我对代码一窍不通。谢谢

本来就是这样啊,不用修改.

cocacola0oo · 发表于 2009-5-26 15:00

受教了，谢谢斑竹~~

zhcd · 发表于 2009-5-26 15:06

原帖由 一意孤行 于 2009-5-26 14:48 发表

本来就是这样啊,不用修改.

对不起，我说错了，应该是如果我要在C列输入（写成了B列），在A列显示日期，应该怎么修改上面的代码，请求协助，我对代码一窍不通。谢谢

zhcd · 发表于 2009-5-26 15:16

帮忙改一下这段代码：
要求：1、（第一段代码）让实现在C列输入数据，在A列显示当前输入数据的日期，而且在第二天修改时，原来的数据不会改变成现在的日期。
2、（第二段代码）要求在输入数据后不能让他人修改其中的数据。
3、现在这段代码不能执行任务，请求帮忙修改一下。谢谢。
Private Sub Worksheet_Change(ByVal Target As Range)
For Each c In Target.Cells '如果用填充等同时改变了多个单元格,则一个个的进行判断
      With c
         If .Column = 3 Then '判断被改变的单元格是否在c列
            Application.EnableEvents = False
            .Offset(0, -2) = Date '如果在c列,则在同行的A列填充当前系统日期
            Application.EnableEvents = True
         End If
      End With
Next
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
Me.Unprotect ("7772533") '撤销工作表保护

For Each Rng In Target
      Rng.Locked = True '锁定单元格
Next

Me.Protect ("7772533") '保护工作表
End Sub

[ 本帖最后由 zhcd 于 2009-5-26 15:40 编辑 ]

		自动登录	找回密码
密码			免费注册

[求助] 在excel显示不同输入数据时的日期

帮我改一下代码