RGB模式数值转色彩颜色

hopine

求助！

根据读取RGB三个值，自动生成色彩颜色，求公式。
多谢高手相助：）

爱疯

Sub test()
    Dim A, j
    A = [a1:H4]
    For j = 2 To UBound(A, 2)
        Cells(1, j).Interior.Color = RGB(A(2, j), A(3, j), A(4, j))
    Next
End Sub
数值转色彩公式_20131224b.rar (16.4 KB, 下载次数: 10)

2013-12-24 19:20 上传

点击文件名下载附件

不知用函数方法能不能做

ghostjiao

公式只能返回值吧，好像你说的这种情况，好像不能算是值。