[已解决]关于变量的问题

Sinanju

最近用一段小代码统计数据遇到了一点小问题 还希望请教一下各位老师

VBA code 里面有一小段大概是这么个意思:

1. dim n as string
   
2. dim x as integer
   
3. for i = 1 to 100
   
4.    n=worksheets("sheet2").cells(i,1).value
   
5.    x=application.worksheetfunction.sumif(range("A:A"), n, range("B:B"))
   
6. next i
   
7.      

复制代码

我想问一下这样吧条件储存为变量是不是就没法用模糊查询了，以前公式里那种“*条件*"在这种情况下如何达成呢？

谢谢了！

最佳答案

月排行榜 / 总排行榜

ligh1298

2013-6-28 19:59

猜一下，是不是这个意思？
Sub aa()


Dim n As String
Dim x As Integer
For i = 1 To 100   
n = Worksheets("sheet2").Cells(i, 1).Value
   x = Application.WorksheetFunction.SumIf(Range("A:A"), "*" & n & "*", Range("B:B"))
Next i
     
End Sub

跳转到最佳答案楼层

ligh1298

application.worksheetfunction.sumif(range("A:A"), n, range("B:B"))
你这个是调用函数sumif进行条件求和呀。

Sinanju

ligh1298 发表于 2013-6-28 19:50
application.worksheetfunction.sumif(range("A:A"), n, range("B:B"))
你这个是调用函数sumif进行条件求和 ...

对啊 这个条件n是员工的姓名，应该是每次筛选一个名字。但是有的单元格统计里面写的是“员工1，员工2”。遇到这样的情况这个VBA就统计不了。
但是sumif方程本来是可以用*来代表模糊条件的啊。 比如说把条件写成“员工1*", 上面那种两个名字一起的单元格就可以统计了。我不知道把名字储存为变量之后这个模糊功能如何实现。

ligh1298

猜一下，是不是这个意思？
Sub aa()


Dim n As String
Dim x As Integer
For i = 1 To 100   
n = Worksheets("sheet2").Cells(i, 1).Value
   x = Application.WorksheetFunction.SumIf(Range("A:A"), "*" & n & "*", Range("B:B"))
Next i
     
End Sub

Sinanju

ligh1298 发表于 2013-6-28 19:59
猜一下，是不是这个意思？
Sub aa()

是的 谢谢。
我后来终于发现 * 打了引号就能用了。 {:011:}