excel如何制作调查问卷

竭诚为您提供优质文档/双击可除excel如何制作调查问卷

篇一：用excel做调查问卷

用excel做调查问卷

(20xx-05-1421:23:25)

原来写毕业论文一直想做个调查问卷的，但是由于特殊的原因没有做成，不过我想以后还是会用到的。帮同学填调查问卷的时候，觉得用excel做调查问卷好过简单的word

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

样调查问卷，《英语培训调查问卷》、《市场调查问卷》、《教师调查问卷》和《组织人员配置情况调查表》。他人做的调查问卷更是精美，很是值得学习。

附两个重要的Vba代码：

代码一、

publicsub自动记录调查数据()

dimtempasinteger定义一个用来保存工作表中单元格数据行数的整型变量

dimcountasinteger定义一个用来保存调查结果记录行数的整型变量

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,"确定"以对话框的形式输出信息

endsub

代码二、

publicsub统计调查数据()

dimi,j,tasinteger定义用于循环的整型变量

dimcountasinteger定义用于保存记录数的整型变量

dimtempasVariant定义用于读取单元格内容的变体型变量

count=sheets("sheet3").[a1].currentRegion.Rows.coun t将保存调查数据工作表的记录数赋值给count

sheets("sheet4").select

ForeachtempinRange("b4:m9")

temp.Value=""将单元格区域“b4：m9”的值置空nexttemp

sheets("sheet3").select

Fori=4tocount

Forj=1to12

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

selectcasecells(i,j)对工作表sheet3中的单元格内容执行selectcase语句

case1

worksheets("sheet4").cells(4,t)=worksheets("sheet4" ).cells(4,t)+1

如果sheet3中单元格值为1，则sheet4中对应的单元格的统计数值加1

case2

worksheets("sheet4").cells(5,t)=worksheets("sheet4" ).cells(5,t)+1

如果sheet3中单元格值为2，则sheet4中对应的单元格的统计数值加1

case3

worksheets("sheet4").cells(6,t)=worksheets("sheet4" ).cells(6,t)+1

case4

worksheets("sheet4").cells(7,t)=worksheets("sheet4" ).cells(7,t)+1

case5

worksheets("sheet4").cells(8,t)=worksheets("sheet4" ).cells(8,t)+1

case6

worksheets("sheet4").cells(9,t)=worksheets("sheet4" ).cells(9,t)+1

endselect

nextj

nexti

sheets("sheet4").select

dimchtchartaschart定义一个图表类型变量chtchartsetchtchart=charts.add将添加的图表赋值给chtchartwithchtchart使用with语句

.locationwhere:=xllocationasnewsheet指定添加的此图表的位置

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