大家好,我是陈小虾,是一名自动化方向的IT民工。写博客是为了记录自己的学习过程,通过不断输出倒逼自己加速成长。但功能说明:由于水平有限,博客中难免会出现一些BUG,或者有更优方案恳请各位大佬不吝赐教!微信公众号:万能的Excel

上一篇我们已经试过用Excel 自带的索引完成了一次SQL检索的操作,今天小编带你用VBA实现SQL检索,并实现相同项求和的功能

SELECT 字段名1,SUM(字段名2) FROM [原始数据$]) GROUP BY 字段名1 ORDERBY 字段名3

废话不多说,先看效果

附上代码:

Sub total()    Dim Sql$, line&, i&       Application.ScreenUpdating = False '关闭屏幕更新    Set xx =CreateObject("adodb.connection") '设置对象    With xx        .Open"Provider=Microsoft.Ace.oledb.12.0;extended properties='excel12.0;HDR=yes';data source=" & ThisWorkbook.FullName        Sql = "select 品号,sum(数量),sum(金额),类型 from [明细$] group by品号,品名,类型 order by 品号,类型 desc"        [统计!A2].CopyFromRecordset.Execute(Sql) '放置查询结果的起始位置    End With    Application.ScreenUpdating = True End Sub

今天重点就是这个SQL语句了

Sql ="select 品号,sum(数量),sum(金额),类型 from [明细$] group by 品号,品名,类型 order by 品号,类型 desc"

 SELECT  字段名1,字段名2,字段名3

表示在该字段名下的列进行检索操作,检索后的结果将也是以字段名1,字段名2,字段名3 的顺序排列

 FROM [表名$区域]

表名:指出检索的字段所在的表格位置,可以使跨表格操作

区域:指出检索的字段所在的表格中具体的位置,如果列的名称从第一行开始,就可以不用填,如下图所示:

SELECT SUM(字段名2) FROM [原始数据$]) GROUP BY 字段名1
可求出原始数据表中字段名2根据字段名1的分类求和值

例如:select 品号,sum(数量),sum(金额)…group by 品号,品名,类型

表示找出品号,品名,类型 都相同的元素,将数量和金额相加。

 ORDER BY 品号,类型 desc

将查找的结果按“品号”为主要关键字和“品名”为次要关键字的顺序排列,Desc 意思为降序排列

关注公众号:万能的Excel  获取更多资源!

Excel VBA高级编程-SQL检索(二)合并相同项并求和相关推荐

  1. Excel VBA高级编程-SQL检索(一)

    大家好,我是陈小虾,是一名自动化方向的IT民工.写博客是为了记录自己的学习过程,通过不断输出倒逼自己加速成长.但功能说明:由于水平有限,博客中难免会出现一些BUG,或者有更优方案恳请各位大佬不吝赐教! ...

  2. sql 列求和_Excel VBA高级编程SQL检索(二)合并相同项并求和

    上一篇我们已经试过用Excel 自带的索引完成了一次SQL检索的操作,今天小编带你用VBA实现SQL检索,并实现相同项求和的功能 SELECT 字段名1,SUM(字段名2) FROM [原始数据$]) ...

  3. Excel VBA高级编程 - 根据关键字自动搜索,自动生成下拉菜单

    关注微信公众号:万能的Excel,回复关键词[下拉菜单]获取Excel源文件 功能说明: 因为工作需要,每一次都要从SAP查找物料信息,手动生成物料清单(Boom表),繁琐且容易出错. 使用VBA实现 ...

  4. Excel VBA高级编程 -根据日期查找数据

    关注公众号:万能的Excel     并回复[日期搜索]获取源文件! 功能说明: 打印出货单的时候,经常会需要从数据库中查询一段时间内的所有数据 本工作表使用VBA实现了如下功能: 1.实时统计重复项 ...

  5. Excel VBA高级编程 -自动去除重复项 自动求和

    大家好,我是陈小虾,是一名自动化方向的IT民工.写博客是为了记录自己的学习过程,通过不断输出倒逼自己加速成长.但功能说明:由于水平有限,博客中难免会出现一些BUG,或者有更优方案恳请各位大佬不吝赐教! ...

  6. Excel VBA高级编程 - 根据关键词实时筛选,自动生成下拉菜单

    关注公众号:万能的Excel     并回复[实时筛选]获取源文件! 功能说明: 当客户群体到达一定数量后,统计信息往往编程一项非常繁琐的工作.根据关键字自动搜索并且列出完整的信息编程一项必不可少的功 ...

  7. Excel VBA 高级编程-库存管理系统表

    大家好,我是陈小虾,是一名自动化方向的IT民工.写博客是为了记录自己的学习过程,通过不断输出倒逼自己加速成长.但功能说明:由于水平有限,博客中难免会出现一些BUG,或者有更优方案恳请各位大佬不吝赐教! ...

  8. Excel VBA高级编程-关键字查找数据库

    关注公众号:万能的Excel     并回复[关键字]获取源文件! 功能说明: 这个表格的主要功能是:根据输入的关键字找到数据库中,正确的公司名,生成一个下拉菜单,再根据正确的公司名,找到对应的No生 ...

  9. Excel VBA 高级编程-来自直男的Excel表白

    关注公众号:万能的Excel     并回复[表白]获取源文件! 七夕快到了,想用另类的表白方式,奈何自己不懂编程?那我就叫你如何用Excel 表白吧! 功能说明: 1.自动播放想说的话 2.用数学公 ...

最新文章

  1. 给 Python 初学者推荐的 IDE 哦!
  2. java开发都需要学什么
  3. [第五章] 领域模型
  4. SAP WebClient UI删除搜索条件的后台处理,以及max hit的处理逻辑
  5. 容斥原理的二进制实现模版
  6. JSONObject对象和JSONArray对象的使用
  7. 第二季-专题15-快车道DMA
  8. Windows Server 2012 搭建DHCP及远程路由访问
  9. 自定义控件之圆形的image
  10. 学习笔记 利用反射 手写一个简单的实体类 转json 的方法
  11. bochs的安装和配置
  12. 手把手教你从零开始腾讯云服务器部署
  13. 游戏服务器的常用架构
  14. 计算机/电脑为什么拥有计算能力
  15. Nodejs正则表达式
  16. 详解ELF重定向原理
  17. 赛车自行车什么牌子好辐轮王土拨鼠全世界碳纤维自行车品牌排行榜
  18. CodeForces 405C Unusual Product
  19. 源火星球——青龙羊毛
  20. eclipse可以写前端吗_这是我写的情诗,情诗可以这样写吗?晒晒你写的情诗吧...

热门文章

  1. ADI Blackfin DSP处理器-BF533的开发详解49:图像处理专题-Bright (图像亮暗处理)(含源码)
  2. blr不是已知的css属性名,js判断并告知支持css属性(值)的何种情况
  3. 怎么用centos7运行c语言程序_在Linux下运行C语言程序
  4. vue3组合式写法在方法中出发点击事件
  5. C语言编程的书写规则,关于C语言编程书写规范的规则和建议.doc
  6. OPPO R8207解账户锁刷机包 线刷救砖教程
  7. 计算机应用基础试题省开8207,江苏省2015年“专转本”计算机应用基础统一考试试题.doc...
  8. K3路由器自建服务器,搭建ngrok服务器!!给k3.k3c.K2.k2p路由器使用!!详细教程!!!...
  9. 神经网络中常见的激活函数
  10. [参考文档] [翻译]Oracle 12c R2优化器白皮书