[原创]【VBA入门点滴】随机自定义颜色

hhzjxss · 发表于 2008-1-8 13:43

本帖最后由爱疯于 2011-9-6 12:27 编辑 昨天兰版讲VBA入门班作业，写了一个代码，传上来大家分享一下！

代码如下：
Sub 自定义颜色() '雨中漫步
    Dim i%, x%, y%, z%     Range(Range("A2:E2"), Range("A2:E2").End(xlDown)).ClearContents '先清空，以提高速度     Range(Range("E2"), Range("E2").End(xlDown)).Interior.ColorIndex = xlNone '无色
    For i = 2 To 256         x = Int(Rnd() * 255)         y = Int(Rnd() * 255)         z = Int(Rnd() * 255)         Range("A" & i) = i - 1         Range("B" & i) = x         Range("C" & i) = y         Range("D" & i) = z         Range("E" & i).Interior.Color = RGB(x, y, z)         'RGB为一个颜色的函数，可从“工具”“选项”“颜色”里选择！三个参数可以从0-255取值！     Next i End Sub

一剑惊心 · 发表于 2008-1-8 13:45

看看

不看不看 · 发表于 2008-1-8 13:47

看看雨版弄了多少种颜色

guokq · 发表于 2008-1-8 13:58

干什么用的？

zxf0012 · 发表于 2008-1-8 14:00

第一次来，希望学到好多知识

为工作 · 发表于 2008-1-8 14:34

[em01][em01][em01]

guideming · 发表于 2008-1-8 14:44

瞧瞧雨版大作

叶国开 · 发表于 2008-1-8 16:38

学习

hhzjxss · 发表于 2008-1-9 19:51

别沉了，给大家顶起来！

element · 发表于 2008-1-9 20:15

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

[习题] [原创]【VBA入门点滴】随机自定义颜色