Excel VBA从单元格获取RGB颜色代码赋值文本框遇类型不匹配错误

问题背景 #

原代码通过RGB(255, 255, 0)直接赋值，能正常设置TextBox4的填充颜色。但修改为从Sheet03的H1单元格读取文本内容RGB(255, 255, 0)后，运行出现Run-time error '13': Type mismatch错误。

原正常代码：

Sub Change_Color()

Color_TextBox4 = RGB(255, 255, 0)

Sheet03.Shapes("TextBox4").Select 
   With Selection.ShapeRange.Fill 
        .ForeColor.RGB = Color_TextBox4
    End With 
End Sub

修改后报错的代码：

Sub Change_Color()

Color_TextBox4 = Sheet03.Range("H1").Value

Sheet03.Shapes("TextBox4").Select
    With Selection.ShapeRange.Fill
        .ForeColor.RGB = Color_TextBox4
    End With
End Sub

错误原因 #

.ForeColor.RGB需要接收Long类型的颜色数值，而从单元格读取的RGB(255, 255, 0)是字符串类型，直接赋值会触发类型不匹配错误。

解决方案 #

方法1：解析字符串提取RGB数值，生成颜色值 #

通过字符串处理提取红、绿、蓝三个分量的数值，再用RGB()函数生成合法的颜色值：

Sub Change_Color()
    Dim colorText As String
    Dim rgbParts() As String
    Dim r As Integer, g As Integer, b As Integer
    Dim Color_TextBox4 As Long
    
    ' 获取单元格文本
    colorText = Sheet03.Range("H1").Value
    ' 去除RGB()包裹，拆分三个数值
    colorText = Replace(Replace(colorText, "RGB(", ""), ")", "")
    rgbParts = Split(colorText, ",")
    
    ' 转换为整数
    r = Trim(rgbParts(0))
    g = Trim(rgbParts(1))
    b = Trim(rgbParts(2))
    
    ' 生成颜色值
    Color_TextBox4 = RGB(r, g, b)
    
    ' 直接操作Shape，避免Select更高效
    With Sheet03.Shapes("TextBox4").ShapeRange.Fill
        .ForeColor.RGB = Color_TextBox4
    End With
End Sub

方法2：用Evaluate直接执行单元格表达式 #

利用Evaluate函数直接计算单元格中的RGB(...)文本表达式，得到对应的Long类型颜色值：

Sub Change_Color()
    Dim Color_TextBox4 As Long
    
    ' 直接计算单元格中的RGB表达式
    Color_TextBox4 = Evaluate(Sheet03.Range("H1").Value)
    
    With Sheet03.Shapes("TextBox4").ShapeRange.Fill
        .ForeColor.RGB = Color_TextBox4
    End With
End Sub

注意：此方法要求单元格内容是合法的VBA表达式，若文本格式错误会触发其他错误。

方法3：修改单元格存储内容（最简单） #

如果可以修改单元格H1的内容，直接存入RGB(255,255,0)对应的数值65535（所有RGB颜色都对应唯一的Long数值），代码可简化为：

Sub Change_Color()
    Dim Color_TextBox4 As Long
    
    Color_TextBox4 = Sheet03.Range("H1").Value
    
    With Sheet03.Shapes("TextBox4").ShapeRange.Fill
        .ForeColor.RGB = Color_TextBox4
    End With
End Sub

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