这个问题有3个办法
1、用today()函数 但要设置 迭代计算 由于和其他文件需要的设置不同 有些麻烦
2、用宏,Worksheet_Change事件
3、最简单的是在需要日期的单元格上按住ctrl再按;(即ctrl+;)
建议用后2种办法
附上代码 工具-》宏-》 vb编辑器-》双击左侧树型目录的sheet1,然后在右侧代码区复制一下内容。假设A列输入,B列显示日期
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iRow As Integer
Dim iCol As Integer
iRow = Target.Row
iCol = Target.Column
If iCol = 1 And Target.Offset(0, 1) = "" Then
Target.Offset(0, 1) = Date
End If
End Sub
温馨提示:答案为网友推荐,仅供参考