VBA工作表超链接需求：为用户表单文本添加可激活工作表的超链接

因为普通TextBox控件不支持超链接交互，这里提供两种可行方案，按需选择：

方案1：用ListBox控件（推荐，简单稳定） #

ListBox无需处理超链接格式，通过双击列表项即可触发工作表跳转，实现成本低。

操作步骤： #

1. 打开用户表单设计界面，添加一个ListBox控件（可命名为lstSheets）
2. 在ListBox属性中，设置ColumnCount为2，ColumnWidths为100;0（隐藏第二列，用于存储工作表名称）
3. 添加以下代码：

用户表单初始化代码（填充工作表列表）

Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    Dim idx As Integer
    
    lstSheets.Clear
    idx = 0
    
    For Each ws In ActiveWorkbook.Worksheets
        idx = idx + 1
        ' 添加显示文本到第一列
        lstSheets.AddItem "Sheet " & idx & "  " & ws.Name
        ' 将工作表名称存入第二列（隐藏列）
        lstSheets.List(lstSheets.ListCount - 1, 1) = ws.Name
    Next ws
End Sub

ListBox双击事件代码（触发跳转）

Private Sub lstSheets_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim targetSheet As String
    
    If lstSheets.ListIndex <> -1 Then
        targetSheet = lstSheets.List(lstSheets.ListIndex, 1)
        ThisWorkbook.Worksheets(targetSheet).Activate
        ' 可选：跳转后关闭表单
        ' Unload Me
    End If
End Sub

方案2：用RichTextBox控件（支持超链接样式） #

如果需要呈现类似网页超链接的视觉效果，可使用RichTextBox控件（需启用附加控件）。

操作步骤： #

1. 在开发工具的「附加控件」中勾选「Microsoft Rich Textbox Control 6.0」，然后添加到用户表单（命名为rtbSheets）
2. 添加以下代码：

用户表单初始化代码（生成带超链接的文本）

Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    Dim idx As Integer
    
    rtbSheets.Text = ""
    
    For Each ws In ActiveWorkbook.Worksheets
        idx = idx + 1
        ' 添加普通文本：Sheet X
        rtbSheets.SelText = "Sheet " & idx & "  "
        ' 选中工作表名称区域，设置为超链接
        rtbSheets.SelStart = Len(rtbSheets.Text)
        rtbSheets.SelLength = Len(ws.Name)
        rtbSheets.SelLink = ws.Name ' 存储工作表名称用于跳转
        ' 设置超链接样式：蓝色+下划线
        rtbSheets.SelColor = vbBlue
        rtbSheets.SelUnderline = rtfSingle
        ' 添加换行
        rtbSheets.SelText = vbCrLf
    Next ws
End Sub

RichTextBox链接点击事件代码（触发跳转）

Private Sub rtbSheets_LinkClick(ByVal Sender As Object, ByVal LinkString As String, ByVal Cancel As Boolean)
    ThisWorkbook.Worksheets(LinkString).Activate
    ' 可选：跳转后关闭表单
    ' Unload Me
End Sub

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