相关疑难解决方法(0)

如何从函数返回结果？

例如:

Public Function test() As Integer
    return 1
End Function

这给出了编译错误.

如何让这个函数返回一个整数？

Public Function GetRowToWriteOn(ByVal SheetName As String, ByVal id As Integer) As Integer
    LastRow = ActiveSheet.UsedRange.Rows.Count
    myarray = Sheets(SheetName).Range("d7:d" & LastRow).Value
    For row = 1 To UBound(myarray, 1)
        If (myarray(row, 1) = id) Then
            Return row
        End If
    Next
End Function

IDE说预期声明结束,我该怎么做我想要的？(返回id相同的行？)

我对VBA一点也不熟悉,但是当我从微软看这个例子时,这应该有用吗？:

Return语句同时指定返回值并退出函数.以下示例显示了这一点.

Function myFunction(ByVal j As Integer) As Double
   Return 3.87 * j
End Function

Run Code Online (Sandbox Code Playgroud)