资源简介

用EXCEL做调查问卷
用EXCEL做调查问卷好过简单的word文档的调查表，如果直接用电脑收集数据的话。EXCEL做调查问卷，后期的录入要简单很多，而且问卷的美观上也可以。于是一直在网上查了相关的资料，EXCEL做调查问卷，可以做到在共享下多人同时对其进行操作，所有人的结果都会分别保存，不会被覆盖，并会自动根据选择结果做出统计，并以饼形图方式将结果表现出来。这样也就用了简单的VBA和EXCEL的“窗体”工具栏上的“分组框、选项按钮、复选框、组合框、按钮”等控件，还是比较简单的。今天按照书上的例子做了个《洗发水的调查问卷》，在网上也收集了几套这样调查问卷，《英语培训调查问卷》、《市场调查问卷》、《教师调查问卷》和《组织人员配置情况调查表》。他人做的调查问卷更是精美，很是值得学习。


附两个重要的VBA代码：
代码一、
Public
Sub
自动记录调查数据()

Dim
Temp
As
Integer
'定义一个用来保存工作表中单元格数据行数的整型变量

Dim
count
As
Integer
'定义一个用来保存调查结果记录行数的整型变量

Temp
=
Sheets("Sheet3").[A1].CurrentRegion.Rows.count

'将用于保存调查数据的工作表Sheet3的记录行数赋给count

count
=
Temp
-
3
'工作表中有3行单元格保存字段名

Sheets("Sheet1").Select

Range("A32:L32").Select
'在选定的工作表Sheet1选择待保存数据的区域

Selection.Copy
'对选择的数据区域进行复制操作

Sheets("Sheet3").Activate
'激活保存调查数据的工作表Sheet3

Rows(Temp
+
1).Select
'选择工作表中最后一条记录的下一行单元格区域

ActiveSheet.Paste
'粘贴数据

Cells(Temp
+
1,
13).Value
=
count
+
1
'实现数据记录的自动编号功能

Sheets("Sheet1").Select

Application.CutCopyMode
=
False
'释放进行复制操作的单元格区域

MsgBox
"记录已成功保存，谢谢！",
vbOKOnly,
"确定"
'以对话框的形式输出信息
End
Sub

代码二、
Public
Sub
统计调查数据()
Dim
i,
j,
t
As
Integer
'定义用于循环的整型变量
Dim
count
As
Integer
'定义用于保存记录数的整型变量
Dim
Temp
As
Variant
'定义用于读取单元格内容的变体型变量

count
=
Sheets("Sheet3").[A1].CurrentRegion.Rows.count

'将保存调查数据工作表的记录数赋值给count

Sheets("Sheet4").Select

For
Each
Temp
In
Range("B4:M9")

Temp.Value
=
""
'将单元格区域“B4：M9”的值置空

Next
Temp

Sheets("Sheet3").Select

For
i
=
4
To
count

For
j
=
1
To
12

t
=
j
+
1
'Sheet3和Sheet4起始单元格之间有一个差值，即多了“选项数目”一列

Select
Case
Cells(i,
j)
'对工作表Sheet3中的单元格内容执行Select
Case语句

Case
1

Worksheets("Sheet4").Cells(4,
t)
=
Worksheets("Sheet4").Cells(4,
t)
+
1

'如果Sheet3中单元格值为1，则Sheet4中对应的单元格的统计数值加1

Case
2

Worksheets("Sheet4").Cells(5,
t)
=
Worksheets("Sheet4").Cells(5,
t)
+
1

'如果Sheet3中单元格值为2，则Sheet4中对应的单元格的统计数值加1

Case
3

Worksheets("Sheet4").Cells(6,
t)
=
Worksheets("Sheet4").Cells(6,
t)
+
1

Case
4

Worksheets("Sheet4").Cells(7,
t)
=
Worksheets("Sheet4").Cells(7,
t)
+
1

Case
5

Worksheets("Sheet4").Cells(8,
t)
=
Worksheets("Sheet4").Cells(8,
t)
+
1

Case
6

Worksheets("Sheet4").Cells(9,
t)
=
Worksheets("Sheet4").Cells(9,
t)
+
1

End
Select

Next
j

Next
i

Sheets("Sheet4").Select

Dim
chtChart
As
Chart
'定义一个图表类型变量chtChart

Set
chtChart
=
Charts.Add
'将添加的图表赋值给chtChart

With
chtChart
'使用With语句

.Location
where:=xlLocationAsNewSheet
'指定添加的此图表的位置

'.Name
=
"数据分析图"
'设置图表显示在新建的“数据分析图”工作表中

.ChartType
=
xlColumnClustered
'选择图表类型为“柱形图”

.SetSourceData
Source:=Sheets("Sheet4").Range("A3:M9"),
PlotBy:=xlRows
'选择数据来源

.HasTitle
=
True
'设置图表显示标题

.ChartTitle.Characters.Text
=
"市场调查数据分析"
'设置图表标题为“市场调查数据分析”

.Axes(xlCategory,
xlPrimary).HasTitle
=
True
'设置图表显示x轴坐标标题

.Axes(xlCategory,
xlPrimary).AxisTitle.Characters.Text
=
"调查内容"
'设置x轴坐标标题

.Axes(xlValue,
xlPrimary).HasTitle
=
True
'设置图表显示y轴坐标标题

.Axes(xlValue,
xlPrimary).AxisTitle.Characters.Text
=
"选项数目"
'设置y轴坐标标题

End
With
End
Sub

展开更多......

收起↑