Excel制作调查问卷

【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《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 ' count = Temp - 3 ' Sheets("调查表").Select

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

Selection.Copy '

Sheets("数据表").Activate ' Rows(Temp + 1).Select ActiveSheet.Paste

优选文档

本文来源：https://www.wddqxz.cn/15c0646d8d9951e79b89680203d8ce2f0066659f.html