Excel VBA实现选定单元格链接至同名工作表的报错解决

错误根源 #

运行时错误'5'是因为超链接的SubAddress格式不规范：

• Excel要求包含特殊字符（空格、括号、感叹号等）的工作表名称，在超链接地址中必须用单引号包裹。原代码直接拼接工作表名!，遇到特殊名称时会触发参数无效错误。
• 原代码中MsgBox的字符串拼接存在语法错误，导致提示信息无法正常显示。

修正后的代码 #

Sub CreateHyperlinkToSheet()
    Dim selectedCell As Range
    Set selectedCell = Selection

    ' 验证选中单个单元格
    If selectedCell.Count <> 1 Then
        MsgBox "请选择单个单元格。", vbExclamation
        Exit Sub
    End If

    ' 检查单元格值是否为空
    If Trim(selectedCell.Value) = "" Then
        MsgBox "选中单元格的值不能为空。", vbExclamation
        Exit Sub
    End If

    ' 验证同名工作表存在
    If Not SheetExists(selectedCell.Value) Then
        MsgBox "不存在名为'" & selectedCell.Value & "'的工作表。", vbExclamation
        Exit Sub
    End If

    ' 创建超链接（修正SubAddress格式）
    selectedCell.Hyperlinks.Add _
        Anchor:=selectedCell, _
        Address:="", _
        SubAddress:="'" & selectedCell.Value & "'!A1", ' 可修改为目标工作表的任意单元格
        TextToDisplay:=selectedCell.Value
End Sub

Function SheetExists(sheetName As String) As Boolean
    On Error Resume Next
    SheetExists = (Len(Sheets(sheetName).Name) > 0)
    On Error GoTo 0
End Function

关键修改说明 #

1. 规范SubAddress格式：用"'" & selectedCell.Value & "'!A1"替代原有的selectedCell.Value & "!"，单引号包裹工作表名，同时指定跳转的目标单元格（此处为A1，可按需调整），适配所有合法的工作表名称。
2. 补充空值校验：增加单元格值为空的判断，避免无效的工作表名称检查。
3. 修复提示信息拼接：修正MsgBox的字符串拼接逻辑，确保错误提示准确显示缺失的工作表名称。

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