Excel VBA编程  典型实例——制作问卷调查表
建筑公司为了满足现代市场的需求，在开发新的楼盘之前，对消费者进行了一次调查，通过本次调查表让公司了解各种楼盘的需求比例，使公司不致于盲目的开发高价楼盘，而无法销售出去，使公司的财政陷入困难。本例将制做一份楼盘问卷调查表，使用户掌握表单控件的使用。

1.练习要点
● 使用控件
● 选项分组
● 代码
vba编程免费教程2．操作步骤：
（1）在A1至F11单元格区域中，输入相应的字段信息，并设置单元格的格式，如图11-17所示。
图11-17  设置格式
提 示
如设置标头文字为“加粗”14号字体，正文标题颜为“橙”，字号为9号字体，合并正文中的标题行。
（2）选择【开发工具】选项卡，单击【控件】组中的【插入】下拉按钮，在【表单控件】栏中，选择“选项按钮（表单控件）”。然后，在工作表中绘制该控件，如图11-18所示。
图11-18  绘制控件
提 示
在单元格A5至A7，D5至D7中添加【选项按钮】表单控件，并指定【选项按钮】控件上的文字。
（3）选择控件后，单击其中的标题文字并命名，然后分别为标题一的其他项添加控件并命名，如图11-19所示。
图11-19  绘制“选项按钮”控件
（4）在工作表中按下Ctrl键，并逐一单击标题一中的“选项按钮”控件，选择后拖动选择的控件至标题二下单元格中，并释放Ctrl键，如图11-20所示。
图11-20  添加【选项按钮】表单控件
提 示
按下Ctrl键，并拖动选择的控件时，并不会移动当前选择的控件，而是将选择的复制一份到拖动点上
（5）分别在标题一和标题二中绘制“分组框（表单控件）”，并将“分组框（表单控件）”的标题文字删除，如图11-21所示。
图11-21  绘制“分组框”控件
提 示
将【分组框】控件添加到工作表中，并将属于一组的控件圈到控件中
（6）在A12至F21单元格区域中，输入相应的字段信息，并设置单元格的格式，如图11-22所示。
图11-22  设置格式
（7）分别在标题三、四、五、六、和七下，添加相应的控件并命名，然后在分别为其添加“组合框”控件，对标题进行分组，如图11-23所示。
图11-23  添加控件
提  示
标题四和标题七中的控件为“复选框”控件，该控件可以选择多项。
（8）在A22至F27单元格区域中，输入相应的字段信息，并设置单元格的格式，如图11-24所示
图11-24  设置格式
提 示
将工作表中，黑行底的单元格进行合并。
（9）在单元格的名称框中输入“A28：A1048567”，并按回车键，在【开始】选项卡中，单击【单元格】组中的【格式】下拉按钮，执行【隐藏和取消隐藏】｜【隐藏行】命令，如图11-25所示。
图11-25  隐藏行
（10）在单元格的名称框中再输入“G1：XFD1”按回车后，选择F列以后的所有列，并将其隐藏。
（11）在标题头后添加一“按钮（表单控件）”，并命名标题为“重填”，然后为其指定宏。宏代码如下：
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
提  示
右击“按钮”控件，执行【指定宏】命令，在【指定宏】对话框中，为其指定宏
（12）在工作表中，单击行号与列号交叉处按钮，选择整个工作表。在【开始】选项卡中，单击【字体】组中的“填充按钮”处向下箭头的按钮，在下拉列表中，选择【主题颜】为“白”。
（13）选择可编辑的单元格区域，如单元格“B23：C23”，在【审阅】选项卡中，单击【更改】组中的【允许用户编辑区域】按钮，打开【允许用户编辑区域】对话框，如图11-26所示。
图11-26  【允许用户编辑区域】对话框
（14）在对话框中，单击【新建】按钮，打开【新区域】对话框，在【标题】文本框中输入区域的名称，然后单击【确定】按钮。如图11-27所示。
图11-27  添加区域
（15）在【允许用户编辑区域】对话框中，依次添加其它的可编辑区域后，单击【确定】按钮，完成添加。
（16）单击【更改】组中的【保护工作表】按钮，在弹出的【保护工作表】对话框中，单击【确定】按钮保护当前工作表，如图11-28所示。
图11-28  保护工作表

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。