如题所述
1、按ALT+F11进入VBE窗口
2、如果你的表在sheet1中，你就点左边工程管理器里的sheet1（总之你在哪个表中要实现这个功能就点开哪个工作表）。
3、在右边的窗口中输入下边代码：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Value <> "" Then
Target.Offset(0, -1) = Format(Date, "dd日")
End If
End Sub
4、这样你回到工作表，在B列输入数据。
A列就会出现当前日期。追问
2、如果你的表在sheet1中，你就点左边工程管理器里的sheet1（总之你在哪个表中要实现这个功能就点开哪个工作表）。
3、在右边的窗口中输入下边代码：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Value <> "" Then
Target.Offset(0, -1) = Format(Date, "dd日")
End If
End Sub
4、这样你回到工作表，在B列输入数据。
A列就会出现当前日期。追问
你好，谢谢你你帮忙。我想问如果C1填入内容，F1就自动填写日期，正确要怎样设置
温馨提示：答案为网友推荐，仅供参考
第1个回答 2014-03-18
总结下，常用的三种方案：
一，使用函数如 today()不能实现不变的日期。
二、VBA，你会的话，就不来这里问了。不过你照抄上边的也行，需要灵活运用，自己修改下。
三、用快捷键输入，ctrl+；
一，使用函数如 today()不能实现不变的日期。
二、VBA，你会的话，就不来这里问了。不过你照抄上边的也行，需要灵活运用，自己修改下。
三、用快捷键输入，ctrl+；
第2个回答 推荐于2021-01-06
在单元格里输入=today()。得出当前日期后。复制-选择性粘贴-值和数字格式。
第3个回答 2020-12-18
不改变原始表格数据，打印时自动添加打印日期。
