如何用VBA代码实现Excel工作表标签悬停显示Tooltip？

完全可以实现这个需求，核心思路是用工作表的注释存储描述文本，再通过VBA监控鼠标位置，判断是否悬停在工作表标签上，进而显示对应的描述。以下是具体实现步骤和代码：

1. 给工作表添加描述文本 #

你可以手动给每个工作表添加注释（右键工作表标签 → 查看代码 → 在立即窗口输入ThisWorkbook.Worksheets("Sheet名称").Comment.Text "你的描述"），也可以用下面的批量代码快速添加：

Sub AddSheetDescriptions()
    ' 示例：批量给指定工作表添加描述，按需修改
    With ThisWorkbook
        .Worksheets("销售数据").Comment.Text "2024年各区域销售汇总，含月度同比"
        .Worksheets("支出明细").Comment.Text "办公、人力、运营类支出的月度明细"
        .Worksheets("季度分析").Comment.Text "基于销售和支出数据的季度趋势分析"
    End With
End Sub

注意：如果工作表已有注释，运行此代码会覆盖原有内容，操作前建议备份。

2. 创建类模块监控鼠标 #

插入一个类模块（菜单栏 → 插入 → 类模块），将其命名为clsSheetLabelTooltip，然后粘贴以下代码：

Option Explicit

Private WithEvents app As Application
Private tooltipShown As Boolean

Private Sub Class_Initialize()
    Set app = Application
    tooltipShown = False
End Sub

Private Sub app_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Dim ws As Worksheet
    Dim labelLeft As Single, labelRight As Single
    Dim isOverLabelBar As Boolean
    
    ' 判断鼠标是否在工作表标签栏区域（可根据窗口大小调整数值）
    isOverLabelBar = (Y > app.Top + app.Height - 30) And (X > app.Left + app.Width - (ThisWorkbook.Sheets.Count * 70))
    
    If isOverLabelBar Then
        ' 遍历可见工作表，匹配鼠标对应的标签
        For Each ws In ThisWorkbook.Sheets
            If ws.Visible = xlSheetVisible Then
                labelLeft = app.Left + app.Width - (ThisWorkbook.Sheets.Count - ws.Index + 1) * 70
                labelRight = labelLeft + 70
                
                If X >= labelLeft And X <= labelRight Then
                    If Not ws.Comment Is Nothing Then
                        ' 在状态栏显示描述
                        If Not tooltipShown Then
                            app.StatusBar = ws.Comment.Text
                            tooltipShown = True
                        End If
                    Else
                        app.StatusBar = ""
                        tooltipShown = False
                    End If
                    Exit For
                End If
            End If
        Next ws
    Else
        ' 鼠标离开标签栏，清空状态栏
        app.StatusBar = ""
        tooltipShown = False
    End If
End Sub

3. 初始化监控程序 #

打开ThisWorkbook的代码窗口（右键工作簿标签 → 查看代码），粘贴以下代码：

Option Explicit

Private tooltipMonitor As clsSheetLabelTooltip

Private Sub Workbook_Open()
    ' 打开工作簿时启动监控
    Set tooltipMonitor = New clsSheetLabelTooltip
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ' 关闭工作簿时释放资源
    Set tooltipMonitor = Nothing
    Application.StatusBar = ""
End Sub

注意事项 #

• 标签栏的坐标数值（30为高度，70为单个标签宽度）是大致值，若你的Excel窗口尺寸特殊，可自行调整这两个数值以匹配实际标签区域。
• 代码默认只处理可见工作表，隐藏工作表不会触发提示。
• 描述显示在Excel状态栏，不会弹出额外窗口，避免干扰正常操作。

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