制作调查问卷的思路
在Excel中，我们先利用“窗体”工具栏上的“分组框、选项按钮、复选框、组合框、按钮”等控件，制作成如图1所示的调查表，并将每一位参与调查居民的选择结果保存在表格下方对应的单元格中。然后通过“宏按钮”将选择结果依次复制到“数据表”工作表中保存起来。最后，利用函数和公式对数据进行统计处理，并将统计结果保存在“数据统计”工作表
中，随时查看调查的统计结果。
实战制作调查表
在用Excel制作调查问卷前要进行一些准备工作，以方便后面的制作过程:
第一步:启动Excel2003(其他版本操作相似)，新建一工作簿文档，取名保存(如“工程调查.xls”)。
第二步:依次双击工作表标签(sheet1、sheet2、sheet3)，使其成反白状态，再输入字符，将其重命名为“调查表、数据表、数据统计”(见图2)。
第三步:将A1至L1单元格合并后，输入调查表标题(如“某某市住房状况调查表”)；将A2至L2单元格合并后，输入调查说明；并设置好字体、字号等。
第四步:执行“视图→工具栏→窗体”命令，展开“窗体”工具栏(见图2)。
好了，现在我们可以添加用于调查的各种控件了。
1.选项按钮的添加:所谓“选项按钮”，就是我们通常所说的“单选”按钮。我们以“年龄”调查项为例，来看看具体的添加过程:
第一步:点击“窗体”工具栏上的“分组框”按钮，然后在工作表中拖拉出一个分组框，并将分组框名(如“分组框2”)修改为“年龄”(见图3)。
第二步:点击“窗体”工具栏上的“选项按钮”按钮，然后在上述“年龄”分组框中拖拉出一个按钮来，并将按钮名(如“选项按钮4”)修改为相应的调查项字符(如“20岁以下”，见图3)
第三步:重复上述操作，再添加若干“选项按钮”。小提示
选中第1个“选项按钮”，在按住Ctrl键的同时，拖动一下鼠标，复制一个选项按钮，修改一下其中的字符即可快速制作出另一个“选项按钮”来。第四步:双击其中任意一个“选项按钮”，打开“设置控件格式”对话框(见图4)，
切换到“控制”标签下，在“单元格链接”右侧的方框中输入“$C$50”，确定返回。小提示
此步操作的目的是将“年龄”调查项的选择结果保存在C50单元格中(选择第1个、第2个……“选项按钮”，该单元格分别显示出1、2……)。第五步:调整好“分组框”、“选项按钮”的大小和位置。
2.复选框的添加:所谓“复选框”，就是允许一次性选择多个选项。我们以“存在哪些质量问题”调查项为例，来看看具体的添加过程:
第一步:制作一个“存在哪些质量问题”分组框。
第二步:点击“窗体”工具栏上的“复选框”按钮，然后在上述“分组框”中拖拉出一个“复选框”来，并将“复选框”名(如“复选框74”)修改为相应的调查项字符(如“屋面渗水”，见图5)。
第三步:双击刚才添加的第1个“复选框”按钮，打开“设置控件格式”对话框(见图4)，切换到“控制”标签下，在“单元格链接”右侧的方框中输入“$K$50”，确定返回。第四步:重复上述2、3两步操作，根据调查内容，添加其他复选框。小提示
由于是“复选框”，所以每一个“复选框”的“单元格链接”地址是不同的，需要逐一设置。第五步:调整好“分组框”、“复选框”的大小和位置。
3.组合框的添加:所谓“组合框”，就是我们通常所说的“下拉框”。我们以“学历”调查项为例，来看看具体的添加过程:
第一步:在L4至L11单元格区域(不一定非得是这个区域哟)中，输入各学历分类(见图6)。第二步:制作一个“学历”分组框。小提示
其实，这里只有一个“组合框”，完全不需要添加一个“分组框”。我们之所以添加一个分组框，是为了保持调查表格式的统一。第三步:点击“窗体”工具栏上的“组合框”按钮，然后在上述“分组框”中拖拉出一个“组合框”来。
第四步:双击上述“组合框”，打开“对象格式”对话框(见图7)，在“数据源区域”右侧
的方框中输入“$L$4:$L$11”，在“单元格链接”右侧的方框中输入“$D$50”，确定返回。第五步:调整好“分组框”、“组合框”的大小和位置(见图8)。
仿照上面的操作，完成其他调查项的制作过程。
保存调查数据
我们通过一个宏，将居民选择的结果(显示在“调查表”工作表第50行相应的单元格中)依次复制保存到“数据表”工作表中，并通过一个按钮来运行该宏。
第一步:切换到“数据表”工作表下，仿照图9的样式制作一张用来保存数据的空白表格。
第二步:在D1单元格中输入公式:=COUNTA(A:A)-2，用于统计参加调查的人数。
第三步:按“Alt+F11”组合键，进入“Visual Basic编辑器”窗口(见图10)。
第四步:在左侧“工程资源管理器”窗口中，选中“VBAProject(工程调查.xls)”选项，然后执行“插入→模块”命令，插入一个新模块。
第五步:将下述代码输入到右侧编辑区域中(见图10): Sub 保存()
Dim rs As Integer
Sheets("调查表").Select
Rows(50).Select
Selection.Copy
Sheets("数据表").Select
rs = Cells(1, 4)
Rows(rs + 3).Select
ActiveSheet.Paste
