如何在鼠标悬停结束后结束宏/触发其他宏，实现文本框自动隐藏？

嘿，这个问题我之前也帮别人处理过，咱们一步步来搞定它：

ActiveX标签的MouseMove事件只能检测鼠标在标签范围内的动作，要捕捉“离开”的动作，我们需要结合工作表的鼠标事件或者一个覆盖全局的透明控件。这里推荐用模块级变量+工作表MouseMove事件的方案，不需要额外添加控件，更简洁：

1. 首先在你的工作表代码模块顶部（所有事件之外）声明一个变量，用来跟踪鼠标是否正悬停在Label1上：

Private isHovering As Boolean

2. 修改你现有的Label1_MouseMove事件，加上状态标记：

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    ' 只有当之前没悬停时才显示文本框，避免重复触发
    If Not isHovering Then
        ActiveSheet.Shapes.Range(Array("IndexTBSection1")).Visible = True
        isHovering = True
    End If
End Sub

3. 添加工作表的MouseMove事件，用来检测鼠标是否离开Label1的范围：

Private Sub Worksheet_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If isHovering Then
        With Label1
            ' 检查鼠标坐标是否超出Label1的边界
            If X < .Left Or X > .Left + .Width Or Y < .Top Or Y > .Top + .Height Then
                ' 隐藏文本框
                ActiveSheet.Shapes.Range(Array("IndexTBSection1")).Visible = False
                ' 重置悬停状态
                isHovering = False
                
                ' --- 这里可以添加悬停结束后的操作 ---
                Call YourOtherMacroName ' 触发另一个宏，替换成你的宏名
                ' 如果当前有循环或需要提前结束流程，用 Exit Sub 即可
            End If
        End With
    End If
End Sub

• 触发另一个宏：直接在隐藏文本框的代码后面用Call 宏名就能调用其他宏，比如Call ClearTempData（把ClearTempData换成你实际要触发的宏）。
• 结束当前宏：因为这些都是事件驱动的过程，事件执行完后会自动结束。如果你的宏里有循环、分支需要提前终止，可以用Exit Sub（针对子过程）或Exit Function（针对函数）来立即结束当前代码的执行。

• 确保工作表的MouseMove事件能正常触发：如果工作表上有很多重叠控件，调整Label1的Z顺序（右键Label1 → 置于顶层），避免被其他控件遮挡导致事件不触发。
• 如果你发现文本框闪烁，可以给isHovering的判断加上延迟，不过一般这个方案不会有明显闪烁问题。

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