EXCEL不能录制公式
在表格的E8、H8、N8分别写好了公式，用宏录制这些公式是，无法记录，请高手告诉我，在VBA中如何写这三个公式。 谢谢了。 E8=IF(SUMPRODUCT((数据表!$A$10:$A$1000<=自动盘点!$F$5)*(数据表!$C$10:$C$1000=自动盘点!B8),数据表!$H$10:$H$1000)=0,0,SUMPRODUCT((数据表!$A$10:$A$1000<=自动盘点!$F$5)*(数据表!$C$10:$C$1000=自动盘点!B8),数据表!$M$10:$M$1000)/SUMPRODUCT((数据表!$A$10:$A$1000<=自动盘点!$F$5)*(数据表!$C$10:$C$1000=自动盘点!B8),数据表!$H$10:$H$1000)) H8=IF(SUMPRODUCT((数据表!$A$10:$A$1000>自动盘点!$F$5)*(数据表!$A$10:$A$1000<=自动盘点!$J$4)*(数据表!$C$10:$C$1000=自动盘点!B8),数据表!$H$10:$H$1000)=0,0,SUMPRODUCT((数据表!$A$10:$A$1000>自动盘点!$F$5)*(数据表!$A$10:$A$1000<=自动盘点!$J$4)*(数据表!$C$10:$C$1000=自动盘点!B8),数据表!$M$10:$M$1000)/SUMPRODUCT((数据表!$A$10:$A$1000>自动盘点!$F$5)*(数据表!$A$10:$A$1000<=自动盘点!$J$4)*(数据表!$C$10:$C$1000=自动盘点!B8),数据表!$H$10:$H$1000)) N8==IF(SUMPRODUCT((数据表!$A$10:$A$1000<=自动盘点!$J$4)*(数据表!$C$10:$C$1000=自动盘点!B8),数据表!$H$10:$H$1000)=0,0,SUMPRODUCT((数据表!$A$10:$A$1000<=自动盘点!$J$4)*(数据表!$C$10:$C$1000=自动盘点!B8),数据表!$M$10:$M$1000)/SUMPRODUCT((数据表!$A$10:$A$1000<=自动盘点!$J$4)*(数据表!$C$10:$C$1000=自动盘点!B8),数据表!$H$10:$H$1000))
终于找到你的问题了，你在宏代码里加Range("e8") = Application。Evaluate("公式")和Range("h8") = Application。Evaluate("公式")和Range("n8") = Application。
Evaluate("公式")就可以了。明白我的意思吗？其中的公式就是你在Excel中使用的公式。
还是完整给你套一个示范一下吧，比如第一个，套好后，在宏代码里的代码应为：
Range("e8") = Application。
Evaluate("IF(SUMPRODUCT((数据表!$A$10:$A$1000<=自动盘点!$F$5)*(数据表!$C$10:$C$1000=自动盘点!B8),数据表!$H$10:$H$1000)=0,0,SUMPRODUCT((数据表!$A$10:$A$1000<=自动盘点!$F$5)*(数据表!$C$10:$C$1000=自动盘点!B8),数据表!$M$10:$M$1000)/SUMPRODUCT((数据表!$A$10:$A$1000<=自动盘点!$F$5)*(数据表!$C$10:$C$1000=自动盘点!B8),数据表!$H$10:$H$1000))")
。
答：详情>>
