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

bbwsj · 发表于 2007-12-17 09:56

做了下1、适合全表，运行时间0.3125Sub 颜色填充() Dim b As Long, a%    For a = 1 To 256      For b = 1 To Cells(65536, a).End(xlUp).Row        If Cells(b, a) > 100 Then Cells(b, a).Interior.ColorIndex = 4      Next    Next End Sub2、想不出比 for..each in ..next循环 更短的代码做了个只有3条代码的游戏之作，尽针对校长的给的数据（里面没小于100的）。1、发散下思维，2、复习下校长的定位的课，3、博大家一笑。Sub 颜色填充3()     Range("A1:F21").Replace What:="100", Replacement:="#", LookAt:=xlWhole     Selection.SpecialCells(xlCellTypeConstants, 1).Interior.ColorIndex = 4     Range("A1:F21").Replace What:="#", Replacement:="100", LookAt:=xlWhole End Sub 哈哈哈。。。。希望不要因为我而引出用一条代码：Range("a5,c1,......,f20").Interior.ColorIndex = 4的答案来

youke333 · 发表于 2007-12-17 13:15

真是棒呆了……

wxj_perpetua · 发表于 2007-12-17 19:42

多做练习

zjxia889 · 发表于 2007-12-17 20:26

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用bbwsj在2007-12-17 9:56:00的发言： 做了下1、适合全表，运行时间0.3125Sub 颜色填充() Dim b As Long, a%    For a = 1 To 256      For b = 1 To Cells(65536, a).End(xlUp).Row        If Cells(b, a) > 100 Then Cells(b, a).Interior.ColorIndex = 4      Next    Next End Sub2、想不出比 for..each in ..next循环 更短的代码做了个只有3条代码的游戏之作，尽针对校长的给的数据（里面没小于100的）。1、发散下思维，2、复习下校长的定位的课，3、博大家一笑。Sub 颜色填充3()     Range("A1:F21").Replace What:="100", Replacement:="#", LookAt:=xlWhole     Selection.SpecialCells(xlCellTypeConstants, 1).Interior.ColorIndex = 4     Range("A1:F21").Replace What:="#", Replacement:="100", LookAt:=xlWhole End Sub 哈哈哈。。。。希望不要因为我而引出用一条代码：Range("a5,c1,......,f20").Interior.ColorIndex = 4的答案来 </div>第二种方法不对吧，只能填充100的

bbwsj · 发表于 2007-12-18 11:08

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用zjxia889在2007-12-17 20:26:00的发言：                                                                                     第二种方法不对吧，只能填充100的</div>第2方法是 1、先用查找替换把100替换为"#"，2、用定位——数值把其他数值填色 3、用查找替换把"#"改回100。只是个取巧的方法，并不严密，会把小于100的，也填色。我说了只是游戏之作。因为兰给的数都>=100，所以可取这个巧。我做这个，只是发散一下思路，有时在特定的时候，用不严密的东东，也能办成事，关键是速度能快很多。呵呵

[此贴子已经被作者于2007-12-18 11:32:24编辑过]

uranus1997 · 发表于 2007-12-19 17:05

顶上去[em03]

清荷枫儿 · 发表于 2007-12-19 21:16

Sub Macro2()Dim mrg As Range For Each mrg In Range("A1:C9,D10:F21") If mrg.Value > 100 Then mrg.Interior.ColorIndex = 4 Next  End Sub不错，跟着大家学了for each in next 语句，也上来秀下。

guideming · 发表于 2007-12-20 12:42

Sub 填充颜色()     Dim MyRng As Range     For Each MyRng In Range("A1:C9", "D10:F21")         If MyRng > 100 Then MyRng.Interior.ColorIndex = 4  '绿色             Next End Sub

yangfei1983 · 发表于 2007-12-20 22:19

直接录制宏,代码还好,就3句话...就是不理解...没学过formatconditionsSub Macro1()    Range("A1:F21").Select     Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=A1>100"     Selection.FormatConditions(1).Interior.ColorIndex = 4 End Sub

BeyondPC · 发表于 2007-12-21 11:42

Sub BeyondPC6_1() Dim rng As Range Set rng = Sheets("sheet1").Range("a1").CurrentRegion For Each i In rng If i > 100 Then i.Interior.Color = RGB(0, 255, 0) End If Next End Sub因为就一个确定工作表名称的，所以就没有WITH

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

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

多做练习