如何在特定单元格变更时运行录制的Excel宏脚本？

你录制的宏是Excel Script（基于TypeScript），而单元格变更触发的代码是VBA（Visual Basic for Applications）——这是Excel中两个完全独立的宏体系，语法、运行环境都不一样，直接把Excel Script代码复制到VBA的事件里肯定无法运行。

下面提供两种可行的解决方式，选一种适合你的即可：

方式一：改用纯VBA实现 #

把你录制的Excel Script逻辑转换成VBA代码，替换掉原来事件里的MsgBox语句，完整代码如下：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    ' 仅当K1单元格发生变化时执行
    If Target.Address = Range("K1").Address Then
        Dim table1 As ListObject
        Set table1 = ThisWorkbook.Worksheets("你的工作表名称").ListObjects("Table1") ' 替换成实际工作表名
        
        ' 清除原有筛选
        table1.ListColumns("numbers").Range.AutoFilter Field:=1
        ' 应用1-5的筛选（若需保留原代码>=0的逻辑，把Criteria1改成">=0"即可）
        table1.ListColumns("numbers").Range.AutoFilter Field:=1, Criteria1:=">=1", Operator:=xlAnd, Criteria2:="<=5"
    End If
End Sub

注意：把代码里的你的工作表名称替换成Table1所在的实际工作表名称，比如Sheet1。

方式二：用Excel Script的自动触发规则 #

如果你更倾向用Excel Script，不需要VBA，可以直接给脚本设置触发条件：

• 打开Excel的「自动化」面板（顶部菜单栏→自动化→添加自动化）
• 选择「当单元格值更改时」触发类型
• 设置触发范围为K1单元格
• 选择你录制的那个宏（main函数）作为要运行的脚本

这样当K1变化时，就会自动执行你的筛选逻辑，不需要写VBA代码。

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