VBA UserForm的Label链接如何设置类似HYPERLINK公式的友好显示名

核心逻辑是Label的Caption属性仅控制前端显示的文本，真实跳转链接可以存储在控件的Tag属性或者独立单元格中，两者互不影响，具体实现步骤如下：

• 步骤1：准备链接与友好名存储
  可根据需求选择任意一种存储方式：
  • 双单元格存储：Sheet1的A1单元格存真实跳转链接www.stackoverflow.com，B1单元格存自定义显示的友好名stackoverflow
  • 单单元格分隔存储：Sheet1的A1单元格按友好名|跳转链接格式写入内容，例如stackoverflow|www.stackoverflow.com，后续通过Split函数拆分即可
• 步骤2：编写用户窗体初始化代码
  打开用户窗体代码编辑页，添加UserForm_Initialize事件代码，给Label设置显示文本和预存真实链接，以双单元格存储为例：

  Private Sub UserForm_Initialize()
      ' 将真实跳转链接存入Label的Tag属性，后续点击事件直接调用即可
      Label1.Tag = Sheet1.Range("A1").Value
      ' Caption设置为自定义友好名
      Label1.Caption = Sheet1.Range("B1").Value
      ' 可选：设置超链接样式，更符合使用习惯
      Label1.ForeColor = vbBlue
      Label1.Font.Underline = True
  End Sub
  

• 步骤3：调整点击跳转事件代码
  修改原有的Label点击事件，直接读取Tag属性中存储的链接跳转即可：

  Private Sub Label1_Click()
      ThisWorkbook.FollowHyperlink Label1.Tag
  End Sub
  

• 可选交互优化：添加鼠标悬浮手型效果
  新增Label的MouseMove事件代码，鼠标悬浮到链接上时显示手型光标，优化交互体验：

  Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
      Label1.MousePointer = fmMousePointerHand
  End Sub
  

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