EXCLE在B列输入一组数字,在A列则生成输入B列数字时的日期,要求日期不能随着系统时间变化而变化。

EXCLE在B列输入一组数字,在A列则生成输入B列数字时的日期,要求日期不能随着系统时间变化而变化。

这个要用VBA编程的

这个用单元格事件完成即可，跟什么整个表没关系，代码如下 此代码假定你前二行为表头行，从第三行开始输入有效，即B列从第三行开始输入时，自动在对应行A列输入当前日期 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row > 2 And Target.Count = 1 And Target.Column = 2 Then Target.Offset(0, -1) = Date End If End Sub 以下是自动输入当前日期和时间 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row > 2 And Target.Count = 1 And Target.Column = 2 Then Target.Offset(0, -1) = Now() End If End Sub 以下是自动输入当前时间（不含日期） Private Sub Worksheet_Change(ByVal Target As Range) If Target.Ro...这个用单元格事件完成即可，跟什么整个表没关系，代码如下 此代码假定你前二行为表头行，从第三行开始输入有效，即B列从第三行开始输入时，自动在对应行A列输入当前日期 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row > 2 And Target.Count = 1 And Target.Column = 2 Then Target.Offset(0, -1) = Date End If End Sub 以下是自动输入当前日期和时间 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row > 2 And Target.Count = 1 And Target.Column = 2 Then Target.Offset(0, -1) = Now() End If End Sub 以下是自动输入当前时间（不含日期） Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row > 2 And Target.Count = 1 And Target.Column = 2 Then Target.Offset(0, -1) = Format(Now(), "h:m:s") End If End Sub 以上代码都是写到你需要处理的表格对应的VBE编辑区内