excel怎樣用vba寫完成日期？1打開Excel表格，然后點(diǎn)擊【文件】，【另存】，在“保存類型”里面你選“Excel重設(shè)宏的工作薄”并通過能保存。2點(diǎn)擊【開發(fā)工具】，【Visual Basic】再打

excel怎樣用vba寫完成日期？

1打開Excel表格，然后點(diǎn)擊【文件】，【另存】，在“保存類型”里面你選“Excel重設(shè)宏的工作薄”并通過能保存。

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

3在左側(cè)的“VBAProject（自動(dòng)出現(xiàn)記錄時(shí)間點(diǎn).xlsm）”下方鼠標(biāo)雙擊“Sheet1(Sheet1）”先打開代碼輸入輸入窗口。

4在代碼然后輸入窗口里面然后輸入100元以內(nèi)VBA代碼：

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

Dimb1likeBooleanDim a, b,c,d,e,fthoughVariantDim i,jsuchInteger

SetmyDocument(#34Sheet1#34)

Fori2did1000amp#39循環(huán)2-1000次，即：以下自動(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í)間為空白，則負(fù)責(zé)執(zhí)行自動(dòng)填充時(shí)間

5在同一行上面的第1到第5列按的單元格都讀取數(shù)據(jù)信息，且相同行上面的第6列按的單元格是小方框的，這樣是會(huì)在同一行上面的第6個(gè)單元格里面不自動(dòng)寫入到當(dāng)前的時(shí)間。

excel如何一個(gè)相同值匹配多個(gè)結(jié)果？

、電腦先打開Excel表格。

2、可以打開Excel表格后，按Alt F11，主菜單VBA窗口，然后把點(diǎn)擊直接插入。

3、再點(diǎn)擊插到后，選中后插入模塊。

4、再插入模塊后，剪切粘貼代碼

Functionabc(aasRange,blikeRange,casString)

DimtasString

假如a與b的區(qū)域大小差別，就會(huì)顯示“錯(cuò)誤”

If Thenbcf錯(cuò)誤:ExitFunction

在區(qū)域a是循環(huán)

Fori1to

如果不是在a中能找到與c不同的值，就把同一行中的b的內(nèi)容提純不出來，存入變量t中。

Ifa.Cells(i,1)cThenttb.Cells(i,1)

Next

將變量的值賦給選項(xiàng)卡函數(shù)

abct

EndFunction

不能復(fù)制代碼再復(fù)制。

5、ctrl v粘貼代碼后，趕往表格中輸入輸入公式abc($A$1:$A$9,$B$1:$B$9,A1)。

6、輸入輸入公式后，回車就可以不看操作多個(gè)結(jié)果了。