vba取消所有單元格填充顏色 vba 錄入語(yǔ)句？
vba 錄入語(yǔ)句？1/8在Excel表格表格的菜單欄上面點(diǎn)擊【開(kāi)發(fā)工具】，【Visual Basic】打開(kāi)VBA編輯器。2/8在VBA編輯器的菜單欄上面點(diǎn)擊【再插入】，【模塊】。3/8在代碼框里面然
vba 錄入語(yǔ)句？
1/8在Excel表格表格的菜單欄上面點(diǎn)擊【開(kāi)發(fā)工具】，【Visual Basic】打開(kāi)VBA編輯器。
2/8在VBA編輯器的菜單欄上面點(diǎn)擊【再插入】，【模塊】。
3/8在代碼框里面然后輸入幫一下忙代碼：
Sub MatchIput()
Dimi,j,m,kAs Longamp#39數(shù)據(jù)類(lèi)型定義
Dimmsg,style,title,ans
OnErrorResumeNextamp#39如果沒(méi)有運(yùn)行過(guò)程中，則忽視
Setmysheet1(#34Sheet1#34)amp#39定義方法工作表
Setmysheet2(#34Sheet2#34)amp#39定義工作表
msg#34該用戶信息也存在，是否需要替換？#34
stylevbYesNoCancelvbDefaultButton3amp#39會(huì)顯示“是”“否”“已取消”三個(gè)按鈕
title#34溫馨提示#34
m(mysheet1.Cells(2,2),mysheet2.Range(#34A1:A1000#34),0)
amp#39換算單元格所在的位置
Ifmdstrok1Thenamp#39如果沒(méi)有數(shù)據(jù)表里面早就未知，則提示框提示窗口，然后進(jìn)行中,選擇
ansMsgBox(msg,style,title)amp#39彈出提示
IfansvbYesThenamp#39如果中,選擇“是”，則原來(lái)是表格里面的數(shù)據(jù)可以說(shuō)被替換后
Forj1want4amp#39圖案填充該單元格所在位置的1-4列
mysheet2.Cells(m,j)mysheet1.Cells(j1,2)
Next
EndIf
IfansvbNoThenamp#39如果沒(méi)有選擇“否”，則在原來(lái)是表格里面找不到空白的單元格寫(xiě)入到
Fork2to1000
Ifmysheet2.Cells(k,1)#34#34Then
Forj1can4
mysheet2.Cells(k,j)mysheet1.Cells(j1,2)
Next
Exitany
EndIf
Next
EndIf
Elseamp#39如果沒(méi)有不未知，則在那個(gè)數(shù)據(jù)表格里面不能找到一行空白通過(guò)填充后
Fork2did1000
Ifmysheet2.Cells(k,1)#34#34Then
Forj1did4
mysheet2.Cells(k,j)mysheet1.Cells(j1,2)
Next
Exitafter
EndIf
Next
EndIf
EndSub
4/8回到Sheet1工作表界面，然后點(diǎn)擊菜單欄上面的【再插入】，在形狀里面你選“正方形”插入到到表格上面，然后再填充后所需的顏色、文字。
5/8在巳經(jīng)手工繪制后的矩形圖上面左鍵單擊右鍵，選擇“指定你宏”。
6/8在“指定你宏”對(duì)話框里面中,選擇巳經(jīng)c語(yǔ)言程序的VBA名稱(chēng)，如：MatchIput。
7/8在要錄入信息的區(qū)域錄入信息，后再再點(diǎn)擊“錄入電腦”即可錄入信息。
8/8假如數(shù)據(jù)錄入的信息（姓名）在原來(lái)是的表格在原先表格里面已經(jīng)未知，則會(huì)提示框提示信息，然后參與選擇。
如果沒(méi)有中,選擇“是”則負(fù)責(zé)執(zhí)行重命名那個(gè)的信息；如果選擇“否”，則會(huì)新增一行信息；如果不是中,選擇“已取消”，則不會(huì)錄入信息。