VBA使用数组公式evaluate【已解决】

andy_excelhome

为了简化程序我在统计销售数据过程中采用evaluate方式，但是碰到“类型不匹配”的问题。

代码如下：
Private Sub CommandButton1_Click()
    Dim ss As String
    Dim t As Integer   
    ss = "A"   
    t = Application.Evaluate("sum((A2:A10=" & ss & ")*(B2:B10))")   
    MsgBox t   
End Sub

请高手指点！谢谢

产品名称	销售数量	销售单价（元）	销售小计（元）
A	2.00	120.00	240.00
C	1.00	35.00	35.00
B	5.00	80.00	400.00
A	12.00	110.00	1,320.00
E	2.00	40.00	80.00
D	50.00	65.00	3,250.00
B	20.00	80.00	1,600.00
C	3.00	32.00	96.00
B	50.00	75.00	3,750.00

李甲

为什么不直接SUM呢？

andy_excelhome

李甲 发表于 2012-5-24 17:06
为什么不直接SUM呢？

因为销售表格每天在更新。数据条数增加时实时计算（还有其它几个同类型的SUM运算），造成填写数据有停滞等待现象，影响录入数据的效率！

余余1982

Private Sub CommandButton1_Click()
    Dim ss As String
    Dim t As Integer
   
    ss = Range("e1")
   
    t = Application.WorksheetFunction.SumIf(Range("a2:a65536"), ss, Range("b2:b65536"))
   
   
   MsgBox ss & vbCrLf & "销售总数量为:" & vbCrLf & t
   
End Sub

andy_excelhome

余余1982 发表于 2012-5-24 18:06
Private Sub CommandButton1_Click()
    Dim ss As String
    Dim t As Integer

谢谢！
如果有一个以上的条件呢？比如要看某个月、某位销售员、某种产品的销售数量。
请指点。

余余1982

andy_excelhome 发表于 2012-5-24 19:26
谢谢！
如果有一个以上的条件呢？比如要看某个月、某位销售员、某种产品的销售数量。
请指点。

  t = Application.WorksheetFunction.SumIf(Range("a2:a65536"), ss, Range("b2:b65536"))

带入sumproduct 函数可以实现吧！

andy_excelhome

余余1982 发表于 2012-5-24 19:29
t = Application.WorksheetFunction.SumIf(Range("a2:a65536"), ss, Range("b2:b65536"))

带入sumpr ...

经过测试SUMPRODUCT不是一个VBA函数，最后还是通过EVALUATE解决啦。好像EVALUATE公式中的等号右边数值没有办法通过变量传递，只能引用？

感谢指点，受益了！

1. Private Sub CommandButton2_Click()
   
2.     Dim ss As String
   
3.     Dim t As Integer
   
4.    
   
5.     ss = "产品" & Range("g1") & "在" & Range("h1") & "月份"
   
6.    
   
7.     t = Application.Evaluate("SUMPRODUCT((A2:A10=g1)*(B2:B10=h1),C2:C10)")
   
8.     't = Application.Evaluate("SUM((A2:A10=g1)*(B2:B10=h1),C2:C10)")
   
9.    
   
10.     MsgBox ss & "销售总数量为:" & vbCrLf & t
    
11.    
    
12. End Sub
    

复制代码

余余1982

andy_excelhome 发表于 2012-5-24 20:29
经过测试SUMPRODUCT不是一个VBA函数，最后还是通过EVALUATE解决啦。好像EVALUATE公式中的等号右边数值没有 ...

哦！谢谢提醒，我也是猜测一下没有去验证！不好意思！宏表函数是个不错的方法！学习到了~

datongye

"""A"""

kaheen

学习了，evaluate比WorksheetFunction更方便地直接使用excel界面函数。