Question

10分提问。选中excel某一单元格，怎么实现让整行整列都变色，离开后单元格颜色恢复为原来。

我知道有这么一个宏
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Rows(Target.Row).Interior.ColorIndex = 20
Columns(Target.Column).Interior.ColorIndex = 20
End Sub
问题是这个宏会把我原来单元格的颜色变成无。该怎么改进解决
有没有办法，实现，而且撤销还能正常使用？？

Answer 1

在名称框输入 x 后回车(名称框:编辑栏最左边的那个小方框)
全选工作表>格式>条件格式>
公式 =OR(ROW(A1)=ROW(x),COLUMN(A1)=COLUMN(x))
单击该对话框上的格式按钮,设置图案颜色.

然后将你的代码改为
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveWorkbook.Names("x").RefersTo = "=" & ActiveCell.Address
End Sub

追问

不好意思，试了下，没效果啊

追答

严格按照我说的操作.
不行的话hi我,把你不行的文件发过来.

追问

您可以永你的方法随便新建个excel，然后给几个单元格填充颜色，就会发现有些小瑕疵了。

追答

瑕疵是指什么?

追问

恩，很难描述清楚。你自己试一下就看到了

追答

我试过了才回答你的.

追问

实现是实现了，可是工作表没办法进行“撤销”操作了。。。。

追答

vba做的更改无法撤销.也许你可以试试api,
参考:
http://club.excelhome.net/viewthread.php?tid=91821