Excel：利用VBA设计一个“正”字计数器

在日常的学习与工作中经常需要计数，您还在纸上画“正”计数吗？今天“编辑之谭”信息给大家演示：以淘宝网“文章代写”交易用户评价信息的统计研究为例，利用Excel软件编写简单的VB宏程序设计一个“正”字计数器。去看看！

近期在返修《中国科技期刊研究》(CSSCI)投稿的修改稿，需要补充关于论文代写交易记录及用户评价消息的相关大数据分析。上一篇推文告诫过：学术道德的底线不可逾越，要对论文交易Say no！

图1是万能某宝网（什么都可以买卖！）上“代写”关键词搜索到的截图（共4400多条结果，图1仅显示极少部分，图中圆圈图案是谭编打上去的图章！）。

图1 某宝网“代写”交易产品（部分）

谭编选择销量第一的“美啊美旗舰店”的其中一个“代写”产品，对其用户评价记录进行人工分类（编写爬虫应该可以自动抓取评价记录，并可进行语义关键词的自动统计与分类，但限于时间，暂时不采用爬虫编程，后续谭编会尝试Spider程序）。

例如翻阅评价消息，判断并分3类：①代写服务质量评价（速度快、文笔好、质量高、包修改、失望）；②代写文章需求类型（总结报告、演讲稿、领导报告、报奖材料、简历）；③求助代写的原因（急、忙、不会写）。

谭编起初采用传统方法：在纸上画“正”计数，如图2所示。

图2 传统“画正计数”法

数据量大，正字不够位置画了。那就设计一个Excel“正”字计数器！

利用Excel程序(这里使用的是国产WPS办公系统，您也可以采用Office的Excel程序），设计一张报表如图3所示。所有按钮其实已经绘制好了，下面的截图只是演示一二。

第一步：Excel中按钮的绘制

点击菜单“开发工具”，再点击工具栏中的按钮，鼠标指针变为十字线，可以在需要绘制按钮的地方，拖动鼠标然后松开鼠标来实现对按钮的绘制，如图3所示。

图3 按钮的绘制

修改按钮的标题：右键点击按钮，然后选择“属性”，即可弹出“属性”对话框，将Caption右边的属性值改为想要的内容，如“速度快”等。如图4所示。

图4 按钮标题的修改

第二步：VB“宏”程序的编写

点击按钮右键选择“指定宏”，在弹出的VB编辑器中，输入程序代码：range("A6") =range("A6")+1。由于每个按钮的运行事件都是累加操作，所有的模块代码均相似，只需要修改模块名称及代码中单元格即可。如图5所示。

图5 VB宏程序的设计

设计一个“减”按钮，万一点错多加1次，点击“减”按钮可以减1，则宏代码：

第三步：给按钮指定宏

“退出设计”，右键点击按钮，选择“指定宏”，在弹出的对话框中选择相应的宏名称。类似设置其他所有按钮。如图6所示。

图6 给按钮配置宏

宏程序已经配置成功，下面看看效果（图7），点击相应按钮后，相应单元格的数字在原值的基础上累加1，达到了预期的效果。

图7 Excel“正”字计数器演示效果

考虑到在同一屏幕，既要显示淘宝网页，又要在EXCEL中点击按钮计数，进一步将该Excel表格重新编排成竖排列，如图8所示。

图8 竖排计数器

后续待谭编修改的这篇论文刊出后，再跟大家分享研究结果。