excel 随机颜色函数

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

复制如下代码到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

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