2

电子表格“Sheet3”如下所示：

            S&P 500         DJIA

 1/1/1991   795.4476    2973.09

 1/2/1991   786.3856    2947.1

  1/3/1991  775.4636    2905.19

  1/4/1991  773.5364    2896.8

  1/7/1991  760.2996    2847.9

  1/8/1991  759.0029    2832.81

  1/9/1991  750.8416    2788.67

  1/10/1991 758.1719    2820.8

此外，单元格“F2”实际上是 1/7/1991 单元格的复制和粘贴。

VBA 代码如下所示：

Sub badlook3()

Dim BenchSI As Variant
Dim BRange As Range
Dim SIDate As Date


Set BRange = Worksheets("Sheet3").Range("A2:C9")  

MsgBox BRange.Address

SIDate = Worksheets("Sheet3").Range("F2").Value


BenchSI = Application.WorksheetFunction.VLookup(SIDate, BRange, 2, True)


End Sub

我收到“无法获取 WorkSheet 函数类的 VLOOKUP 属性”错误。

我在这里想念什么？A 列的顺序正确。它们是日期。Excel 想从我这里得到什么？

4

2 回答 2

3

问题在于使用 SIDate 作为日期（Visual Basic 日期类型）
我的猜测是 Visual Basic 日期类型和 excel 日期类型不匹配，这就是你收到错误的原因

而是将 SIDate 声明为Range，它将起作用

这是代码：

Sub badlook3()

   Dim BenchSI As Variant 
   Dim BRange As Range 
   Dim SIDate As Range

   Set BRange = Worksheets("Sheet3").Range("A2:C9")      
   MsgBox BRange.Address

   Set SIDate = Worksheets("Sheet3").Range("F2")    
   BenchSI = Application.WorksheetFunction.VLookup(SIDate, BRange, 2, True)

End Sub
于 2012-06-15T18:33:10.933 回答
2

您要求 vLookup 针对 1 列范围返回 2 列范围。更改 BRange = "A2:B9" 以使您的 vLookup 获取 S&P 值。

或者，您可以将范围更改为 A2:C9 并将 vLookup 中的 2 更改为 3 并获得 DJ 平均值。

简而言之，vLookup 只能返回对一个范围内最大数量的列的列引用。它可以返回 3 列范围内的第 1、2、0r 第 3 列引用，但不能返回第 4 列，因为没有第 4 列。

于 2012-06-15T17:50:31.477 回答