VBA处理JSON实例 

这节再来看个VBA处理JSON数据的例子。 数据在这个网页http://www.pm25.in/api/querys/pm2_5.json?city=%E7%8F%A0%E6%B5%B7&token=5j1znBVAsnSf5xQyNQyq,代码是ExcelHome网友写好的,我直接拿来用了。     Sub json()...

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

    批量替换多个Word中的回车符 

    看到一个网友提问说怎么批量替换多个Word文件中的回车符,这个问题很简单,遍历每个Word,然后替换其中的所有回车符即可。最简单的做法是在Word中录制一个宏,然后再加上个循环就好了,这个我们之前有过例子,感兴趣的可以自己试下。那这个网友要求是在Exce中实现这个功能,这个问题我们在“VBA批量替换多个Word中的特定词”一文中也讲过一种...

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

      提取各月排名前几名的数据到相应区域 

      上节讲了top和order by结合应用的相关知识,这节再来看一个相关的例子。ExcelHome网友的一个求助帖,有一批数据,里面有月份这一项,要求将每月前n名的数据提取到另一个位置,数据下载文章最后的附件。比如这里要求提取出月份是1的前2条数据,如果相同的数据比较多,例如前3条数据是一样大的,那随便取其中2条即可。 正如我们上一节...

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

        SQL中Top与Order结合使用的问题 

        在之前关于SQL的知识中我们讲过要提前记录的前n条的话可以用Top命令,如果要对提取出来的数据进行排序可以用Order by,那么如果我们要从一批数据里面提取出前n大的数据自然就想到了先用Order by对数据进行排序,然后再从排好的数据中取出前n条就可以了。那下面我们来看个例子,有如下一个表 现在我们要从中取出前3名,显然...

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

          类模块实例-自动创建图表 

          再来看个类模块的实例。用VBA插入图表往往要设计一大堆的参数,为了方面,这次我们设计一个类模块,每次要插入图表时调用该类模块,输入几个参数就可以了。 在这里一共设置了3个参数,“目标工作表”是放图表的地方,“数据区域”就是图表调用的数据区域,“图表类型”就是柱 形图、饼图之类的东西。 先插入一个类模块,命名为NewChart,...

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

            类模块实例-按钮批量设置Click事件 

            这节来看个类模块的例子。比较常用的一个类模块的应用就是在设置窗体按钮的Click事件的时候,比如在一个模拟的计算器中,有0-9共10个按钮,每点击一个按钮就输出相应的数字,如果按常规方法来做的话那这10个按钮你每个都需要写一个Click事件,如果用类模块的话就简单多了。下而来 看操作步骤。 首先来制作一个如图所示的简单窗体 ...

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

              正则表达式-正向肯定/否定预查 

              这节继续来看下正则表达式的符号,正向肯定和否定预查。 (?=pattern) 正向肯定 预查,在任何匹配pattern的字符串开始处匹配查找字符串。这是一个非获取匹配,也就是说,该匹配不需要获取供以后使用。例 如,“Windows(?=95|98|NT|2000)”能匹配“Windows2000”中的“Windows”,但...

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

                SQL查询同一工作簿中工作表内容 

                这节来看个SQL查询的例子,这次要查询的表和结果表都在同一个工作簿中,在查询表中相应单元格输入内容,要求从数据表中得到数据并将结果放入查询表中。可以先从本文最后的网址中下载附件看一下。 这个问题就是SQL本地查询了,看代码 Sub search2() Dim cnn As Object, sql$, rs As Object, ...

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