将单元格背景色从引用的单元格分配给rgb，并对许多行或所有行重复

Posted 2023-02-20

[尝试将col D的背景色设置为从单元格A，B，C提取的RGB代码[rgb背景loo的示例]

此公式已提供给另一个查询，并且仅适用于1行Range（“ F1”）。Interior.Color = RGB（Range（“ C1”），Range（“ D1”），Range（“ E1”））]

我如何重复很多行或所有行

我是Visual Basic的新手，所以如果有任何帮助，将不胜感激

答案

也许是这样？

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Column > 3 Then Exit Sub
Set oFill = Range("D" & ActiveCell.Row)
Set Rng = Range("A" & ActiveCell.Row, Range("C" & ActiveCell.Row))

For Each cell In Rng
If IsEmpty(cell) = False And IsNumeric(cell) = True Then n = n + 1
If n = 1 Then x1 = cell.Value
If n = 2 Then x2 = cell.Value
If n = 3 Then x3 = cell.Value
Next cell

If n = 3 Then
oFill.Interior.Color = RGB(x1, x2, x3)
Else
oFill.Interior.Pattern = xlNone
End If

End Sub

该代码将放入工作表模块中。如果同一行中的所有三列（A B C）都具有值，并且用户在填充了同一行中的三个单元格（A B C）后用户选择了A至C列中的任何单元格，则将进行颜色填充。