Question

我一直在寻找不同的论坛，似乎无法找到我的答案。我有相当基本的VBA知识，并且可以在线创建我的大部分代码！

无论细胞参考如何，我都可以在以后解决这些问题。请你能告诉我如何在多张纸上制作一个sumifs公式参考。这是构建到一个模板中，每次运行时都会有不同数量的表单，因此我将无法引用这些表单。

抱歉有点模糊谢谢先进

Answer 1

谢谢，所以对于其他需要此功能的人来说，这就是完全完成它的方式我原来的公式是

"=SUMPRODUCT(SUMIF(INDIRECT(" '"&Invoices&"'!"&"A2006:A3005"),A3,INDIRECT("'"&Invoices&"'!"&"B2006:B3005")))"

直接进入单元格时，这是有效的，但正如您所看到的，当将其添加到VBA时，它会将其作为注释读取。要解决这个问题，每次使用＆＃34;你需要增加额外的＆＃34;如下所示（在＃34之前的形式;在开始之后和之后）＃34;在公式的末尾）

 *****'list all the sheet names in cell AI1 of the sheet summary*****
For i = 1 To Sheets.Count
Sheets("Summary").Range("AI1")(i, 1).Value = Sheets(i).Name
Next i
***'clear the first 3 entries in AI as i didnt need the first three sheet names***
Sheets("Summary").Select
Sheets("Summary").Range("AI1:AI3").Clear
***'select the first sheet name, which is in AI4 as we cleard the first 3 to the last used cell, e.g Ctrl.Shift.down*** 
Sheets("Summary").Activate
Sheets("summary").Range(ActiveSheet.Range("AI4"),    ActiveSheet.Range("AI4").End(xlDown)).Select
***' Name the range invoices***
Selection.Name = "Invoices"
' ***Formula to do a sumIf looping all the shets in the named range Invoices***
Sheets("summary").Range("B3").Formula = "=SUMPRODUCT(SUMIF(INDIRECT(""'""&Invoices&""'!$A$2006:$A$3005""),$A3,INDIRECT(""'""&Invoices&""'!B$2006:B$3005"")))"

sumifs循环所有工作表

1 个答案: