评估产品

Question

我无法评估代码最后的产品。我觉得所有东西都正常，但我不断收到

类型不匹配错误

我已经试过各种语法的变化，我仍然不能得到它的工作。有任何想法吗？

Sub Sample() 
    Dim ws As Worksheet 
    Dim x As Long 
    Dim lRow As Long, llRow As Long 
    Dim aCell As Range, bCell As Range 
    Dim rng1 As Range, rng2 As Range 

    Set ws = ThisWorkbook.Sheets("Sheet1") 
    With ws 
     Set aCell = .Range("B6:E20").Find(Cells(14, 9).Offset(0, -1).Value) 
     If Not aCell Is Nothing Then 
      lRow = .Range(Split(.Cells(, aCell.Column).Address, "$")(1) & .Rows.Count).End(xlUp).Row 
      If lRow > 1 Then 
       Set rng1 = .Range(aCell.Offset(1), .Cells(lRow, aCell.Column)) 
      End If 
     End If 

     Set bCell = .Range("B6:E20").Find(Cells(14, 9).Offset(-1, 0).Value) 
     If Not bCell Is Nothing Then 
      llRow = .Range(Split(.Cells(, bCell.Column).Address, "$")(1) & .Rows.Count).End(xlUp).Row 
      If llRow > 1 Then 
       Set rng2 = .Range(bCell.Offset(1), .Cells(lRow, bCell.Column)) 
      End If 
     End If 

     Debug.Print rng1.Address 
     Debug.Print rng2.Address 

     x = Evaluate("=sumproduct(""rng1"",""rng2"")") 
    End With 
End Sub 

Answer 1

rng1和rng2，因为它不是一个Named Range或有效范围的地址并不意味着什么Sumproduct功能。因此Evaluate功能失败。

要使其工作的尝试：

x = Evaluate("=sumproduct(" & rng1.Address & "," & rng2.Address & ")") 

我们确保您评估您的正确的范围，你可能想地址财产外部参数设置为真。

x = Evaluate("=Sumproduct(" & rng1.Address(, , , True) & _ 
    "," & rng2.Address(, , , True) & ")")