EXCEL所选单元格所在行列有颜色

本文介绍如何使用VBA实现Excel中单元格被选中时背景色改变的功能,提供两种方法:一是直接更改背景色,二是利用格式条件保留原有颜色。同时还附带颜色代码供自定义调整。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

引用:https://zhidao.baidu.com/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 = 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
这个虽然只能显示行不能显示列,但是不会破坏原有填充色。

回答完毕,希望是你要的。
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
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值