带多参数的VBA Sub未定义报错且未显示在宏列表问题

为什么带参数的Sub不在宏列表且报错？ #

VBA的宏列表只显示无参数的Sub，因为带参数的Sub没法通过Excel界面直接运行（没法手动输入参数），所以不会出现在宏列表里。你直接从界面调用的话，系统找不到能直接运行的无参数版本，就会报“sub not defined”。

代码里的隐藏错误 #

你的代码还有个对象赋值问题：startingCell = startingCell.Offset(0, count) 这行要加Set关键字，因为Range是对象，VBA里给对象变量赋值必须用Set，不然会触发运行时错误。修正后这行是：

Set startingCell = startingCell.Offset(0, count)

如何运行带参数的Sub？ #

有两种方式：

• 写一个无参数的调用Sub：这样这个调用Sub会出现在宏列表里，运行它就能间接调用带参数的dailytf。示例代码：

Sub RunDailyTF()
    ' 根据需求修改参数：起始单元格、开始日期、结束日期
    Call dailytf(Range("A1"), #2024/1/1#, #2024/1/10#)
End Sub

• 在VBA编辑器手动运行：打开VBA编辑器，找到dailytfSub，按F5，在弹出的参数输入框里填写对应的Range（比如Sheet1.Range("A1")）、日期值，就能直接运行。

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