Excel制作调查问卷

Excel制作调查问卷

一、准备工作

打开一个excel工作表，准备三个空表，将空表依次命名为：调查表、数据表、数据统计。

单击右上角的微软office标志，然后点击excel选项（如上图1所示），弹出对话框。先选择左边菜单栏中的第一项“常用”选项，勾选“在功能区显示‘开发工具’选项卡。如上图2。

接下来再选择“常用”选项下的“信任中心设置”选项，点击对话框中的“信任中心设置”，在“宏设置”选项内选择“启用所有宏”，当以上两项设置完后单击“确定”。可以看到在表格最上方的菜单栏中出现了“开发工具”选项。如下图。在“插入”选项里有你所需要

的制作问卷选项的所有控件。

最后将文字版的问卷内容放在调查表表格内，分别在问卷的下方和数据表（仿照下图）制作一张空白表格保存数据。

提示：若是多选题有几个选项就要留几个空格，如下图中的“获得哪些信息”。

二、制作问卷（以网络市场调查问卷为例）

1、单选题

制作单选题选项的控件可以用表单控件下的选项按钮、列表框和组合框。

提示：如果不知道是那些的话可以将鼠标放在每个控件上等一会，系统会自动给出名称。

1）选项按钮（以性别为例）

第一步：从点击表单控件中的“选项按钮”，在性别问题下拖拽出一个选项按钮。

第二步：将光标放在其中一个按钮上，单击鼠标右键，在下拉菜单中选择“编辑文字”对选项按钮进行命名。

第三步：单击鼠标右键，在下拉菜单中选择“设置控件格式”，弹出“设置控件格式”窗口（如上图），在单元格链接选择：调查表!$A$91。单击确定。

第四步：重复以上操作，添加多个按钮。单元格链接同样选择A91。

第五步：调整选项按钮位置。提示：最好利用键盘方向键来调整，只要用鼠标点击选项按钮即可（对复选框同样适用）。

2）列表框（以职业为例）

第一步：在某一个区域中输入各个职业名称。比如L4至L11单元格

第二步：点击“插入”下的列表框选项，在相应问题下拖拽出一个列表框，将鼠标放在列表框上单击鼠标右键弹出“设置控件格式”窗口。（如上图）数据源区域中选择在第一步中输入职业名称的单元格区域。在单元格链接中选中在准备工作时制作的空表中“职业”下对应的单元格，之后的单元格链接都这样做。如下图：

3）组合框

组合框的做法和列表框类似，在此省略介绍。

2、多选题

1）不定项选择题

从窗体控件中选择复选框，在相应题目下拖拽出相应的复选框，用制作“选项按钮”的方式编辑文字和选择单元格链接。

注意：复选框的单元格链接是每个复选框都有一个对应的单元格，及选项按钮等制作单选题选项的控件不同。

2）限制选项多选题。

对于限制选项的多选题我们可以用两个或三个组合框去实现。如上图

3、关于时间等选项的设置

对于问卷调查中年龄或参加工作多少年等时间性的问题我们可以用填空、滚动条和数值调节钮来实现。

1）填空（设置单元格内最大值和最小值）

选定一个单元格，单击最上方菜单栏的“数据—数据有效性”，

弹出数据有效性窗口，在有效性条件：“允许”一栏的下拉列表框里选择整数，就会出现最大值和最小值，在这两项的空白处填写你想设置的最大值和最小值。如上图。

注意：为了以后统计数据方便，最好不要用这种方式。

2）滚动条

在窗体控件中选择滚动条控件，将其拖拽到相应问题边上，单击右键设置控件格式，依次输入最大值和最小值，单元格链接一定要选择在准备工作时制作位于调查表最底下“年龄”下的对应单元格。

如果想在问题旁边看到结果，可以用单元格相等的方式：L1=A13。3）数据调节钮

和滚动条的方式一模一样，在此省略。

三、数据保存

第一步：将表格切换到“数据表”，在准备工作时我们已经按照上图制作了一个空表。在参加调查人数对应的单元格中输入公式：

=COUNTA（A：A，）-3用于统计调查人数。

第二步：选择开发工具菜单下的“查看代码”或是用“Alt+F11”组合键进入“Visual Basic编辑器”窗口。选中调查表，单击鼠标右键在下拉菜单中选择“插入—模块”后，弹出空白对话框。在空白对话框中输入以下代码：

Public Sub 自动记录调查数据()

Dim Temp As Integer '

Dim count As Integer '

Temp = Sheets("数据表").[A1].CurrentRegion.Rows.count count = Temp - 3 '

Sheets("调查表").Select

Range("A91:R91").Select '（注：这一部分要按自己的实际情况进行修改，他表示在调查表下的用于统计数据的空表范围在A91：R91，如下图）

Selection.Copy '

Sheets("数据表").Activate '

Rows(Temp + 1).Select

ActiveSheet.Paste

Cells(Temp + 1, 13).Value = count + 1 '

Sheets("调查表").Select

Application.CutCopyMode = False '

MsgBox "记录已成功保存，谢谢！", vbOKOnly, "确定" ' End Sub

第三步：输入完之后关闭窗口。对于第一次保存宏的excel来说，要在文件存类型中选择“Excel启用宏的工作簿”。如下图

第四步：切换到“调查表”工作表中，点击“窗体”工具栏上的“命令”按钮，然后在工作表中拖拉出一个“命令”按钮来，此时系统自动弹出“指定宏”对话框(如上图)，选中上面的“自动记录调查数据”，确定返回。