vba取消所有单元格填充颜色 vba 录入语句？
vba 录入语句？
1/8在Excel表格表格的菜单栏上面点击【开发工具】，【Visual Basic】打开VBA编辑器。
2/8在VBA编辑器的菜单栏上面点击【再插入】，【模块】。
3/8在代码框里面然后输入帮一下忙代码：
Sub MatchIput()
Dimi,j,m,kAs Longamp#39数据类型定义
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如果没有数据表里面早就未知，则提示框提示窗口，然后进行中,选择
ansMsgBox(msg,style,title)amp#39弹出提示
IfansvbYesThenamp#39如果中,选择“是”，则原来是表格里面的数据可以说被替换后
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如果没有不未知，则在那个数据表格里面不能找到一行空白通过填充后
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在巳经手工绘制后的矩形图上面左键单击右键，选择“指定你宏”。
6/8在“指定你宏”对话框里面中,选择巳经c语言程序的VBA名称，如：MatchIput。
7/8在要录入信息的区域录入信息，后再再点击“录入电脑”即可录入信息。
8/8假如数据录入的信息（姓名）在原来是的表格在原先表格里面已经未知，则会提示框提示信息，然后参与选择。
如果没有中,选择“是”则负责执行重命名那个的信息；如果选择“否”，则会新增一行信息；如果不是中,选择“已取消”，则不会录入信息。
怎么将excel了指定颜色变为无填充颜色？
版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。
