Excel VBA使用Application.Caller修改单元格填充色报#VALUE!错误如何解决

1. #VALUE!错误修复 #

错误原因 #

你的问题由两个核心原因导致：

• 代码存在语法错误：Else分支被错误注释、End With末尾多了多余的单引号导致后续的End If被注释，语法结构断裂直接触发运行错误；同时你当前的ClearIt子程序还处于注释状态，调用不存在的子程序也会报错。
• 工作表自定义函数（UDF）必须显式指定返回值，未给函数名赋值返回内容时，UDF会默认返回错误值。

修复步骤 #

• 修正所有错误注释：删除Else行前面的注释符，删除End With后面多余的单引号，取消ClearIt子程序的注释。
• 在自定义函数末尾增加返回值赋值语句，将你需要的返回结果赋值给函数名即可，不需要返回有效值的话可以赋值为空文本或者0。
• 如果需要字体颜色修改生效，删除ChangeIt子程序中字体设置行前面的注释符。

修正后代码示例 #

主函数逻辑部分：

If checkCounter <> 0 Then
    With Application.Caller
        .Parent.Evaluate "Changeit(" & .Address(False, False) & ")"
    End With
Else
    With Application.Caller
        .Parent.Evaluate "Clearit(" & .Address(False, False) & ")"
    End With
End If
' 下面的MyCustomFunc替换为你实际的自定义函数名称，返回值可替换为你需要的业务结果
MyCustomFunc = checkCounter

ChangeIt子程序：

Sub ChangeIt(cl as Range)
    cl.Interior.ColorIndex = 22
    cl.Font.ColorIndex = 9 ' 取消注释后字体颜色配置生效
End Sub

ClearIt子程序：

Sub ClearIt(cl as Range)
    cl.Interior.ColorIndex = 0
    cl.Font.ColorIndex = 1
End Sub

2. 子程序大小写调用正常的原因 #

VBA本身是大小写不敏感的编程语言，对于标识符（子程序名、变量名、函数名等）的识别不区分大小写，所以无论你写ClearIt、clearit还是CLEARIT，都会被VBA判定为同一个子程序，因此小写开头的调用可以正常运行。

内容的提问来源于stack exchange，提问作者sullivan.syd