赵刚老师《Access经典用变量条件分类汇总数据库》推荐网友们学习

望江婷 · 发表于 2011-3-8 14:47

请教各位老师能做到这样的汇总吗？
根据窗体上的4个变量条件，分类汇总金额，4个变量条件可以单独使用也可以组合使用，如附件是根据2009年-项目b-施工单位-dd三个变量条件汇总的结果，具体见附件，烦劳各位老师，
原先使用辅助表格，筛选后在汇总，看看这样能不能直接做到呢？谢谢

材料汇总.rar (36.54 KB, 下载次数: 141)

[ 本帖最后由望江婷于 2011-3-9 08:53 编辑 ]

zhaogang1960 · 发表于 2011-3-8 15:49

原帖由 望江婷 于 2011-3-8 14:47 发表
请教各位老师能做到这样的汇总吗？
根据窗体上的4个变量条件，分类汇总金额，4个变量条件可以单独使用也可以组合使用，如附件是根据2009年-项目b-施工单位-dd三个变量条件汇总的结果，具体见附件，烦劳各位老师，
...

短信收到
数据库设计不太合理，年份和日期有重复，如：年份选择2009年，日期选择2010-1就不好处理：
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub CommandButton1_Click()
Dim s$, arr, i%, SQL$
If ComboBox1.Value <> "" Then
      s = s & " and " & Label1.Caption & "='" & ComboBox1.Value & "'"
      If ComboBox2.Value <> "" Then s = s & " and month(" & Label2.Caption & ")=val(" & Split(ComboBox2.Value, "-")(1) & ")"
Else
      If ComboBox2.Value <> "" Then s = s & " and " & Label1.Caption & "='" & Split(ComboBox2.Value, "-")(0) & "年' and month(" & Label2.Caption & ")=val(" & Split(ComboBox2.Value, "-")(1) & ")"
End If
For i = 3 To 4
      If Me.Controls("ComboBox" & i).Value <> "" Then s = s & " and " & Me.Controls("Label" & i).Caption & "='" & Me.Controls("ComboBox" & i).Value & "'"
Next
If s = "" Then Exit Sub
arr = [a3:h3&""]
SQL = "select " & Join(arr, ",") & " from 费用汇总单 where " & Mid(s, 6)
MsgBox SQL
Set rs = New ADODB.Recordset
rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic
With Sheets("查询")
      .[A4:H65536].ClearContents
      .Range("A4").CopyFromRecordset rs
End With
End Sub

zhaogang1960 · 发表于 2011-3-8 15:50

附件

材料汇总.rar (28.25 KB, 下载次数: 166)

望江婷 · 发表于 2011-3-8 16:17

谢谢赵老师费心，结果出现问题了，1、费用类别和费用明细没有分类汇总，2、如果选择一个变量条件其他的3个变量条件为空，那么这3个变量条件就不参与运算，如下根据2009年一个变量条件的运算结果，类似于高级筛选后的计算结果，烦劳赵老师费心

年份日期项目名称施工单位费用类别费用明细金额
2009年    材料    焊材    300
2009年    材料    钢材    300
2009年    工具    五金    300
2009年    工具    起重    200

[ 本帖最后由望江婷于 2011-3-8 16:18 编辑 ]

zhaogang1960 · 发表于 2011-3-8 16:24

原帖由 望江婷 于 2011-3-8 16:17 发表
谢谢赵老师费心，结果出现问题了，1、费用类别和费用明细没有分类汇总，2、如果选择一个变量条件其他的3个变量条件为空，那么这3个变量条件就不参与运算，如下根据2009年一个变量条件的运算结果，类似于高级筛选后的 ...

excel基础操作我几乎不会，我不知道你说的是什么，请说明按照什么字段分类汇总

望江婷 · 发表于 2011-3-8 16:33

原帖由 zhaogang1960 于 2011-3-8 16:24 发表

excel基础操作我几乎不会，我不知道你说的是什么，请说明按照什么字段分类汇总

嘿嘿赵老师说笑呢！分类汇总字段是：4个变量条件+ 费用类别和费用明细，其中费用类别和费用明细字段是固定的，4个变量条件可以相互组合，也可以单独使用，如果分类汇总字段全部用上的话最大就是6个分类汇总字段，
数据库设计不太合理，年份和日期有重复，如：年份选择2009年，日期选择2010-1就不好处理，这种情况可以自己选择时掌握。
我这样说，不知道能表述的清吗，感谢赵老师费心

zhaogang1960 · 发表于 2011-3-8 16:51

我是个excel盲，还是不理解，我看好像是这样：
“序号”不必管它
窗体上的4个项目不选择就不管它，选择了就作为汇总的依据(group by后面的字段)
必须考虑的是后3项：费用类别、费用明细、sum(金额)
不知道我理解的对不对？

望江婷 · 发表于 2011-3-8 16:54

原帖由 zhaogang1960 于 2011-3-8 16:51 发表
我是个excel盲，还是不理解，我看好像是这样：
“序号”不必管它
窗体上的4个项目不选择就不管它，选择了就作为汇总的依据(group by后面的字段)
必须考虑的是后3项：费用类别、费用明细、sum(金额)
不知道我理解 ...

嘿嘿赵老师，你太伟大了，就是这样，

无辣味水煮鱼 · 发表于 2011-3-8 16:55

原帖由 zhaogang1960 于 2011-3-8 16:51 发表
我是个excel盲，还是不理解，我看好像是这样：
“序号”不必管它
窗体上的4个项目不选择就不管它，选择了就作为汇总的依据(group by后面的字段)
必须考虑的是后3项：费用类别、费用明细、sum(金额)
不知道我理解 ...

Zhaogang1960老师，你太低调了，我也很想做你这样的excel盲，估计很多人都想做你这样的excel盲。

望江婷 · 发表于 2011-3-8 16:55

怪我表述不清，不好意思，让赵老师费心了

		自动登录	找回密码
密码			免费注册

[分享] 赵刚老师《Access经典用变量条件分类汇总数据库》推荐网友们学习