【v1-6综合练习题1】如何按条件填充颜色

GB16888

Sub TY()<br/>Dim mrg As Range<br/>With Sheets("sheet1")<br/>For Each mrg In .UsedRange<br/>If mrg.Value &gt; 100 Then<br/>爉rg.Interior.ColorIndex = 4<br/>燛nd If<br/>燦ext mrg<br/>燛nd With<br/>End Sub

慧慧

<p>现在交算晚了，但我还是练习过．</p><p>Sub 绿色()<br/>Dim a As Range<br/>For Each a In Union(Range("a1:c10"), Range("d10:f22"))<br/>&nbsp;If a.Value &gt; 100 Then<br/>&nbsp; a.Interior.ColorIndex = 4<br/>&nbsp;End If<br/>Next a<br/>End Sub<br/></p>

慧慧

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>hhzjxss</i>在2007-12-16 12:27:00的发言：</b><br/><p>来两个：</p><p>Sub 填充颜色_UsedRange() '适用于所有已用过的单元格区域<br/>&nbsp;&nbsp;&nbsp; Dim rng As Range<br/>&nbsp;&nbsp;&nbsp; With Sheet1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For Each rng In .UsedRange<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If rng.Value &gt; 100 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; rng.Interior.ColorIndex = 4 '绿色<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next rng<br/>&nbsp;&nbsp;&nbsp; End With<br/>End Sub</p><p>Sub 填充颜色_CurrentRegion() '只适用于相邻连续区域<br/>&nbsp;&nbsp;&nbsp; Dim rng As Range<br/>&nbsp;&nbsp;&nbsp; With Sheet1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For Each rng In .Range("a1").CurrentRegion<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If rng.Value &gt; 100 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; rng.Interior.ColorIndex = 3 '红色<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next rng<br/>&nbsp;&nbsp;&nbsp; End With<br/>End Sub</p><br/></div><p></p>为什么别人都能应用学到的知识，我就不能？[em03][em03][em03]

greenzhu

Sub 颜色填充()<br/>Dim str As Range<br/>For Each str In Union(Range("a1:c9"), Range("d10:f21"))<br/>&nbsp; If str.Value &gt; 100 Then str.Interior.ColorIndex = 4<br/>&nbsp;&nbsp; <br/>&nbsp; 'End If 原来这里可以不用END IF :-)<br/>&nbsp;Next str<br/>End Sub

hncd

Sub ttt1()<br/>燜or Each mrg In Range("a1:c9,d10:f21")<br/>牋 If mrg &gt; 100 Then<br/>牋牋?mrg.Interior.ColorIndex = 4<br/>牋 End If<br/>燦ext mrg<br/>End Sub<br/>

hncd

Sub ttt1()<br/>For Each mrg In Range("a1:c9,d10:f21")<br/>If mrg &gt; 100 Then<br/>mrg.Interior.ColorIndex = 4<br/>End If<br/>Next mrg<br/>End Sub<br/>

hai

好玩

jianzh

Sub AAA()<br/>Dim rng As Range<br/>For Each rng In Union(Range("A1:C9"), Range("D10:F21"))<br/>?If rng &gt; 100 Then<br/>牋牋 rng.Interior.ColorIndex = 10<br/>?End If<br/>Next<br/>End Sub

雪舞霓裳

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>uranus1997</i>在2007-12-19 17:05:00的发言：</b><br/>顶上去[em03]</div><p>Sub green()<br/>&nbsp;&nbsp;&nbsp; Dim x As Range<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For Each x In Range("a1:c9,d10:f21")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If x &gt; 100 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; x.Interior.ColorIndex = 4<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next x<br/>End Sub</p>

[此贴子已经被作者于2007-12-29 10:33:44编辑过]

上东阳光

<p>Sub 填充()<br/><br/>&nbsp;&nbsp;&nbsp; Range("A1:F21").Select<br/>&nbsp;&nbsp;&nbsp; Range("F21").Activate<br/>&nbsp;&nbsp;&nbsp; Selection.FormatConditions.Delete<br/>&nbsp;&nbsp;&nbsp; Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Formula1:="100"<br/>&nbsp;&nbsp;&nbsp; Selection.FormatConditions(1).Interior.ColorIndex = 4<br/>End Sub<br/>自己录的</p>[em04]