excel单元格内容初始为白色,如何点按后变黑色,再点按其他单元格后这个单元格又重新变成白色。

如题所述

楼上的代码在操作时如果选择多个单元格时,那选择的单元格区域底色都将充填颜色.增加一名IF判断后就能避免这种情况.
右键单击工作表标签-查看代码.在代码编辑区复制粘贴以下代码:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
Cells.Font.ColorIndex = 2
Target.Font.ColorIndex = 0
End If
End Sub
温馨提示:答案为网友推荐,仅供参考
第1个回答  2010-08-22
打开excel,按Alt+F11进入编程,在左上角对象中 双击 选择sheet1(假如你是操作sheet1表的话),在右边的编译窗口上面的list中,左边选择worksheet,右边选择selectionchange.
在中间输入以下代码:

Cells.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 34
要换颜色只要改34就可以了
第2个回答  2010-08-22
给字体加黑