求助，如何把三个单元格数值转化为RGB格式对应红绿蓝值，并填充单元格。谢谢

tookar

请各位前辈帮忙，如何将前三列的数字分别转换化为RGB颜色格式的红色、绿色、蓝色值，并填充单元格。通过函数还是VBA，小白一个，请多多指教，感激不尽。

lsdongjh

示例代码：

1. Sub Test()
   
2.     Dim arr As Variant
   
3.     Dim lngRow As Long
   
4.     Dim intRed As Integer, intGreen As Integer, intBlue As Integer
   
5.    
   
6.     arr = Sheet1.Range("A1:C6")
   
7.     For lngRow = 2 To UBound(arr)
   
8.         intRed = arr(lngRow, 1)
   
9.         intGreen = arr(lngRow, 2)
   
10.         intBlue = arr(lngRow, 3)
    
11.         Sheet1.Range("F" & lngRow).Interior.Color = RGB(intRed, intGreen, intBlue)
    
12.     Next
    
13. End Sub
    

复制代码

zmnyu

1. Sub MyColor()
   
2.     Dim rr As Byte
   
3.     Dim gg As Byte
   
4.     Dim bb As Byte
   
5.     Dim i As Integer
   
6.     For i = 2 To 6
   
7.         rr = Range("A" & i).Value
   
8.         gg = Range("B" & i).Value
   
9.         bb = Range("C" & i).Value
   
10.         Range("D" & i).Interior.Color = RGB(rr, gg, bb)
    
11.     Next i
    
12. End Sub

复制代码

zmnyu

用VBA,代码如下：

1. Sub MyColor()
   
2.     Dim rr As Byte
   
3.     Dim gg As Byte
   
4.     Dim bb As Byte
   
5.     Dim i As Integer
   
6.     For i = 2 To 6
   
7.         rr = Range("A" & i).Value
   
8.         gg = Range("B" & i).Value
   
9.         bb = Range("C" & i).Value
   
10.         Range("D" & i).Interior.Color = RGB(rr, gg, bb)
    
11.     Next i
    
12. End Sub

复制代码

tookar

求助大神翻牌，谢谢~~~

tookar

lsdongjh 发表于 2018-7-6 16:23
示例代码：

谢谢大神帮助，非常完美实现，再次感谢，祝您周末愉快~~

tookar

zmnyu 发表于 2018-7-6 16:24

非常感谢大神帮助，非常完美，再次感谢您，祝您周末愉快~~