如何用VBA实现多条件求和？

jiminyanyan

帮你顶一下。。。

mineshine

xyuer 发表于 2011-11-19 00:35
真是万分感谢，我已经基本上实现了我想要的效果，可是在数据库中有一个小问题，如果sheet1中的姓名，时间 ...

sql代码中的union改union all

1. 
   
2. Sub Total()
   
3. Dim conn As Object, sql$, i As Long, j%, p$
   
4. Set conn = CreateObject("adodb.connection")    '建立连结
   
5. conn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=no';data source=" & ThisWorkbook.FullName   '开启连结
   
6. With Sheets("Sheet2")
   
7.      .Range("D:D,F:F,H:H").ClearContents   '清除Sheet2 D,E,F行
   
8.       p = "[Sheet1$A2:I" & Sheet1.[A65536].End(xlUp).Row & "]"  'SQL语句查询Sheet1工作表范围
   
9.       '合併Sheet1时间1~4,数据1~4成三行数据库
   
10.       sql = "select f1,f2,f6 from " & p & " where len(f2)>0 union all select f1,f3,f7 from " & p & " Where len(f3)>0 union all select f1,f4,f8 from " & p & " Where len(f4)>0 union all select f1,f5,f9 from " & p & " Where len(f5)>0"
    
11.       Sheet1.Cells(1, 11).CopyFromRecordset conn.Execute(sql) '将SQL得到的合併数据写入Sheet1 K:M
    
12.      For i = 2 To .[A65536].End(xlUp).Row   '从Sheet2 第2列往下到最后非空白列循环
    
13.         For j = 3 To 7 Step 2
    
14.             '时间大于等于开始时间,小于等于结束时间, 且数据等于条件
    
15.             sql = "select sum(f3) from [Sheet1$K:M] where f2>=#" & .Cells(i, 1) & "# and f2<=#" & .Cells(i, 2) & "# and f1='" & .Cells(i, j) & "'"
    
16.             .Cells(i, j + 1).CopyFromRecordset conn.Execute(sql)  '将SQL得到的和计写加入Sheet2 D,F,H
    
17.         Next j
    
18.      Next i
    
19. End With
    
20. Sheet1.[K1:M65536].ClearContents  '清除Sheet1 K:M合併数据
    
21. conn.Close   '关闭连结
    
22. Set conn = Nothing
    
23. End Sub
    

复制代码

蓝天云朵

先收藏再学习.

透视表

来学习下，也想请各位帮忙，期待老师也来帮我写！

XDJ2003_2000

口口口口风吹日晒 中中

liuchunlong

都是大神 又学到了

复道加餐

虽然看不懂 ，还是顶一顶。