VBA使用InputBox为单元格添加批注运行报错如何解决

你写的VBA代码存在4个核心问题，会直接导致运行报错、功能不符合预期：

• 对象赋值语法错误：rSelected被声明为Range对象类型，VBA中给对象变量赋值必须使用Set关键字，直接用等号赋值会触发类型不匹配错误。
• InputBox参数配置错误：要实现单元格点选（含跨工作表选择），Application.InputBox的Type参数需要设为8（代表返回单元格引用类型），你当前设置的Type:=2是返回纯文本字符串类型，无法接收跨工作表的单元格选择结果。
• 未处理异常场景：如果用户点击InputBox的「取消」按钮，或者目标单元格本身已经存在批注，直接调用.AddComment方法会直接抛出运行时错误。
• 跨表选择逻辑漏洞：当用户在InputBox中切换到其他工作表选择单元格时，Excel会自动激活选中的工作表，原代码中使用的ActiveCell会同步变成跨表选中的单元格，根本不是你最初要添加批注的目标位置，会导致批注加错位置。

Sub SetComment()
    Dim rngAddCommentTo As Range
    Dim rngSource As Range
    Dim commentContent As String
    
    ' 提前锁定需要添加批注的初始单元格，避免跨表选择时ActiveCell变动
    Set rngAddCommentTo = ActiveCell
    
    ' 捕获用户点击取消、选择无效区域的异常
    On Error Resume Next
    Set rngSource = Application.InputBox( _
        Prompt:="请选择作为批注内容来源的单元格（支持跨工作表选择）", _
        Title:="添加单元格批注", _
        Type:=8)
    On Error GoTo 0
    
    ' 未选择有效单元格时直接退出程序
    If rngSource Is Nothing Then
        MsgBox "未选中有效单元格，程序终止", vbInformation
        Exit Sub
    End If
    
    ' 读取来源单元格的内容作为批注文本
    commentContent = CStr(rngSource.Value)
    
    ' 给目标单元格添加批注
    With rngAddCommentTo
        ' 先删除已存在的旧批注，避免重复添加报错
        If Not .Comment Is Nothing Then .Comment.Delete
        .AddComment
        .Comment.Text Text:=commentContent
    End With
    
    MsgBox "批注添加成功", vbInformation
End Sub

• 弹出选择框之前先把初始激活的单元格存入变量，即使用户切换到其他工作表选内容，批注的目标位置也不会错乱。
• InputBox使用Type:=8参数，原生支持鼠标点选任意工作表的单元格作为来源。
• 增加异常判断，用户点取消、单元格已有批注的场景都不会触发报错。

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