文档介绍：Excel制作调查问卷
准备工作
5
话，、一
』？ h
打开一个excel工作表，准备三个空表，将空表依次命名为：调查表、数据表、数据统计。
且 Excwl 送攻 J} X 湛出 Excel (X)
5名在和滚动条的方式一模一样，在此省略。
三、数据保存
副岫Mia区常「困吒帝上闸时间蒂得期卜肓皂
第一步：将表格切换到“数据表”，在准备工作时我们已经按照上图制作了一个空
表。在参加调查人数对应的单元格中输入公式：=COUNTA （A: A,） -3用
丁统计调查人数。
$ Q Microioft E? ?l 对象：= L?唆表）
:? Sheets戮据表） i il助腿心僦据统计） S Ihi slttorkbook
! K岳楫由
第二步：选择开发工具菜单下的“查看代码”或是用“ Alt+F11 ”组合键进入 “VisuaBasic编辑器”窗口。选中调查表，单击鼠标右键在下拉菜单中选择“插入一模块”后，弹出空白对话框。在空白对话框中输入以下代码：
Public Sub自动记录调查数据（）
Dim Temp As Integer ' Dim count As Integer '
Temp = Sheets （数据表 "）.[A1]. count = Temp - 3 ' Sheets （"调查表"）.Select
Range （"A91:R91" ） .Select '（注：这一部分要按自己的实际情况进行修改,
他表示在调查表下的用丁统计数据的空表范围在A91: R91,如下图）
'
Sheets （嗷据表:.Activate '
Rows（Temp + 1）.Select

Cells（Temp + 1, 13）.Value = count + 1 '
SheetsC 调查表"）.Select
= False '
MsgBox '记录已成功保存，谢谢！ ", vbOKOnly,确定"‘ End Sub
I 39
1 90 14别年涛职业网酹上网颗学
'J1 11=15220 TEUE_ TRUE TRUE
| 92IDQ
第三步：输入完之后关闭窗口。对丁第一次保存宏的excel来说，要在文件
存类型中选择“ Excel启用宏的工作簿” o如下图
第四步：切换到“调查表”工作表中，点击“窗体”工具栏上的“命令”按钮, 然后在工作表中拖拉出一个“命令”按钮来，此时系统自动弹出“指定宏”对话框
（如上图），选中上面的“自动记录调查数据”，确定返回。
第五步：将“命令”按钮名（如“按钮75”）修改为“保存”字符。再调整好按钮的大小，定位在调查表的最下方。
第六步（可选）：如果为了美观可以将调查表下用丁保存数据的两行隐藏。
完成之后，每点击一次“保存按钮”就会在“数据表”生成一条数据。如下
叫■刘
网苗
上网辩
问
1
51
■ G
10
2
19
FALSE
1
51
bT
g :
19
FALSE
51
*
15
FA1S