Ecel VBA编程 典型实例——制作问卷调查表.docxVIP

Excel VBA 编程 典型实例——制作问卷调查表 建筑公司为了满足现代市场的需求，在开发新的楼盘之前，对消费者进行了一次调查，通过本次调查表让公司了解各种楼盘的需求比例，使公司不致于盲目的开发高价楼盘，而无法销售出去，使公司的财政陷入困难。本例将制做一份楼盘问卷调查表，使用户掌握表单控件的使用。 练习要点 使用控件 选项分组 代码 操作步骤： （1）在 A1 至 F11 单元格区域中，输入相应的字段信息，并设置单元格的格式，如图11-17 所示。 提 示如设置标头文字为“加粗”14 号字体，正文标题颜色为“橙色”，字号 提 示 如设置标头文字为“加粗”14 号字 体，正文标题颜色为“橙色”，字号为 9 号字体，合并正文中的标题行。 单击绘制中绘制该控件，如图 11-18 单击 绘制 选择【开发工具】选项卡，单击【控件】组中的【插入】下拉按钮，在【表单控件】栏中， 选择“选项按钮（表单控件）”。然后，在工作表 图 11-18 绘制控件 绘制提 示在单元格 A5 至 A7，D5 绘制 提 示 在单元格 A5 至 A7，D5 至 D7 中添 加【选项按钮】表单控件，并指定 【选项按钮】控件上的文字。 图 11-19 绘制“选项按钮”控件 在工作表中按下 Ctrl 键，并逐一单击标题一中的“选项按钮”控件，选择后拖动选择的控件至标题二下单元格中，并释放Ctrl 键，如图 11-20 所示。 按 Ctrl 后选择拖动 按 Ctrl 后选择 拖动 提 示按下 Ctrl 键，并拖动选择的控件时，并不会移动当前选择的控件，而是将选择的复制一份到拖动点上绘制选择分别在标题一和标题二中绘制“分组框（ 表单控件）”，并将“分组框（表单控件） 提 示 按下 Ctrl 键，并拖动选择的控件时， 并不会移动当前选择的控件，而是将选择的复制一份到拖动点上 绘制 选择 图 11-21 绘制“分组框”控件 将【分组框】控件添加到工作表中，提 示并将属于一组的控件圈到控件中（6 将【分组框】控件添加到工作表中， 提 示 并将属于一组的控件圈到控件中 （6）在 A12 至 F21 单元格区域中，输入相应的字 段信息，并设置单元格的格式，如图 11-22 所示。 （7）分别在标题三、四、五、六、和七下，添加相应的控件并命名，然后在分别为其添加“组合框”控件，对标题进行分组，如图11-23 所示。 图 11-23 添加控件 图 11-24 设置格式 （8）在 A22 至 F27 单元格区域中，输入相应的字段信息，并设置单元格的格式，如图11-24 所示 提 示 提 示 标题四和标题七中的控件为“复 选框”控件，该控件可以选择多项。 输入执行将工作表中，黑色行底的单元格进提 示行合并。在单元格的名称框中输入“A28：A1048567”，并按回车键，在【开始】选项卡中，单击【单元格】组中的【格式】下拉按 钮，执行【隐藏和取消隐藏】｜【隐藏行】命令 ，如图 输入 执行 将工作表中，黑色行底的单元格进 提 示 行合并。 图 11-25 隐藏行 在单元格的名称框中再输入“G1：XFD1”按回车后，选择 F 列以后的所有列，并将其隐藏。 Sub 重填()Dim Sub 重填() Dim option_Shape As Shape On Error Resume Next ActiveSheet.Protect UserInterfaceOnly:=True 遍历工作表中的控件 For Each option_Shape In ActiveSheet.Shapes option_Shape.Select With Selection .Value = xlOff 将控件的值设置为 Flase .LinkedCell = End With Next option_Shape Range(B23:C23).ClearContents Range(E23:F23).ClearContents Range(B24:E27).ClearContents End Sub 提 示右击“按钮”控件，执行【指定宏】命令，在【指定宏】对话框中，为其指定宏 提 示 右击“按钮”控件，执行【指定 宏】命令，在【指定宏】对话框中，为其指定宏 下拉列表中，选择【主题颜色】为“白色”。 执行选择可编辑的单元格区域，如单元格“B23：C23”，在【审阅】选项卡中，单击【更改】组中的【允许用户编辑区域】按钮，打开【允许用户编辑区域】对话框，如图11-26 所示。 执行 图 11-26 【允许用户编辑区域】对话框 执行执行在对话框中，单击【新建】按钮，打开【新区域】对话框，在【标题】文本框中输入区域的名称，然后单击【确定】按钮。如图11-27 执行 执行 图 11-27 添加区域 在【允许用户编辑区域】