VBA向其他Sub传递参数构建代码片段工具箱报错如何解决？

现有代码的错误点 #

• 字符串赋值误用Set关键字：Set仅用于给VBA对象（工作表、工作簿、Range等）赋值，字符串属于基本数据类型，直接赋值即可，原代码Set sheet_calc = "calc"会直接触发类型不匹配错误。
• 工具过程修饰符错误：Private Sub声明的过程仅能在当前模块（Modul3）内部调用，其他模块无法访问，要跨模块调用需改为Public Sub。
• 工作表参数传值错误：Sheets.Add的After参数要求传入工作表对象，不能直接传入工作表名称字符串，需要改为After:=Sheets(positionsheet)。
• 调用语法可选优化：跨模块调用带参数的Sub时，建议加上Call关键字，避免VBA语法解析歧义。

修正后代码 #

Modul1 代码 #

Dim sheet_calc As String: sheet_calc = "calc"
Call Modul3.check_sheet(sheet_calc, "Main", True)

Modul3 工具模块代码 #

' 全局通用工具：检查指定工作表是否存在，存在则删除，按需新建
Public Sub check_sheet(sheetname As String, positionsheet As String, delt As Boolean)
    Dim ws As Worksheet
    ' 遍历查找目标工作表
    For Each ws In ActiveWorkbook.Worksheets
         If ws.Name = sheetname Then
              Application.DisplayAlerts = False ' 关闭删除确认弹窗
              ws.Delete
              Application.DisplayAlerts = True
              Exit For ' 找到后跳出循环，提高效率
         End If
    Next ws
    
    If delt = True Then
        ' 传入工作表对象作为After参数
        ActiveWorkbook.Sheets.Add(After:=ActiveWorkbook.Sheets(positionsheet)).Name = sheetname
    End If
End Sub

VBA通用代码工具箱的正确构建逻辑 #

• 所有通用工具过程/函数都放在标准模块中，使用Public修饰，不要放在工作表/工作簿类模块中，也不要用Private修饰。
• 工具代码尽量不依赖ActiveWorkbook、ActiveSheet这类动态上下文对象，建议将依赖的工作簿、工作表作为参数传入，提高代码通用性，避免切换激活对象后运行出错。
• 重复使用的逻辑可以封装为带返回值的Function，比如上述过程可以改造为返回新建的工作表对象，方便调用方直接使用新建的工作表，无需再二次查找。
• 工具过程的参数可以设置默认值，降低调用成本，比如delt参数可以设置默认值为True，调用时如果不需要特殊配置可以省略传参。

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