Excel 2003基于单元格值调用不同宏失效问题咨询

我来帮你梳理下可能导致宏失效的原因，再给出针对性的修复方案：

一、先修正代码里的明显问题 #

你贴的第二段代码有个低级语法错误：Private Sub Worksheet_Change(ByVal Target As Rang) 这里的Rang少了最后一个字母e，应该写成Range。不过先重点解决第一段代码能运行但没效果的问题。

二、排查宏不触发的核心原因 #

1. 事件触发被意外关闭了 #

Excel 2003有时候会因为宏错误或者手动操作导致事件触发被禁用。你可以这么恢复：

• 按Alt+F11打开VBA编辑器；
• 按Ctrl+G调出「立即窗口」，输入Application.EnableEvents = True，回车执行；
• 也可以通过菜单栏「工具」→「选项」→「编辑」，确认「事件捕获」是勾选状态。

2. 单元格值的匹配不严谨 #

你代码里的Case判断是严格区分大小写和空格的，如果C9里的内容是小写的"select"或者带了空格，就匹配不上。可以改成统一转大写的方式，避免这类问题：

Select Case UCase(Range("C9").Value)
    Case "SELECT", "YES": HideST
    Case "NO": FindST
End Select

3. 递归触发导致宏卡死/失效 #

如果你的HideST或FindST宏修改了工作表的内容，会再次触发Worksheet_Change事件，形成递归循环，导致宏无法正常执行。解决方法是在事件开头先禁用事件，执行完再恢复：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 先禁用事件，防止递归触发
    Application.EnableEvents = False
    
    If Not Intersect(Target, Range("C9")) Is Nothing Then
        Select Case UCase(Range("C9").Value)
            Case "SELECT", "YES": HideST
            Case "NO": FindST
        End Select
    End If
    
    ' 执行完宏后恢复事件触发
    Application.EnableEvents = True
End Sub

4. 宏放错了位置 #

Worksheet_Change是工作表级别的事件，必须放在对应工作表的模块里，不能放在标准模块（比如Module1）中。你可以按Alt+F11打开编辑器，在左侧「工程资源管理器」里找到你当前的工作表（比如Sheet1），双击打开后粘贴代码，这样事件才能绑定到当前工作表。

5. 被调用的宏不可访问 #

确保HideST和FindST宏能被事件调用：如果它们是Private修饰的，要和Worksheet_Change放在同一个工作表模块里；如果放在标准模块，就改成Public修饰。

三、快速测试步骤 #

1. 把修正后的代码粘贴到对应工作表的模块中；
2. 在立即窗口执行Application.EnableEvents = True；
3. 返回Excel，修改C9的值为"YES"、"NO"或"Select"，看看宏是否正常触发。

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