10分提问。选中excel某一单元格,怎么实现让整行整列都变色,离开后单元格颜色恢复为原来。
我知道有这么一个宏PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)Cells.Interior.ColorI...
我知道有这么一个宏
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
问题是这个宏会把我原来单元格的颜色变成无。该怎么改进解决
有没有办法,实现,而且撤销还能正常使用?? 展开
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
问题是这个宏会把我原来单元格的颜色变成无。该怎么改进解决
有没有办法,实现,而且撤销还能正常使用?? 展开
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
全选工作表>格式>条件格式>
公式 =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我,把你不行的文件发过来.
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询