实验八：Excel 的VBA应用.docVIP

实验八：Excel 2003的VBA应用 【实验目的和要求】 掌握 2. 打开Excel2003，单击“文件”→“保存”菜单命令，将此工作薄以“制作市场调查问卷.xls”为名保存在网络盘ncre（K:）\wks\kxx文件夹内的“实验8”文件夹。 市场调查问卷在企业的生产和销售中均具有重要的作用，通过这种方式可以了解市场需求状况、消费者心态、产品销售状况等。此次实验运用Excel的VBA高级功能，制作电子版市场调查问卷，可以使被调查用户在网上填写问卷，同时会自动地将问卷结果统计成数据清单，从而大大提高了调查问卷统计的效率。 （1）调查问卷的具体内容 （2）设置问卷标题 在“市场调查问卷.xls”工作薄中，将工作表“sheet1”重命名为“市场调查问卷”。 插入艺术字标题“口香糖市场调查问卷”。 单击“插入”→“图片”→“艺术字”，在“艺术字库”对话框选择一种合适的艺术字样式（如第3行4列）。 单击“确定”按钮，弹出“编辑艺术字文字”对话框，在“文字”框中输入标题“口香糖市场调查问卷”，字体（楷体-GB2312），字号（36）。 单击“确定”按钮，在出现的“艺术字”工具栏中单击“艺术字形状”按钮，从弹出的列表中选择“细上弯弧”。 此时艺术字形状发生改变，适当调整艺术字的位置。如图8-1所示。 （3）输入说明文字 单击“绘图”工具栏中的“文本框”按钮，在工作表上插入一文本框。 在文本框中输入说明文字，并设置字体为楷体-GB2312。利用鼠标拖动适当调整文本框的大小和位置。 选中文本框，单击鼠标右键，在快捷菜单中选择“设置文本框格式”，打开“设置文本框格式”对话框，如图8-2所示。在“颜色与线条”选项卡中，在“填充”选项组中的“颜色”下拉列表中选择“填充效果”选项。 在弹出的“填充效果”对话框，切换到“渐变”选项卡，在“颜色”选项组中选中“预设”单选按钮，在其右侧的下拉列表中选择“红木”选项，单击“确定”按钮。回到“设置文本框格式”对话框，拖动“透明度”滚动条的滑块将其透明度调整为“３０％”。如图8-3所示。单击“确定”按钮返回“设置文本框格式”对话框，然后在“线条”选项组中的“颜色”下拉列表中选择“无线条颜色”。设置完成的样式如图8-4所示。 　 图8-2 “设置文本框格式”对话框 图8-3 “填充效果”对话框 图8-4 输入文字样式 （4）使用分组框和单选按钮 在A13单元格中输入栏目标题“您的基本情况”。 单击“视图”菜单→“工具栏”→“窗体”，弹出“窗体”工具栏，在此工具栏中包含有多个按钮供用户使用。如图8-5所示。 图8-5 窗体工具栏 添加分组框。单击“窗体”工具栏中的“分组框”按钮，此时光标变为“+”形状。按住鼠标左键不放将其拖动至合适的位置释放，即可在工作表中添加一个分组框。默认情况下分组框左上角的文本文字为“分组框1”，将其重命名为“性别”。 添加选项按钮。单击“窗体”工具栏中的“选项按钮”按钮，按住鼠标左键不放，在“性别”分组框中添加一个单选按钮。将其命名为“男”并适当地调整其大小位置。 图8-6 设置分组框和单选按钮 用鼠标右键单击选项按钮的边框，在快捷菜单中选择“设置控件格式”，在弹出的“设置控件格式”对话框，设置该单选按钮的填充效果为“红木”。 选中设置完成的选项按钮，单击“常用”工具栏的“复制”按钮，单击“粘贴”按钮复制一个相同的选项按钮，然后将其命名为“女”。如图8-6所示。 注意：单选按钮添加完毕，单击工作表的其他位置可退出其编辑状态。要想使单选按钮再次进入编辑状态，应单击“绘图”工具栏中的“选择对象”按钮，即可进入编辑状态。 （5）使用组合框 为了方便用户输入“年龄、学历、职业、收入”等项目，这里使用组合框将其各个选项罗列出来供用户选择。 切换到sheet2工作表，将其重命名为“数据源”。在此工作表中的A1：D6区域输入“年龄、学历、职业、收入”等项目的数据源信息。如图8-7所示。 图8-7 “数据源”工作表 切换回“市场调查问卷”工作表，选定E13单元格，输入“年龄”。单击“窗体”工具栏上的“组合框”按钮，在F13位置添加一个组合框。如图8-8所示。 图8-8 添加组合框 用鼠标右键单击该组合框，在快捷菜单中选择“设置控件格式”菜单打开“设置控制格式”对话框，切换到“控制”选项卡中。 将鼠标定位在“数据源区域”文本框中，单击其后的“折叠”按钮，此时该对话框即被折叠起来。单击“数据源”工作表中的A2：A6区域，这样有鼠标选中的区域就会出现在文本框中。单击“折叠”按钮还原对话框，在“下拉显示项数”文本框中输入“5”。如图8-9所示。 单击“确定”按钮返回工作表。取消组合框的选中状态，然后单击此组合框的下拉按钮，根据实际情况在下拉列表中选择相应的年龄段选项即可。