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

不明白什么意思啊。。。

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

右击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

受教，3楼说的确实很好

引用:

原帖由 一意孤行 于 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 编辑 ]

引用:

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

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

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

受教了，谢谢斑竹~~

引用:

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


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

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

帮忙改一下这段代码：
要求：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 编辑 ]