VBA中如何正确调用函数？传递函数作为参数失败求助

核心问题分析 #

你的代码存在两个关键错误：

• 函数调用错误：你写的thirdSM()是不存在的过程，应该调用定义好的validate_SM函数，且必须传入工作表参数。
• 函数返回值赋值错误：validate_SM函数内部未给自身赋值，反而给未定义的thirdSM变量赋值，导致函数无法返回正确结果。

修正后的完整代码 #

' 格式化输出样式
Public Sub setup_headers()
    Application.ScreenUpdating = False

    Dim l As Range, m As Range, n As Range
    Set l = ws2.Range("H5")
    Set m = ws2.Range("I5")
    Set n = ws2.Range("J5")

    With ws0.Range("A1:E1")
        .Interior.ColorIndex = 15
        .Cells(1, 1) = "Name"
        .Cells(1, 2) = "ID"
        .Cells(1, 3) = "Area"
        .Cells(1, 4) = l.Value
        .Cells(1, 5) = m.Value
    End With

    ' 正确调用validate_SM函数，传入目标工作表ws2
    If validate_SM(ws2) Then
        With ws0.Range("F1")
            .Value = n.Value
            .Interior.ColorIndex = 15
        End With
    End If

    Application.ScreenUpdating = True
End Sub

' 检查是否存在第三次安全会议（通过J列宽度判断）
Public Function validate_SM(safety_meeting_worksheet As Worksheet) As Boolean
    ' 避免变量名和函数名重名，改用colWidth
    Dim colWidth As Integer
    colWidth = safety_meeting_worksheet.Columns("J").Width

    ' 直接给函数名赋值，作为返回结果
    If colWidth >= 10 Then
        validate_SM = True
    Else
        validate_SM = False
    End If
End Function

关键修改说明 #

• 函数调用修正：将If thirdSM() = True Then改为If validate_SM(ws2) Then，明确传入需要检查的工作表ws2，同时省略多余的= True（VBA中布尔值可直接判断）。
• 函数内部逻辑修正：变量名改为colWidth避免与函数名重名；将赋值目标改为函数名validate_SM，确保函数能返回正确布尔值；简化列宽度获取的写法，提升代码简洁性。
• 其他优化：合并变量声明、使用With语句减少重复引用、显式添加.Value读取单元格内容，提升代码可读性与执行效率。

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