在VBA Excel中计算行数

Question

我正在VBA中以myFunction（x，y，z）的形式设计一个函数，其中z是一个表，并且x可以采用列标题的值。 作为函数的一部分，我需要找到z中的行数。

我对此有问题，因为我到处都建议使用length = z.Rows.Count ，但是当我尝试输出该值（例如，设置myFunction = length ）时，它会产生VALUE错误。 但是，当我输出不直接使用length myFunction = a （一旦我使它正常工作，它将最终构成IF语句的一部分），该函数可以正常工作。 我的代码如下：

Public Function myFunction(x As String, y As Double, z As Range) As Double

    Dim upper_threshold As Double
    Dim lower_threshold As Double
    Dim a As Double

    Dim rates As Variant

    Dim u As Byte
    Dim l As Byte
    Dim r As Byte

    Dim length As Byte


    a = 0

    u = 2
    l = 1

    rates = Application.WorksheetFunction.Index(z, 1, 0)
    r = Application.WorksheetFunction.Match(x, rates, 0)

    length = z.rows.Count

    upper_threshold = z(u, 1)

    Do While y > upper_threshold

        u = u + 1
        l = l + 1

        upper_threshold = z(u, 1)
        lower_threshold = z(l, 1)

        If y < upper_threshold Then
            a = a + z(l, r) * (y - lower_threshold)
        Else
            a = a + z(l, r) * (upper_threshold - lower_threshold)
        End If

    Loop

myFunction = a

End Function

为了测试它，我还创建了另一个函数：

Public Function myRows(myTable As Range) As Double

    myRows = myTable.rows.Count

End Function

这个函数本身可以正常工作，但是当我尝试在另一个函数中使用它时，仍然出现VALUE错误。 我试过将长度声明为我能想到的每种类型，但这似乎无济于事。

谁能看到发生了什么事？

编辑：我显然不是很清楚自己。 没有两行提到长度的函数按我的预期工作。 但是，我需要添加一些代码来增加其功能，这涉及到计算表z中的行数。 当我将此处显示的两行添加到函数中时，它将继续工作，因为它不会影响输出。 但是，如果我随后将输出设置为显示长度，即将倒数第二行更改为myFunction = length则会出现VALUE错误。 据我所知，这给了我两个选择：程序中的其他内容正在影响这两行（语法冲突或某些冲突），或者我在假设我可以输出这样的length犯了一个错误。 。

Answer 1

您的问题是：

rates = Application.WorksheetFunction.Index(z, 1, 0)

Index仅接受单行或单列，否则会出现VALUE错误。