自习室竞答:选中的行填色

mingtian099

okkkkkkkkkkkk

京京1986

[em01][em01]

citie

学习

zzjj1600

<p>路过</p>

linyaya

老师,不要再搞那个回复可见行不???

linyaya

<p>rivate Sub Worksheet_SelectionChange(ByVal Target As Range)<br/>&nbsp;&nbsp;&nbsp; Cells.Interior.ColorIndex = xlNone<br/>&nbsp;&nbsp;&nbsp; Columns(Target.Column).Interior.ColorIndex = 8<br/>End Sub<br/>'这是列变单色的</p><p>rivate Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)<br/>On Error Resume Next<br/>Cells.FormatConditions.Delete<br/>With Target.EntireRow.FormatConditions<br/>.Delete<br/>.Add xlExpression, , "TRUE"<br/>.Item(1).Interior.ColorIndex = 7<br/>End With<br/>End Sub</p><p>这是行变单色的代码</p><p>rivate Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)<br/>&nbsp;&nbsp;&nbsp; On Error Resume Next<br/>&nbsp;&nbsp;&nbsp; Cells.FormatConditions.Delete<br/>&nbsp;&nbsp;&nbsp; iColor = Int(50 * Rnd() + 2)<br/>&nbsp;&nbsp;&nbsp; With Target.EntireRow.FormatConditions<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Delete<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Add xlExpression, , "TRUE"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Item(1).Interior.ColorIndex = iColor<br/>&nbsp;&nbsp;&nbsp; End With<br/>&nbsp;&nbsp;&nbsp; With Target.EntireColumn.FormatConditions<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Delete<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Add xlExpression, , "TRUE"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Item(1).Interior.ColorIndex = iColor<br/>&nbsp;&nbsp;&nbsp; End With<br/>End Sub</p><p>这是行列都变色的代码</p><p></p>

userlml

<a href="http://www.excelpx.com/dispbbs.asp?BoardID=160&amp;replyID=1290310&amp;ID=75413&amp;skin=1"><font color="#000000" size="+0">回复看答案</font></a>

lidebo1

good

lqqyj

<p>&nbsp;<a href="http://www.excelpx.com/dispbbs.asp?BoardID=160&amp;replyID=1296832&amp;ID=75413&amp;skin=1"><font color="#000000" size="+0">学习一下方法</font></a></p>