vba 和Excel 根據(jù)日期自動(dòng)生成日期
- 教育綜合
- 2024-02-11 07:57:14
如何利用excel的vba,自動(dòng)插入時(shí)間?
打開EXCEL,按ALT+F11,進(jìn)入VB編輯,右擊插入模塊
在模塊中輸入如圖語(yǔ)句
再點(diǎn)擊工作表輸入如圖語(yǔ)句
關(guān)閉編輯頁(yè)面,進(jìn)入EXCEL頁(yè)面,點(diǎn)擊視圖-宏,選中biao,單擊執(zhí)行
單擊工作表中,任意單元格,就出來了,開始自動(dòng)跳。
注意事項(xiàng)
如需指定單元格,可把模塊語(yǔ)句中的a1改成指定單元格
excel 用VBA設(shè)置A列自動(dòng)顯示當(dāng)天的日期!
如果需要對(duì)多個(gè)單元格自動(dòng)顯示當(dāng)天日期,那么選擇單元格區(qū)域,輸入以下公式,然后按Ctrl+Enter組合鍵結(jié)束
=TODAY()
快速生成當(dāng)天日期,且該日期隨著系統(tǒng)時(shí)間的變化而變化。
詳見附圖
excel VBA 自動(dòng)記錄日期
加入一個(gè)針對(duì)A列數(shù)值的判斷即可。。如果A列有數(shù)值,那么就不寫入,如果為空,寫入即可。。
PrivateSubWorksheet_Change(ByValTargetAsRange)
WithTarget
If.Columns.Count=1Then
If.Column=10And.Row>1Then
ForEachcInTarget
'增加對(duì)A列的判斷
IfLen(c.Offset(0,-9).Value)=0Then
c.Offset(0,-9).Value=Format(Now,"yyyy-mm-ddhh:mm:ss")
EndIf
Next
EndIf
EndIf
EndWith
EndSub
如何用VBA來控制excel中的自動(dòng)當(dāng)前日期
Private Sub Workbook_Open() If [a1] = "" Then [a1] = Date Else Exit Sub End If End Sub 在工作表標(biāo)簽,右鍵,查看代碼。 雙擊Thisworkbook,得到一個(gè)代碼窗口 將這段代碼粘貼到Thisworkbook的代碼窗口內(nèi)即可 a1是一個(gè)單元格地址 要改變?nèi)掌诘拇娣诺刂罚?qǐng)將a1更改為其它單元格地址即可EXCEL用函數(shù)自動(dòng)生成日期和時(shí)間?
1、首先我們需要在excel表上插入一個(gè)空白行。
2、完成第一步之后,再輸入函數(shù)=now()。
3、完成上一步之后,按回車鍵后出現(xiàn)當(dāng)前時(shí)間。
4、這時(shí)候打印預(yù)覽中已經(jīng)能打印出當(dāng)前時(shí)間了。
5、然后保存關(guān)閉excel表格后,接著選擇重新打開。
6、生成日期則是=TODAY(),按回車鍵得到結(jié)果。
展開全文閱讀