多条件计数问题

anacreon322

liulang0808 发表于 2018-12-14 14:58
供参考吧。。。。。

计算结果不对。

liulang0808

anacreon322 发表于 2018-12-14 15:23
计算结果不对。

结合附件看吧，因为是针对当前附件，取整处理的，如果条件有出入还要修改的。

dsmch

1. Sub dsmch()
   
2. Set cn = CreateObject("ADODB.Connection")
   
3. Sheet2.Activate
   
4. arr = Range("a1").CurrentRegion
   
5. cn.Open "Provider =Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
   
6. For i = 2 To UBound(arr)
   
7. Sql = "select count(姓名) from [数据表$] where 数学>=" & arr(i, 1) & " and 数学<=" & arr(i, 2) & "and 语文>=" & arr(i, 3) & " and 语文<=" & arr(i, 4) & "and 英语>=" & arr(i, 5) & " and 英语<=" & arr(i, 6)
   
8.     Cells(i, "g") = cn.Execute(Sql)(0)
   
9. Next
   
10. End Sub

复制代码

anacreon322

liulang0808 发表于 2018-12-14 15:26
结合附件看吧，因为是针对当前附件，取整处理的，如果条件有出入还要修改的。

版主，如果上界和下界是任意的数字，字典的办法就没法处理了是么？
我刚学vba一周，太菜了。

anacreon322

dsmch 发表于 2018-12-14 15:34

我没学过sql 哦
alt+f8直接运行会报错“运行时错误‘3706’。未找到提供程序，该程序可能未正确安装”。
将jet.OLEDB.4.0改成ace.OLEDB.12.0再运行会报错“至少一个参数没有被指定”，
指向代码 “    Cells(i, "g") = cn.Execute(Sql)(0)”
我是需要安装什么程序么？win7 64位+office2013sp1

dsmch

附件测试下

anacreon322

dsmch 发表于 2018-12-14 16:40
附件测试下

结果一样的

yjh_27

anacreon322 发表于 2018-12-14 14:46
您这个表我把源数据扩到5000行左右，查询表扩到16000行的情况下，运算31秒左右。
我实际的表里，还有很 ...

查询表某科的  区间  不同行之间没有重叠吧

如
语文下限        语文上限
90        100
80        90
70        80

不会有
语文下限        语文上限
90        100
80        95
70        85

dsmch

Extended Properties=Excel 12.0试试

anacreon322

dsmch 发表于 2018-12-14 16:59
Extended Properties=Excel 12.0试试

Extended Properties=Excel 12.0 报一样的错
ace.OLEDB.12.0可以运行，但是很慢，同样的数据，440秒跑完。见附件