Excel自定义VBA函数切换语言后公式返回#VALUE!求助

你的问题出在两个核心点：自定义函数的自动重算逻辑缺失和单元格引用错误，直接修正VBA函数即可解决：

修正后的VBA函数 #

替换原cellName()函数为以下代码：

Function cellName() As String
    ' 标记函数为易失性，确保依赖项变化时自动重算
    Application.Volatile True
    ' 使用Application.Caller获取公式所在单元格，而非ActiveCell
    On Error Resume Next ' 兼容未命名的单元格（避免报错）
    cellName = Application.Caller.Name.Name
    On Error GoTo 0
End Function

关键修正说明 #

• 替换ActiveCell为Application.Caller：原函数用ActiveCell会导致计算时返回当前选中单元格的名称，而非公式所在单元格的名称，这是VLOOKUP返回#VALUE!的核心原因。Application.Caller精准指向包含该公式的单元格，能正确获取当前单元格的名称。
• 添加Application.Volatile True：默认自定义函数不会自动重算，只有当函数参数变化时才会更新。加上这个语句后，任何单元格内容变化（比如$P$1切换EN/CZ）都会触发函数重新计算，无需手动按F2+回车刷新。

验证 #

修改函数后，直接切换$P$1的语言选项，所有包含=VLOOKUP(cellName();dictList;IF($P$1="CZ";2;3);FALSE)公式的单元格会自动更新为对应语言的文本，不再出现#VALUE!错误。

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