应用OfficeVBA在Excel之中进行手机终端捆绑销售稽核--.doc

应用OfficeVBA在Excel中进行手机终端捆绑销售统计稽核 作者：淮北联通建维部 罗维 摘要自动执行一组操作完成任务。关键词VBA是VB的子集，极易使用，它以Excel、Access等作为开发平台，可使用Excel、Access的全部功能，如表格处理、数据分析等等。OfficeVBA用面向对象的方法，站在更高、更抽象的层次上，把问题分解为对象来解决。笔者的编程技巧一部分是经过多年专业化工作积累下来的，一部分学自各路高手。读者若感兴趣，综合利用VBA中AutoFilter方法Range对象Find方法D:\OfficeVBA\捆绑销售稽核.XLS”，将VBAProject创建在此文件中。其中一个Worksheet名是“MSISDN_IMEI”。 在“中国联通淮北分公司手机终端捆绑销售稽核软件开发.XLS”中，新建Sheet“AllBeginFromHere”，设一命令按钮“cmdAllBeginFromHere”。再建一个主窗体frmCOMPARE_MSISDN_IMEI。点击“cmdAllBeginFromHere”后，弹出主窗体frmCOMPARE_MSISDN_IMEI，如图示。通过与主窗体上的控件交互，可得最终稽核结果。 1）复制“市场部门资料统计表”的内容生成“中国联通淮北分公司手机终端捆绑销售稽核软件开发.XLS”中的Sheet“MSISDN_IMEI”。第1行内容设为“中国联通淮北分公司手机终端捆绑销售稽核”。再插入两列：“查到的IMEI手机串号”（列E）、“查到的MSISDN手机号码”（列I）。 2）分析MSISDN--》IMEI_10月捆绑销售1126_华为.TXT、IMEI--》MSISDN_10月捆绑销售1126_华为.TXT这两个文件，找出其内容的构成规律。之后，从LOG文件中提取数据，对应地一一保存到“MSISDN_IMEI”的列E、列I，如下所示。 3）与上步类似，处理文件“MSISDN--》IMEI_200710_NOKIA.TXT”，提取数据保存到列E、列I的对应位置。请注意：NOKIA的LOG格式与前面华为软交换LOG不同，相应的处理代码有差异。淮北有2个BSC：HBBSC21，上连NOKIA MSC，可由MSISDN查IMEI，反之不行；HBBSC18连华为软交换，既可由MSISDN查IMEI，也可根据IMEI查询MSISDN。可见，在这一点上华为软交换较NOKIA设备更有优势。 4）若Worksheet“MSISDN_IMEI”列E、列I的某些单元格内容仍然为空，则定义它们是“没查到的”。将“没查到的”单元格设成灰色底纹。 5）编程比较列E和列H，列I和列D，把“不一致的”单元格设成红色底纹。如下图所示。 6）稽核结果：按工作流程，反馈稽核结果给“市场经营部门”，进入下一工作节。 3附件：代码 参考资料 [1] Visual Basic程序设计教程龚沛曾 陆慰民 杨志强 编 吴永明 审高等教育出版社 [2] NED 5.4Copyright ? Nokia Corporation 2005