我们溴溢菏确要改变单元格里面的填充颜色时,可以手动填充,或者使用条件格式里面进行填充。如果手动填充,工作量大;使用条件格式进行填充,需要预先寄噢剪飕在单元格上面设定好条件公式。使用VBA程序代码进行判断填充,不需要繁琐的设置就可以实现需要的功能。
工具/原料
电脑
Excel2010
方法/步骤
1、打开Excel表格,点击【开发工具】,【VisualBasic】,打开VBA工程窗口。
2、双击VBA工程资源管理器里面的“Sheet1(Sheet1)”,在代码窗口里面输入以下代码佼沣族昀:PrivateSubWorksheet_Selecti泠贾高框onChange(ByValTargetAsRange)'改变选择单元格时执行Dimi,j,kAsIntegerSetMySheet1=ThisWorkbook.Worksheets("Sheet1")Fori=3To1000'第3到1000行Forj=2To9'第二列到第九列IfMySheet1.Cells(i,j)<>""Then'如果单元格不是空白,则执行以下程序k=MySheet1.Cells(i,j).Value'将单元格里面的值赋给变量kIfk<60ThenMySheet1.Cells(i,j).Interior.Color=65535'填充颜色为黄色EndIfIfk>=60Andk<80ThenMySheet1.Cells(i,j).Interior.Color=5296274'填充颜色为浅绿色EndIfIfk>=80ThenMySheet1.Cells(i,j).Interior.Color=5287936'填充颜色为绿色EndIfEndIfNextNextEndSub
3、输入完成之后,点击一下Sheet1工作表上面的单元格就会自动填充颜色,之后在指定范围内的单元格里面输入数值,单元格颜色也会跟着改变。
4、判断条件、填充颜色可以根据实际需要,在VBA程序里面修改成所需的。