制作调查问卷的思路

每年春节前后，建筑工程施工现场相对比较清闲，我们这些从事建设工程质量监督的人员，就抽空到居民家中，开展一年一度的全市住房状况调查工作。往常，我们差不多上先向居民发放纸质调查表，由居民填写后，再回收统计。如此做，既苦恼又不准确。今年，我们改用Excel制作的电子调查表，带上笔记本电脑上门调查。如此做，既方便了数据的统计处理，又给居民一种新奇感，进一步激发了他们的参与热情。

制作调查问卷的思路

在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

Cells(rs + 3, 1).Value = rs + 1

Sheets("调查表").Select

Application.CutCopyMode = False

Range("A1").Select

MsgBox "您的选择差不多保存，感谢您对我们工作的支持，祝您新春愉快！", vbOKOnly, "感谢您"

End Sub

第六步:输入完成后，关闭“Visual Basic编辑器”窗口。

第七步:切换到“调查表”工作表中，点击“窗体”工具栏上的“命令”按钮，然后在工作表中拖拉出一个“命令”按钮来，现在系统自动弹出“指定宏”对话框(见图11)，选中上面编辑的“保存”宏，确定返回。