用VBA实现数据分析

1、正确学会Excel VBA的16堂课用VBA实现数据分析销售数据分析销售明细清单分析销售结果分析统计销售数据分析销售数据分析 商品库存需求分析 商品销售情况分析 1. 计算销售金额 2. 将计算结果图表化计算销售金额计算销售金额使用Excel VBA计算商品销售金额具体操作步骤如下：步骤1：打开“销售分析”工作簿，在“2010年第一季度商品需求量及销售情况分析”表中选择【开发工具】选项卡，单击“代码”选项组中的【Visual Basic】按钮，即可打开【Microsoft Visual Basic for Application】主窗口，选择【插入】【模块】菜单项，即可插入一个模块，在该模块的

2、“名称”属性列表中将其更改为“统计销售金额”，如图9-23所示。步骤2：双击进入该模块代码窗口中，在其中输入统计销售金额的代码程序，如图9-24所示。计算销售金额计算销售金额使用Excel VBA计算商品销售金额具体操作步骤如下：步骤3：为方便上述程序代码的执行，在工作表中为其设置执行按钮。在【开发工具】选项卡中，单击“控件”选项组中的【插入】下拉按钮，在弹出列表中选择【按钮（窗体控件）】按钮 ，在工作表的适当位置处，当鼠标指针变为“+”状时按住鼠标左键不放并拖动至适当大小后释放鼠标左键，即可弹出【指定宏】对话框，在“宏名”列表中选择“分析销售金额”选项，如图9-25所示。计算销售金额计算销售

3、金额使用Excel VBA计算商品销售金额具体操作步骤如下：步骤4：单击【确定】按钮，即可完成宏的指定操作。选择插入的按钮，在右键弹出菜单中选择【编辑文字】菜单项，将按钮名称更改为“计算销售金额”，单击工作表中的任意单元格，即可退出该按钮的编辑状态，如图9-26所示。步骤5：将鼠标指针移动至该按钮上，当指针变为“ ”状时单击【计算计算销售金额】按钮，执行指定的过程，即可计算出H列中的销售金额，如图9-27所示。销售明细清单分析销售明细清单分析 统计销售明细清单 分析销售明细清单 1统计液晶电视的销售总额 2统计折扣额不低于2000的记录 3统计“销售数量”不低于5且“折扣率”不低于0.8的商品

4、记录统计销售明细清单统计销售明细清单具体的操作步骤如下：步骤1：打开“商品销售明细清单”表，在【开发工具】选项卡中单击“代码”选项组中的【Visual Basic】按钮，即可打开【Microsoft Visual Basic for Application】主窗口。选择【插入】【模块】菜单项，即可插入一个模块，在该模块的“名称”属性列表中将其更改为“统计金额”，如图9-46所示。步骤2：双击进入该模块代码窗口中，选择【插入】【过程】菜单项，即可打开【添加过程】对话框，在“名称”文本框中输入“统计金额”，在“类型”选项组中选择【子过程】单选项，在“范围”选项组中选择“公共的”单选项，如图9-47

5、所示。统计销售明细清单统计销售明细清单具体的操作步骤如下：步骤3：单击【确定】按钮，即可在模块中创建名为“统计金额”公有子过程的代码框架，如图9-48所示。在该子过程中输入下面的完整程序代码，如图9-49所示。步骤4：在代码输入完毕后，选择【运行】【运行子过程/用户窗体】菜单项，即可运行该子过程，计算出折扣额及实际金额的结果，如图9-50所示。统计销售明细清单统计销售明细清单具体的操作步骤如下：步骤5：计算结果并不是以货币格式显示，还需要将其转化为货币格式，则需要在上述过程中添加如下代码，如图9-51所示。Range(Cells(i, 6), Cells(i, 7).Select 选择单元格区

6、域Selection.NumberFormatLocal = ￥#,#0.00;￥-#,#0.00 设置货币格式步骤7：在添加完毕后，选择【运行】【运行子过程/用户窗体】菜单项，运行该子过程，即可将计算结果转化为货币格式，如图9-52所示。销售结果分析统计销售结果分析统计 销售业绩评价 利用统计函数汇总分析销售数据 1. 统计销售人员数目 2对销售额进行汇总分析 3对销售额进行排序对销售额进行排序对销售额进行排序具体的操作步骤如下：步骤1：在前面添加的模块中插入一个“销售排序”公有子过程，并在该子过程代码框架中添加实现销售额排序功能的代码程序，如图9-84所示。步骤2：为方便上述程序代码的执行

7、，在工作表中为其设置执行按钮。在【开发工具】选项卡中，单击“控件”选项组中的【插入】下拉按钮，在弹出列表中选择【按钮（窗体控件）】按钮 ，在工作表适当位置处，当鼠标指针变为“+”状时按住鼠标左键不放并拖动至适当大小后释放鼠标左键，即可弹出【指定宏】对话框，在“宏名”列表中选择“销售额排位”选项，如图9-85所示。对销售额进行排序对销售额进行排序具体的操作步骤如下：步骤3：单击【确定】按钮，即可完成宏的指定操作。选择插入的按钮，在右键弹出菜单中选择【编辑文字】菜单项，将按钮名称更改为“销售额排位”，如图9-86所示。步骤4：单击工作表中的任意单元格，即可退出该按钮的编辑状态。将鼠标指针移动至该按

8、钮上，当指针变为“ ”状时，单击【销售额排位】按钮，执行指定的过程，即可根据在工作表中选中的单元格而返回相应的消息对话框。步骤5：如果选中的是空的单元格，即可弹出“请选择销售人员姓名或销售额”消息对话框，如图9-87所示。对销售额进行排序对销售额进行排序具体的操作步骤如下：步骤6：如果既没有选择销售人员的姓名和销售额，而选择了其他无关的单元格，如这里选择D2单元格，系统则弹出“错误的选择”消息对话框，如图9-88所示。步骤7：如果选择销售人员“姓名”所在单元格，即可弹出如图9-89所示的消息对话框。如果选择“销售额”所在单元格，即可弹出如图9-90所示的消息对话框。专家课堂（常见问题与解答）专

9、家课堂（常见问题与解答）点拨点拨1：在使用VBA向Excel中写入公式时，遇到这样的问题：如写入公式为=IF(OR(L4 =, K4=删除), , IF(G4 ,G4, OFFSET(AG4,-1,0,1,1)，但在VBA中会报错，无法写入，错误提示是指向=删除)，为什么总是显示编译错误，缺少语句结束？是VBA无法识别过长的公式造成的吗？有其他办法可以把足够长且又带多个逻辑判断的公式写入VBA吗？解答：解答：在VBA中的公式含有或A号时，可以用或A来表示，例如上述公式可以写成：H1 = =IF(OR(L4=,K4=删除),IF(G4 ,G4,OFFSET(AG4,-1,0,1,1)点拨点拨2：在对销售额进行排位操作时，当运行销售额排位功能的程序代码时，为什么