请问各位怎样在单元格上面自动填上日期，而以后不变

我个人认为是手打来的快/或者你需要规律性的日期，可以先输入一个初始的定值，改个格式，然后再设计函数类似

ctrl+；
ctrl键+分号键。
输入当天日期

对啊在单元格按CTRL加上 ；enter左边第二个 就可以输入当天日期，按CTRL9 ’ enter左边第一个就可以输入当前时间

楼主的意思是每天自动输入当天日期，以后的每天在新的表格内也自动输入，后面再看前面的每天日期都在表上。是这个意思吧。

如果你是希望像楼上说的那样，那么就在thisworkbook中添加以下代码
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim ws As Worksheet
Application.EnableEvents = False
For Each ws In ThisWorkbook.Worksheets
' 修改 "A1" 为你想要定格日期的单元格
ws.Range("A1").Value = Date
Next ws
Cancel = True
Application.EnableEvents = True
End Sub
这是对你所有的工作表中指定日期的单元格（使用today的）当然，这需要你每一个工作表日期所在都在同一个单元格，如果不是的话，则需要对每一个工作表添加代码如下：
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.EnableEvents = False
' 修改 A1 单元格为你想要定格日期的单元格
Range("A1").Value = Date
Cancel = True
Application.EnableEvents = True
End Sub