EXCEL所选单元格所在行列有颜色
答案:5 悬赏:50 手机版
解决时间 2021-11-15 07:50
- 提问者网友：活着好累
- 2021-11-14 19:07
EXCEL所选单元格所在行列有颜色
最佳答案
- 五星知识达人网友：夜余生
- 2021-11-14 20:44
这个需要用到代码，方法如下：
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 = vbGreen
End With
End Sub
7. 贴完之后，关闭对话框。关闭编辑框，返回到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
这个虽然只能显示行不能显示列，但是不会破坏原有填充色。
回答完毕，希望是你要的。
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 = vbGreen
End With
End Sub
7. 贴完之后，关闭对话框。关闭编辑框，返回到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
这个虽然只能显示行不能显示列，但是不会破坏原有填充色。
回答完毕，希望是你要的。
全部回答
- 1楼网友：人類模型
- 2021-11-14 23:42
学习了。
- 2楼网友：北城痞子
- 2021-11-14 22:27
巴尔干的好
- 3楼网友：上分大魔王
- 2021-11-14 22:14
设置格式/条件格式,把你需要的行设置一个颜色就行
然后后面的根据需要隔几行再设一个颜色,用格式刷就行
然后后面的根据需要隔几行再设一个颜色,用格式刷就行
- 4楼网友：举杯邀酒敬孤独
- 2021-11-14 21:13
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Cells.Interior.ColorIndex = xlNone
Rows(Target.Row).Interior.ColorIndex = 35
Columns(Target.Column).Interior.ColorIndex = 35
End Sub
会用代码吗？用这个可以实现.
ActiveSheet.Cells.Interior.ColorIndex = xlNone
Rows(Target.Row).Interior.ColorIndex = 35
Columns(Target.Column).Interior.ColorIndex = 35
End Sub
会用代码吗？用这个可以实现.
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯