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