Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 5422|回复: 29

[已解决]求助老师帮忙解决这个难题

[复制链接]
发表于 2013-11-10 08:51 | 显示全部楼层 |阅读模式
一个关于VBA多次筛选求和筛选填空的难题,详细内容见附件
最佳答案
2013-11-11 08:16
huahuagupiao 发表于 2013-11-11 00:15
VBA难题求助

(, 下载次数: 15)

筛选求和求助.rar

15.76 KB, 下载次数: 13

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2013-11-10 09:59 | 显示全部楼层
回复

使用道具 举报

发表于 2013-11-10 10:08 | 显示全部楼层
本帖最后由 CheryBTL 于 2013-11-10 10:18 编辑

请测试:
筛选求和求助.rar (41.64 KB, 下载次数: 13)

点评

你把楼主的附件发上来啦!  发表于 2013-11-10 10:18
回复

使用道具 举报

发表于 2013-11-10 10:14 | 显示全部楼层
筛选求和求助.rar (24.21 KB, 下载次数: 15)

点评

谢谢提醒,已更新^_^  发表于 2013-11-10 10:19
回复

使用道具 举报

发表于 2013-11-10 10:31 | 显示全部楼层
Sub 查询()
  Dim Conn As New ADODB.Connection
  Dim strSql As String
  Dim strCon As String
  Dim strCj As String
  
  strCon = "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;imex=1';data source=" & ThisWorkbook.FullName
  strCj = Application.InputBox("请输入车间代码", , , , , , , 2)
  If strCj = "False" Then Exit Sub
  
  
  Conn.Open strCon
  strSql = "select a.车间,a.产品类型,a.使用等级,a.生产形式,count(*) as 总数量,b.检验比例,b.仪检Ⅰ等级,仪检Ⅱ等级 from [CP$A:L] as a " & _
               " left join [BZ$A:D] as b on a.使用等级=b.使用等级 " & _
               " Where a.车间='" & strCj & "' " & _
               " group by a.车间,a.产品类型,a.使用等级,a.生产形式,b.检验比例,b.仪检Ⅰ等级,仪检Ⅱ等级"

  ActiveSheet.UsedRange.Offset(1, 0).ClearContents
  ActiveSheet.Range("a2").CopyFromRecordset Conn.Execute(strSql)
End Sub
回复

使用道具 举报

发表于 2013-11-10 10:31 | 显示全部楼层
楼主的要求和数据有偏差的。
回复

使用道具 举报

 楼主| 发表于 2013-11-10 10:33 | 显示全部楼层
感谢老师帮忙。
回复

使用道具 举报

 楼主| 发表于 2013-11-10 10:57 | 显示全部楼层
zjdh 发表于 2013-11-10 10:14

老师:
    你好!
    ReDim BRR(1 To D.Count, 1 To 8)
    这一句代表什么?
回复

使用道具 举报

发表于 2013-11-10 12:56 | 显示全部楼层
huahuagupiao 发表于 2013-11-10 10:57
老师:
    你好!
    ReDim BRR(1 To D.Count, 1 To 8)

D.Count  字典里的记录数
ReDim BRR(1 To D.Count, 1 To 8)
定义2维数组
回复

使用道具 举报

 楼主| 发表于 2013-11-10 18:31 | 显示全部楼层
zjdh 发表于 2013-11-10 12:56
D.Count  字典里的记录数
ReDim BRR(1 To D.Count, 1 To 8)
定义2维数组

老师:你好!
         还有一个问题不明白:为什么把车间号换成纯数字时,出现下标越界呢?求解。请老师帮忙写出新代码。万分感激。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 16:35 , Processed in 0.690742 second(s), 19 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表