vba將日期時(shí)間類型轉(zhuǎn)換成數(shù)字型？DateValue是把日期變序號，應(yīng)該是用timeValue吧，然后再*24*60*60就是秒了你試一下下面的time1TimeValue(WorksheetFunc

vba將日期時(shí)間類型轉(zhuǎn)換成數(shù)字型？

DateValue是把日期變序號，應(yīng)該是用timeValue吧，然后再*24*60*60就是秒了你試一下下面的time1TimeValue(WorksheetFunction.Text(arr(row,1),hh:mm:ss))*24*60*60要是有1毫秒，是可以先取不出來，結(jié)果再而且

excel怎樣用vba寫完成日期？

1打開Excel表格，點(diǎn)擊【文件】，【另存為圖片】，在“存放類型”里面你選擇“Excel關(guān)閉宏的工作薄”并接受保存。

2然后點(diǎn)擊【開發(fā)工具】，【Visual Basic】再打開VBA工程窗口。

3在左側(cè)的“VBAProject（手動(dòng)記錄時(shí)間點(diǎn).xlsm）”下方左鍵雙擊“Sheet1(Sheet1）”可以打開代碼輸入輸入窗口。

4在代碼鍵入窗口里面輸入輸入200以內(nèi)VBA代碼：

PrivateSubWorksheet_SelectionChange(ByValfromidasRange)amp#39工作表選定區(qū)域突然發(fā)生改變時(shí)先執(zhí)行

Dimb1likeBooleanDim a, b,c,d,e,flikeVariantDim i,jasInteger

SetmyDocument(#34Sheet1#34)

Fori2to1000amp#39循環(huán)2-1000次，即：200以內(nèi)自動(dòng)填充時(shí)間到1000行

amyDocument.Cells(i,1)amp#39將單元格變量賦值給a

bmyDocument.Cells(i,2)

cmyDocument.Cells(i,3)

dmyDocument.Cells(i,4)

emyDocument.Cells(i,5)

fmyDocument.Cells(i,6)

b1(altgt#34#34,bltgt#34#34,cltgt#34#34,dltgt#34#34,e ltgt#34#34)

Ifb1TrueAndf#34#34Thenamp#39如果沒有的地方行巳經(jīng)填寫信息且自動(dòng)填充時(shí)間為空白，則不能執(zhí)行自動(dòng)填充時(shí)間

5在同一行上面的第1到第5列填寫的單元格都中寫入數(shù)據(jù)信息，且同樣的行上面的第6列對應(yīng)的單元格是空白區(qū)域的，那么變會(huì)在同一行上面的第6個(gè)單元格里面自動(dòng)出現(xiàn)中寫入當(dāng)前的時(shí)間。