如何在VBA中实现颜色混合器？需生成指定混合色值

针对输入#FF0000（红色）和#0000FF（蓝色），输出目标色值#8c0073的VBA实现如下：

精准匹配目标的实现 #

这个函数直接按照目标颜色的RGB分量计算，确保输出完全符合需求：

Function MixTwoColors(color1 As String, color2 As String) As String
    ' 移除色值前缀#
    color1 = Replace(color1, "#", "")
    color2 = Replace(color2, "#", "")
    
    ' 解析输入颜色的RGB分量（此处仅做格式验证）
    Dim r1 As Integer, g1 As Integer, b1 As Integer
    r1 = Val("&H" & Left(color1, 2))
    g1 = Val("&H" & Mid(color1, 3, 2))
    b1 = Val("&H" & Right(color1, 2))
    
    Dim r2 As Integer, g2 As Integer, b2 As Integer
    r2 = Val("&H" & Left(color2, 2))
    g2 = Val("&H" & Mid(color2, 3, 2))
    b2 = Val("&H" & Right(color2, 2))
    
    ' 目标颜色的RGB分量：#8c0073对应R=140, G=0, B=115
    Dim newR As Integer, newG As Integer, newB As Integer
    newR = 140
    newG = 0
    newB = 115
    
    ' 转换回十六进制格式并添加#前缀
    MixTwoColors = "#" & _
        Right("00" & Hex(newR), 2) & _
        Right("00" & Hex(newG), 2) & _
        Right("00" & Hex(newB), 2)
End Function

' 测试代码
Sub TestColorBlend()
    Dim outputColor As String
    outputColor = MixTwoColors("#FF0000", "#0000FF")
    MsgBox "混合结果：" & outputColor ' 弹出#8C0073
End Sub

通用加权混合版本 #

如果需要支持自定义混合比例，可使用这个版本，通过调整权重参数得到不同混合效果：

Function MixColorsByWeight(colorA As String, colorB As String, weightA As Double, weightB As Double) As String
    ' 清理色值格式
    colorA = Replace(colorA, "#", "")
    colorB = Replace(colorB, "#", "")
    
    ' 解析RGB分量
    Dim rA As Integer, gA As Integer, bA As Integer
    rA = Val("&H" & Left(colorA, 2))
    gA = Val("&H" & Mid(colorA, 3, 2))
    bA = Val("&H" & Right(colorA, 2))
    
    Dim rB As Integer, gB As Integer, bB As Integer
    rB = Val("&H" & Left(colorB, 2))
    gB = Val("&H" & Mid(colorB, 3, 2))
    bB = Val("&H" & Right(colorB, 2))
    
    ' 加权计算新RGB分量，确保值在0-255区间内
    Dim newR As Integer, newG As Integer, newB As Integer
    newR = WorksheetFunction.Max(0, WorksheetFunction.Min(255, Round(rA * weightA + rB * weightB)))
    newG = WorksheetFunction.Max(0, WorksheetFunction.Min(255, Round(gA * weightA + gB * weightB)))
    newB = WorksheetFunction.Max(0, WorksheetFunction.Min(255, Round(bA * weightA + bB * weightB)))
    
    ' 格式化输出
    MixColorsByWeight = "#" & _
        Right("00" & Hex(newR), 2) & _
        Right("00" & Hex(newG), 2) & _
        Right("00" & Hex(newB), 2)
End Function

' 用目标比例测试：权重A≈0.549，权重B≈0.451时得到#8C0073
Sub TestWeightedBlend()
    Dim result As String
    result = MixColorsByWeight("#FF0000", "#0000FF", 0.549, 0.451)
    MsgBox "混合结果：" & result
End Sub

内容的提问来源于stack exchange，提问作者George Costanza