[求助]已经解决,谢谢了,求点选单元格即变色的VBA

qyfish · 发表于 2007-4-24 19:40

能帮我解决下这个难题吗?

当我点选到某一单元格时,那单元格所在的行列都变色

而换到其它单元格的时候颜色随着而变

能做到吗??

先谢谢了!!!

[此贴子已经被作者于2007-4-24 20:28:33编辑过]

LangQueS · 发表于 2007-4-24 19:46

本论坛下载的资料，请楼主参考：

OjVt7YVO.rar (5.2 KB, 下载次数: 30)

songhuaegg · 发表于 2007-4-24 20:07

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.ColorIndex = xlNone
    Rows(ActiveCell.Row).Interior.ColorIndex = 6
    Columns(ActiveCell.Column).Interior.ColorIndex = 6
End Sub

liujy · 发表于 2007-4-24 20:09

QUOTE:

以下是引用qyfish在2007-4-24 19:40:59的发言：

能帮我解决下这个难题吗?

当我点选到某一单元格时,那单元格所在的行列都变色

而换到其它单元格的时候颜色随着而变

能做到吗??

参考fanjie斑竹的贴子:

[分享]自动为当前单元格所在行和列加上颜色

shaokui123 · 发表于 2008-2-17 15:32

在工作表名称"Sheet1"上单击右键,查看代码,复制以下代码.
关闭窗口，回到工作表就可以了.

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 = 6
End With

End Sub

		自动登录	找回密码
密码			免费注册