VBA脚本运行报错Run Time Error 424（Object required），请求协助解决

错误原因 #

你写的recolor是普通标准模块的Sub过程，但代码里用到了Target对象——这个对象仅在工作表的事件过程（比如Worksheet_Change）中会自动定义，普通Sub里没有声明或赋值Target，所以触发了“需要对象”的错误。

两种解决方案 #

方案一：改成工作表事件过程（自动触发） #

这个方法会在你修改指定区域单元格内容时，自动执行颜色转换：

1. 按Alt+F11打开VBA编辑器
2. 在左侧工程窗口双击目标工作表（比如Sheet1）
3. 在右侧代码窗口的下拉菜单，先选Worksheet，再选Change，自动生成事件模板
4. 把逻辑代码填入模板，最终代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Set rng = Me.Range("A1:E16") '用Me指代当前工作表，避免跨表问题

    If Not Intersect(Target, rng) Is Nothing Then
        Dim cell As Range
        For Each cell In Intersect(Target, rng)
            Dim cellValue As String
            Dim rgbArray() As String
            cellValue = cell.Value
            rgbArray = Split(cellValue, ", ")
            If UBound(rgbArray) = 2 Then
                Dim red As Integer, green As Integer, blue As Integer
                red = CInt(rgbArray(0))
                green = CInt(rgbArray(1))
                blue = CInt(rgbArray(2))
                '增加RGB值范围判断，避免非法值报错
                If red >= 0 And red <= 255 And green >= 0 And green <= 255 And blue >= 0 And blue <= 255 Then
                    cell.Interior.Color = RGB(red, green, blue)
                End If
            End If
        Next cell
    End If
End Sub

方案二：保留普通Sub（手动执行） #

如果需要手动触发执行，可以修改代码，让用户选择目标范围：

Sub recolor()
    Dim rng As Range
    Set rng = ThisWorkbook.Sheets("Sheet1").Range("A1:E16") '指定生效的工作表和区域
    Dim targetRng As Range
    '弹出对话框让用户选择要处理的单元格范围
    Set targetRng = Application.InputBox("请选择要处理的单元格范围", Type:=8)

    If Not Intersect(targetRng, rng) Is Nothing Then
        Dim cell As Range
        For Each cell In Intersect(targetRng, rng)
            Dim cellValue As String
            Dim rgbArray() As String
            cellValue = cell.Value
            rgbArray = Split(cellValue, ", ")
            If UBound(rgbArray) = 2 Then
                Dim red As Integer, green As Integer, blue As Integer
                On Error Resume Next '临时屏蔽非数字内容的转换错误
                red = CInt(rgbArray(0))
                green = CInt(rgbArray(1))
                blue = CInt(rgbArray(2))
                On Error GoTo 0 '恢复错误捕获
                If red >= 0 And red <= 255 And green >= 0 And green <= 255 And blue >= 0 And blue <= 255 Then
                    cell.Interior.Color = RGB(red, green, blue)
                End If
            End If
        Next cell
    End If
End Sub

注意事项 #

确保单元格内容是逗号加空格分隔的三个0-255之间的数字（比如255, 0, 0），否则会出现数组长度不足或数字转换失败的问题。

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