就是刚打开EXCEL时,日期会自动刷新为当前日期,但我录入文件保存后隔天再打开日期就不会再刷新了。如何用VBA....
最好详细一点儿。谢谢
就是刚打开EXCEL时,日期会自动刷新,但我录入文件保存后隔天再打开日期就不会再刷新了。如何用VBA....
最好详细点儿,我是初学者。谢谢!!!
Private Sub Workbook_Open()
If [a1] = "" Then
[a1] = Date
Else
Exit Sub
End If
End Sub
å¨å·¥ä½è¡¨æ ç¾ï¼å³é®ï¼æ¥ç代ç ã
åå»Thisworkbookï¼å¾å°ä¸ä¸ªä»£ç çªå£
å°è¿æ®µä»£ç ç²è´´å°Thisworkbookç代ç çªå£å å³å¯
a1æ¯ä¸ä¸ªåå æ ¼å°å
è¦æ¹åæ¥æçåæ¾å°åï¼è¯·å°a1æ´æ¹ä¸ºå ¶å®åå æ ¼å°åå³å¯
If [a1] = "" Then
[a1] = Date
Else
Exit Sub
End If
End Sub
å¨å·¥ä½è¡¨æ ç¾ï¼å³é®ï¼æ¥ç代ç ã
åå»Thisworkbookï¼å¾å°ä¸ä¸ªä»£ç çªå£
å°è¿æ®µä»£ç ç²è´´å°Thisworkbookç代ç çªå£å å³å¯
a1æ¯ä¸ä¸ªåå æ ¼å°å
è¦æ¹åæ¥æçåæ¾å°åï¼è¯·å°a1æ´æ¹ä¸ºå ¶å®åå æ ¼å°åå³å¯
温馨提示:答案为网友推荐,仅供参考
第1个回答 2010-02-03
'设a1中为公式产生的日期
Private Sub Workbook_BeforeClose(Cancel As Boolean)
[a1] = [a1]
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
[a1] = [a1]
End Sub
第2个回答 2021-01-06
不改变原始表格数据,打印时自动添加打印日期。
第3个回答 2010-02-04
=today()
第4个回答 2010-02-03
直接用now函数不就行了?