新点击的行为黄色，点击过的行为正常颜色

lijianhui · 发表于 2010-6-9 13:55:51

点击众多工作表中特定工作表内，任意的单元格后该行变为黄色，当鼠标再去点击别的行时，该行的颜色恢复正常，新点击的行的颜色为黄色。谢谢！

pureshadow · 发表于 2010-6-9 16:13:29

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 6
End Sub

lijianhui · 发表于 2010-6-10 11:52:06

谢谢！

lijianhui · 发表于 2010-6-10 12:09:02

能让所在的行都变颜色么？万分感谢！

方漠 · 发表于 2010-6-10 16:56:43

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.ColorIndex = 6
End Sub

pureshadow · 发表于 2010-6-10 18:31:04

楼主试试这个，好玩的。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.ColorIndex = 6
target.entirecolumn.interior.colorindex = 6
End Sub

lijianhui · 发表于 2010-6-13 09:00:24

谢谢！！！

lijianhui · 发表于 2010-6-13 09:04:43

您真是太有才了！！！感谢！

amocvv · 发表于 2010-6-19 02:46:26

有点小问题，变过颜色的单元格移开焦点后颜色也就没有了······

春雷乍响 · 发表于 2010-6-27 10:54:41

帐号		自动登录	找回密码
密码			注册

群介绍
Excel中国官方交流群2群 (331511605)
Excel中国官方群 (243419633)
Office China for Exc (498717031)
Excel交流群(纯技术) (324568243)
Excel VBA (122204306)

主题相关群

地区相关群[您还没设置居住地]

新点击的行为黄色，点击过的行为正常颜色

群介绍
主题无相 (随机显示版	同地区群块其他地区)