Excel VBA中如何为IFERROR函数设置可通过输入框赋值的变量字符串

修正后可正常运行的完整代码 #

Sub test_IFERROR()
    Dim frange As Range, xcell As Range
    Dim xAddress As String
    Dim xStr As String
    Dim xUpdate As Boolean
    Dim ws As Worksheet
    
    ' 绑定当前活动工作表
    Set ws = Application.ActiveSheet
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    ' 弹窗让用户选择要处理的单元格范围，默认选中当前已选区域
    Set frange = Application.InputBox("请选择要处理的单元格范围", "Kutools for Excel", xAddress, , , , , 8)
    ' 如果你需要默认处理全表所有带公式的单元格，可取消下一行注释（会覆盖用户手动选择的范围）
    ' Set frange = ws.Cells.SpecialCells(xlCellTypeFormulas)
    On Error GoTo 0
    
    ' 校验是否选择了有效范围，未选择直接退出
    If frange Is Nothing Then Exit Sub
    
    ' 弹窗让用户自定义公式出错时的返回值
    xStr = Application.InputBox("请输入公式出错时的返回内容", "Kutools for Excel")
    ' 用户点击取消直接退出
    If xStr = "False" Then Exit Sub
    
    ' 关闭屏幕更新提升运行速度
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    
    ' 遍历所有选中单元格，给公式封装IFERROR
    For Each xcell In frange
        ' 仅处理带公式的单元格，避免无公式单元格报错
        If xcell.HasFormula Then
            ' 拼接公式时额外处理引号转义，避免用户输入包含引号时公式语法错误
            xcell.Formula = "=IFERROR(" & Right(xcell.Formula, Len(xcell.Formula) - 1) & ",""" & Replace(xStr, """", """""") & """)"
        End If
    Next xcell
    
    ' 恢复屏幕更新设置
    Application.ScreenUpdating = xUpdate
    ' 释放对象内存
    Set frange = Nothing
    Set ws = Nothing
End Sub

核心修改说明 #

• 修复原代码变量不匹配问题：原代码循环定义的变量是xcell，但实际操作时用了未声明的c变量，导致逻辑完全失效
• 修复范围覆盖bug：原代码会直接把用户手动选择的范围替换为全表所有带公式的单元格，现在默认保留用户选择，需要全表处理可以自行取消对应行的注释
• 优化公式拼接逻辑：新增引号转义处理，即使用户输入的内容包含双引号也不会触发公式语法错误
• 新增操作校验：用户取消选择范围、取消输入返回值时会直接退出程序，不会抛出运行错误
• 你需要的自定义错误返回值功能已完全实现：第二个弹窗输入的内容会自动作为IFERROR的错误返回值，支持输入文本、数字、空值等各类内容

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