SUMIFS功能從其他工作簿 - 錯誤是類型不匹配

Question

我想在功能在其他工作簿的活動工作表範圍內。這裏就是我得到我的宏的錯誤：

ActiveSheet.Range(ActiveSheet.Cells(6, lastCol + 1), 
        ActiveSheet.Cells(lastRow, lastCol + 1)).Formula = Application.WorksheetFunction.SumIfs(" ' " & wbGSD.Name & "'!$F$10:$F$" & wbGSDlastRow & ",'" & wbGSD.Name & "'!$B$10:$B$" & wbGSDlastRow & ",B6,'" & wbGSD.Name & "'!$C$10:$C$" & wbGSDlastRow & ", Total") 

我得到的錯誤是：

類型不匹配

我試過Sumif功能。它也沒有工作。

Answer 1

你正在通過SumIfs()一個長字符串。它不需要一個長字符串。它需要一些參數，其中前兩個是Range對象，而不是字符串。如果你想寫你的公式作爲一個長字符串，那麼不需要WorksheetFunction.SumIfs()。只需指定字符串公式的範圍內的Formula屬性：

Range("A1").Formula = "=SUMIFS('" & wbGSD.Name & "'!$F$10:$F$" & ... 

如果你真的做希望使用WorksheetFunction.SumIfs()，你需要通過傳遞正確類型的各個參數正確地使用它：

Range("A1") = WorksheetFunction.SumIfs(_ 
    Sheets(wbGSD.Name).Range("$F$10:$F$" & wbGSDlastRow), _ 
    Sheets(wbGSD.Name).Range("$B$10:$B$" & wbGSDlastRow), _ 
    ....