加载宏的应用-自定义函数 

今天来看个加载宏的例子。在普通Excel中自定义的函数只能应用于该Excel文件本身,如果想要将自定义的函数用于所有的工作簿那就要用到加载宏了。 以自定义一个小写金额转大写金额的函数为例。新建一个工作簿,插入一个模块,输入下面的代码 Function DXMoney(M_MONEY As Double) '将人民币小写金额转换为...

       时间 : 2014-11-10| 栏目 : 案例专题| 浏览 : 2,185 次| 评论关闭 [阅读全文]

    多工作表的横向汇总 

    这节再来看个汇总的例子。有n多个表,现在要将这些表汇总到一个总表中,要求汇总结果横向排列。有了前面的基础我们直接来看代码 Sub 横向汇总() Dim myPath$, myFile$, AK As Workbook, tcol%, i As Integer Application.ScreenUpdating = False   ...

         时间 : 2014-11-10| 栏目 : 基本操作| 浏览 : 2,791 次| 评论关闭 [阅读全文]

      VBA中数据透视表应用 

      这几天写代码用到了数据透视表,那这节我们就来看下怎样用VBA来做一个简单的数据透视表。 有一个简单的表,表头里有股票代码,持股的机构名称、机构属性、持股数量等,现在要用数据透视表将该表做一个统计,行标签是股票代码,列标签是机构属性,要对持股数量做求和,对机构属性做计数,看代码: Sub Macro1() Dim PTcache ...

           时间 : 2014-11-09| 栏目 : 案例专题| 浏览 : 5,333 次| 评论关闭 [阅读全文]

        东方财富网数据的JSON处理方法 

        之前的文章中讲过东方财富网数据的下载,因为网站改版的原因原来的程序失效了,有不少网友把网址一换发现不行就来问我怎么程序不好用?网抓程序在处理方法上是相同的,但是在处理细节方面有很大的不同,很多不懂的网友以为改个网址就可以通用,如果你也只是到这种程序就不要来问我为什么不能用或者让我来给你重新写代码了。虽然网上有不少人会帮人做义工,但我不是其...

             时间 : 2014-11-09| 栏目 : 网页采集| 浏览 : 3,550 次| 评论关闭 [阅读全文]

          取当前路径所有文件夹的自定义函数 

          在跨文件夹进行合并汇总的时候经常要获得所有文件夹的路径,下面的自定义函数返回一个下标从1开始的一维数组,以每个文件夹的路径为值,包括当前文件夹。 Function Directory(Path$) Dim mypath, arr(), i, j, mydir$ Application.ScreenUpdating = False ...

               时间 : 2014-11-07| 栏目 : 案例专题| 浏览 : 1,492 次| 评论关闭 [阅读全文]

            统计销售数量并按顺序排列 

            这节来看个SQL统计销量数量并排列的例子。 原数据表是一个交易量的记录表,记录了每笔交易的货号、数量等,现在在统计每笔货的交易总量并按顺序排列。直接看代码 Sub search() Dim cnn As Object, sql$, rs As Object, i Set cnn = CreateObject("adodb.co...

                 时间 : 2014-11-06| 栏目 : 案例专题| 浏览 : 1,569 次| 评论关闭 [阅读全文]

              处理网抓到的XML文件 

              上节讲了怎么用VBA处理XML文件,这节来看下怎样处理网抓得到的XML形式的数据。 以抓取本网站的XML文件以为例,http://www.zhanzhanrufeng.com/sitemap_baidu.xml,仍然用DOM来处理,看代码 Private Sub GetData1() Dim tt As String, winh...

                   时间 : 2014-11-06| 栏目 : 网页采集| 浏览 : 1,675 次| 评论关闭 [阅读全文]

                VBA处理XML文件 

                XML也是储存数据的一种常用形式,这节来看下从XML文件中取数据的一般方法。 一般来说,如果你的XML文件结构比较规整的话可以用Excel自带的功能来直接导入XML形式的文件,在开发工具菜单XML组中找导入,非常方便,今天我们主要来看怎样用VBA来处理XML文件。 现在我手上有一个名为Rawdata.xml的XML文件,现在我...

                     时间 : 2014-11-05| 栏目 : 案例专题| 浏览 : 3,391 次| 评论关闭 [阅读全文]