Question

我编写了一个函数来查找第三行中有一个空单元格的第一列，但我无法弄清楚如何返回该整数。

Function FindEmptyColumn()
' Find the first empty column to paste data into

    ThisWorkbook.Activate
    Worksheets("Black Cam Raw Data").Activate
        Dim dCounter As Double
    dCounter = 1
    Dim iColumn As Integer
    Do Until Cells(3, dCounter) = ""
        iColumn = dCounter
        dCounter = dCounter + 1
    Loop
    iColumn = iColumn + 1
Return iColumn

End Function

Sub CMM_93Cam(ByVal wbTempName As Workbook)
'
' CMM_93Cam Macro
' This subroutine imports data from the CMM Report for a 195C93 Cam flatness measurement into this file.
'
    iColumn = FindEmptyColumn()

基本上，当我输入“Return iColumn”语句时出现错误。如何让函数返回我在iColumn中存储的值？

Answer 1

VBA中的Return语句不返回函数的结果。请改用函数名称。

而不是：

Return iColumn

使用：

FindEmptyColumn = iColumn

在VBA中，Return语句仅与GoSub一起使用。

MSDN：GoSub...Return Statement

尝试从函数返回计算值时，获取“编译错误：预期：语句结束”

1 个答案: