在VBA返回运行时错误消息中使用索引功能

Question

我无法弄清楚为什么我的cog运行时返回运行时错误消息

  

无法获取工作表函数的索引属性。

以下是我的代码，

Books

Answer 1

索引函数需要范围，行和列 - 因此有三个参数。在你的情况下，你只给两个。如果你开始一个新的空应用程序，你就写了

?Application.WorksheetFunction.Index(Range("A1:C10"), Range("D1"),Range("D2")).address

在即时窗口中，如果你在D2中写 2 而在E1中写 1 ，你会得到$A$2:$C$2。

或者使用类似的代码：

 Function Distance() As Integer

 Distance = Application.WorksheetFunction.Index(Workbooks("Practice 1.xlsm").Worksheets("Sheet2").Range("I11:P18"), Range("K12"),1)

 End Function