excel VBA 自动记录日期

加入一个针对A列数值的判断即可。。如果A列有数值，那么就不写入，如果为空，写入即可。。

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Columns.Count = 1 Then
            If .Column = 10 And .Row > 1 Then
                For Each c In Target
                    '增加对A列的判断
                    If Len(c.Offset(0, -9).Value) = 0 Then
                        c.Offset(0, -9).Value = Format(Now, "yyyy-mm-dd hh:mm:ss")
                    End If
                Next
            End If
        End If
    End With
End Sub

在EXCEL中如何使它象WORD一样的自动定时保存文件？
　　 点击“工具”菜单“自动保存”项，设置自动保存文件夹的间隔时间。如果在“工具”菜单下没有“自动保存”菜单项，那么执行“工具”菜单下“加载宏...”选上“自动保存”，“确定”。然后进行设置即可。