|
本帖最后由 爱疯 于 2011-9-6 12:27 编辑 <br /><br /><P><FONT size=4>昨天兰版讲VBA入门班作业,写了一个代码,传上来大家分享一下!</FONT></P>
<P><FONT size=4></FONT> </P>
<P>
[原创]【VBA入门点滴】随机自定义颜色
</P>
<P> </P>
<P>代码如下:</P>
<P>Sub 自定义颜色() '雨中漫步</P>
<P> Dim i%, x%, y%, z%<BR> Range(Range("A2:E2"), Range("A2:E2").End(xlDown)).ClearContents '先清空,以提高速度<BR> Range(Range("E2"), Range("E2").End(xlDown)).Interior.ColorIndex = xlNone '无色</P>
<P> For i = 2 To 256<BR> x = Int(Rnd() * 255)<BR> y = Int(Rnd() * 255)<BR> z = Int(Rnd() * 255)<BR> Range("A" & i) = i - 1<BR> Range("B" & i) = x<BR> Range("C" & i) = y<BR> Range("D" & i) = z<BR> Range("E" & i).Interior.Color = RGB(x, y, z)<BR> 'RGB为一个颜色的函数,可从“工具”“选项”“颜色”里选择!三个参数可以从0-255取值!<BR> Next i<BR>End Sub</P>
<P> </P>
<P> </P> |
|