引用:/question/106565218.html
1.打开需要应用的excel。2.按ALT+F11,会弹出代码编辑框。3.在左边会显示出上下两个类别框里,名字分别是Project-VBAProject和Properties-sheet1(这个sheet几是你当前编辑的表单)4.在上面的框边有三个小图标,view code(查看代码),view project(查看项目),toggle folder(打开或折叠文件夹)。5.选择view code,会弹出一个编辑框。6.在编辑框里黏贴下面的语言:Private Sub Worksheet_SelectionChange(ByVal Target As Range)With Target'清除工作表单元格的背景色.Parent.Cells.Interior.ColorIndex = xlNone'设置选中区域所在行的背景色.EntireRow.Interior.Color = vbGreen'设置选中区域所在列的背景色.EntireColumn.Interior.Color = vbGreenEnd WithEnd Sub7. 贴完之后,关闭对话框。关闭编辑框,返回到excel。8.这时候你再点击任意单元格,就会自动出现你要的效果了。备注:上面语言中的汉语不用删除,汉语可以可以帮助你了解该行的意思,同时也不会影响编辑效果。如果对行或列的色彩不满意,可以参考下面的色彩代码,自行修改。vbBlack黑vbRed 红vbGreen绿vbYellow黄vbBlue 蓝vbMagenta 洋红vbCyan 青vbWhite白上面的办法对已经有填充色的表格是个灾难,它会清楚原有颜色。你也可以试试下面的方法:Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) On Error Resume Next Cells.FormatConditions.Delete With Target.EntireRow.FormatConditions .Delete .Add xlExpression, , "TRUE" .Item(1).Interior.ColorIndex = 7 End With End Sub这个虽然只能显示行不能显示列,但是不会破坏原有填充色。回答完毕,希望是你要的。
2.按ALT+F11,会弹出代码编辑框。3.在左边会显示出上下两个类别框里,名字分别是Project-VBAProject和Properties-sheet1(这个sheet几是你当前编辑的表单)4.在上面的框边有三个小图标,view code(查看代码),view project(查看项目),toggle folder(打开或折叠文件夹)。5.选择view code,会弹出一个编辑框。6.在编辑框里黏贴下面的语言:Private Sub Worksheet_SelectionChange(ByVal Target As Range)With Target'清除工作表单元格的背景色.Parent.Cells.Interior.ColorIndex = xlNone'设置选中区域所在行的背景色.EntireRow.Interior.Color = vbGreen'设置选中区域所在列的背景色.EntireColumn.Interior.Color = vbGreenEnd WithEnd Sub7. 贴完之后,关闭对话框。关闭编辑框,返回到excel。8.这时候你再点击任意单元格,就会自动出现你要的效果了。备注:上面语言中的汉语不用删除,汉语可以可以帮助你了解该行的意思,同时也不会影响编辑效果。如果对行或列的色彩不满意,可以参考下面的色彩代码,自行修改。vbBlack黑vbRed 红vbGreen绿vbYellow黄vbBlue 蓝vbMagenta 洋红vbCyan 青vbWhite白上面的办法对已经有填充色的表格是个灾难,它会清楚原有颜色。你也可以试试下面的方法:Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) On Error Resume Next Cells.FormatConditions.Delete With Target.EntireRow.FormatConditions .Delete .Add xlExpression, , "TRUE" .Item(1).Interior.ColorIndex = 7 End With End Sub这个虽然只能显示行不能显示列,但是不会破坏原有填充色。回答完毕,希望是你要的。
如果觉得《EXCEL所选单元格所在行列有颜色》对你有帮助,请点赞、收藏,并留下你的观点哦!