如何让鼠标点击到的<em>excel</em> 单元格变色？-excel 点击变色,excel点

Excel可以实现鼠标点单元格或所属行变复颜色，具体操作如下：

一、使用工具：excel2010

二、操作步骤：

1、打开制excel2010，按Alt+F11进入VBA编辑器，然后点击工程资源管理器按钮，如图：

2、双击左边的Sheet1打开代码编辑窗，如图：zhidao

3、然后在代码窗口中输入设置行颜色代码，这里设置为6颜色对应的是黄色背景，如果需要其他颜色背景可以更改不同的数字，例如9为红色背景，然后按Ctrl+S进行代码保存，如图：

4、返回excel，这时点击单元格就可以实现所在行颜色变化，如图：

让鼠标点击到的excel 单元格变色的方法：
1.打开需要应用的excel。
2.按ALT+F11，会弹出代码编辑框。
3.在左边会显示出上下两个类别框里，名字分别是Project-VBAProject和Properties-sheet1（这个sheet几是你当前编辑的表单）
(注意：如果什么也新出来的窗e799bee5baa6e78988e69d83363口什么也不显示的话，就->视图->工程资源管理器 就会出来了，此时你可以在Project-VBAProject和Properties-sheet1上直接右键查看代码，在里面直接粘贴第六条的代码即可）
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

这个虽然只能显示行不能显示列，但是不会破坏原有填充色。

让鼠标点击到的excel 单元格变色的方法：
1.打开需要应用的excel。
2.按ALT+F11，会弹出代码编辑框。
3.在左边会显示出上下两个类别框里，名字分别是Project-VBAProject和Properties-sheet1（这个sheet几是你当前编辑的表单）
(注意：如果什么也新出来的窗口什么也不显示的话，就->视图->工程资源管理器 就会出来了，此时你可以在Project-VBAProject和Properties-sheet1上直接右键查看代码，在里面直接粘贴第六条的e68a84e8a2ade79fa5e98193339代码即可）
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

这个虽然只能显示行不能显示列，但是不会破坏原有填充色。