首页 > 解决方案 > 参数不是可选的 - 简单的 VBA 函数

问题描述

我在 vba 中不断收到 Argument not optional 编译器错误,但不知道为什么。

我看不到任何拼写错误,我什至不接受任何参数,并且子例程仅在单击按钮时执行。

Public Sub SearchAMLinesForIDs_Click()
    Dim time As String
    time = "AM"

    Dim end_row As Long
    end_row = Range("A2").End(xlDown).row


    Dim lookup_end_row As Long
    Dim lookup_result As Long

    lookup_end_row = ThisWorkbook.Sheets(time & "_Lines").Range("A2").End(xlDown).row

    lookup_table = ThisWorkbook.Sheets(time & "_Lines").Range("A2:C" & lookup_end_row)

    Dim row As Long

    For row = 1 To end_row
        lookup_result = WorksheetFunction.VLookup(Range("A" & row), lookup_table, 1, False)

        Cells(row + 1, 2) = lookup_result
    Next row

End Sub

标签: vbaexcel

解决方案


如果您遇到此类问题,请使用您的对象浏览器。

在此处输入图像描述

您可以在工作表的单元格中测试您的 vlookup 以验证有效性。


推荐阅读