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

mjm96511

<p>这是我编的宏:</p><p>Sub 颜色填充()<br/>Dim rngabc As Range<br/>&nbsp;&nbsp;&nbsp; For Each rngabc In Range("A1:C9,D10:F21")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If rngabc.Value &gt; 100 Then rngabc.Interior.ColorIndex = 4<br/>&nbsp;&nbsp;&nbsp; Next<br/>End Sub</p>

[此贴子已经被作者于2007-12-16 13:42:31编辑过]

zgwei050

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>为工作</i>在2007-12-16 13:25:00的发言：</b><br/><p>谢谢雨版...</p><p>那这两个单词呢??</p><p>Interior.ColorIndex </p></div><p>查字典了，是“单元格内部颜色指数”的意思 </p><p>0－无颜色，1－黑色，2－白色，3－红色，4－绿色，5－兰色，6－黄色，7－紫色.......输入各种数字后，颜色还挺多！</p>

hhzjxss

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>为工作</i>在2007-12-16 13:25:00的发言：</b><br/><p>谢谢雨版...</p><p>那这两个单词呢??</p><p>Interior.ColorIndex </p></div><p><font face="宋体" size="2">.Interior.ColorIndex =4 '定义单元格的填充颜色，也就是底色，这个为4。是绿色！</font></p>

[此贴子已经被作者于2007-12-16 14:00:16编辑过]

laosanjie

谢谢兰版提供的交流贴！也学习各位编程思路。

alexpan

<p>我用do while&nbsp;...loop弄一个</p><p>Sub test()<br/>Dim x%, y%<br/>x = 1<br/>y = 1<br/>50:<br/>&nbsp;&nbsp;&nbsp; Do While x &lt; 22<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Cells(x, y) &lt;= 100 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; x = x + 1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Cells(x, y).Interior.ColorIndex = 4<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; x = x + 1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If x = 21 And y &lt; 7 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; x = 1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; y = y + 1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; GoTo 50<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ElseIf x = 21 And y = 7 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; GoTo 100<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp; Loop<br/>100:<br/>End Sub</p>

minant

<p>我的代码：</p><p>Sub exercise1()<br/>Dim grn As Range<br/>&nbsp;&nbsp;&nbsp; With Sheet("sheets1")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For Each grn In .UsedRange<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If grn.Value &gt; 100 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; grn.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<br/>&nbsp;&nbsp;&nbsp; End With<br/>End Sub</p><p>&nbsp;</p>[em01][em01][em01]

[此贴子已经被作者于2007-12-16 18:37:29编辑过]

箫风

<p>这样也可以吧！</p><p>Sub 填色()<br/>Dim nrg As Range<br/>For Each nrg In Union(Range("a1:c9"), Range("d10:f21"))<br/>&nbsp;&nbsp;&nbsp; If nrg &gt; 100 Then nrg.Interior.ColorIndex = 10<br/>&nbsp;&nbsp;&nbsp; Next nrg<br/>End Sub<br/></p>

刺桐

<p>原来大家动作这么快</p><p>我怎么做个题要花好长时间呢？</p>

杨副官

Sub 填充颜色()<br/>Dim rng As Range<br/>For Each rng In Range("a1:c9,d10:f21")<br/>&nbsp; If rng &gt; 1000 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp; rng.Interior.ColorIndex = 4<br/>&nbsp; End If<br/>Next rng<br/>End Sub

晓

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