Excel插件的制作方法.docVIP

Excel插件的制作方法 一、问题描述：从crm系统中导出的表格，与实际需要的形式有许多不相适应的地方，以往都是通过大量的人工操作修改成所需形式。但是当发货量不断增加时，手工修改需要浪费大量的时间和精力；并且难以保证数据的准确性；这时就迫切的需要改进方法以适应新的要求。在发货表中最难整理，也是最浪费时间的地方主要有以下两处： 订购产品的整理： 原始表格中的订购产品形式如下： 图1-1 需要将此列修改成如下形式： 图1-2 难点：正品和赠品的区分；产品和数量的分离；金额的添加 发货产品的统计： 本模块需要实现两个功能：首先是统计出当日的发货产品有哪些；其次是计算出每种产品的发货数量。需要使用字典的方法。 二、解决办法：用Excel vba解决；做成Excel插件 三、开发环境：Excel 2007 四、知识准备：Excel vba基本编程知识，数组和字典；Xml语言 五、基本想法：在Excel中自定义一个选项卡My_Tools；在My_Tools选项卡中定义一个名为发货表的工具选项卡；该工具选项卡中有5个功能模块：格式化、分列；添加金额；产品统计；设置密码。最终实现效果如下图。 图1-3效果图 每个模块的功能： 格式化：删除多余的列；统一字体字号；列宽；设置单元格格式； 分列：将订购产品一列；正品和赠品分离；产品和数量分离；套餐中加入批注 添加金额：对相应的正品添加金额； 产品统计：统计发货表中的产品及相应数量； 设置密码：对工作簿设置读写密码；对工作表设置保护密码； 六、操作步骤： 第一步：在桌面上创建一个名为customUI文件；在记事本中写入如下代码，文件命名为customUI.xml，编码为UTF-8，保存在customUI文件中。 customUI xmlns=/office/2006/01/customui ribbon startFromScratch=false tabs tab id=rxtabCustom label=My Tools insertAfterMso=TabDeveloper group id=mygroupA label=发货表 button id=a1 imageMso=FormatPainter size=large label=格式化 onAction=格式化/ button id=a2 imageMso=ConvertTextToTable size=large label=分列 onAction=分列/ button id=a3 imageMso=ConditionalFormattingTopNItems size=large label=添加金额 onAction=price_add/ button id=a4 imageMso=FilePrintPreview size=large label=产品统计 onAction=发货产品统计/ button id=a5 imageMso=Lock size=large label=设置密码 onAction=设置密码/ /group /tab /tabs /ribbon /customUI 第二步：在桌面上新建一个启用宏的Excel文件，并命名为MyCustomUI.xlsm，因为在自定义的XML中，包含了产生回调的onAction属性，