excel 随机颜色函数

答案:2 悬赏:60 手机版

解决时间 2021-02-08 07:34

提问者网友：寂寞撕碎了回忆
2021-02-07 18:07

随机生成3个 0-255 数字并生成对应RGB 颜色的填充，怎么写？

最佳答案

五星知识达人网友：猎心人
2021-02-07 19:35

复制如下代码到sheet的代码中，点击任意单元格，该单元格即随即填充颜色，并弹出RGB值。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myText As String
Target.Interior.Color = Application.WorksheetFunction.RandBetween(0, 16581375)
myText = "B=" & Int(Target.Interior.Color / 65536) & Chr(13) & Chr(10) _
& "G=" & Int((Target.Interior.Color Mod 65536) / 256) & Chr(13) & Chr(10) _
& "R=" & Target.Interior.Color Mod 256
MsgBox myText
End Sub

全部回答

1楼网友：十鸦
2021-02-07 20:14

要生成随机数就要使用rand函数和randbetween函数，前者生成小于1的函数，后者生成二个约束数字间的函数，跟据你的问题，这二个都要用上生成第一排的数字可以使用=rand()+randbetween(0,4)并设置单元格格式为数字并三个有效位。生成第二组为randbetween（190，210）第三组为randbetween（50，60）第四组为randbetween（-8，8）要是只要求用唯一的函数生成以上区间的数字就要用到if函数，语法比较复杂，并且要设置生成数字的格式，所以就不介绍了，如果有兴趣可以上excel精英论坛

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息