Office中国论坛/Access中国论坛

标题: 新点击的行为黄色，点击过的行为正常颜色 [打印本页]

作者: lijianhui 时间: 2010-6-9 13:55
标题: 新点击的行为黄色，点击过的行为正常颜色
点击众多工作表中特定工作表内，任意的单元格后该行变为黄色，当鼠标再去点击别的行时，该行的颜色恢复正常，新点击的行的颜色为黄色。谢谢！

作者: pureshadow 时间: 2010-6-9 16:13
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 6
End Sub

作者: lijianhui 时间: 2010-6-10 11:52
谢谢！

作者: lijianhui 时间: 2010-6-10 12:09
能让所在的行都变颜色么？万分感谢！

作者: 方漠 时间: 2010-6-10 16:56
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
楼主试试这个，好玩的。
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
谢谢！！！

作者: lijianhui 时间: 2010-6-13 09:04
您真是太有才了！！！感谢！

作者: amocvv 时间: 2010-6-19 02:46
有点小问题，变过颜色的单元格移开焦点后颜色也就没有了······

作者: 春雷乍响 时间: 2010-6-27 10:54

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)