85问答库 > 设置excel表格中A列为日期列，在任何一行输入信息时其对应A列显示输入时的日期，请问怎样能够达到啊？

设置excel表格中A列为日期列，在任何一行输入信息时其对应A列显示输入时的日期，请问怎样能够达到啊？

2025-01-05 11:37:09

推荐回答（2个）

回答1：

据我的理解，这个需要编写vba脚本，响应单元格change事件，当键入数据时，自动根据上一行A列的日期来填写数据：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("A" & Target.Row) = "" And Target.Row > 1 Then
        Range("A" & Target.Row) = Range("A" & Target.Row - 1)
    End If
End Sub

回答2：

Alt+F11 粘贴以下内容:

Private Sub Worksheet_Change(ByVal Target As Range)
if target.column >1 then cells(target.row,1)=date
End Sub