excel怎么做问卷统计怎么用EXCEL做问卷的数据统计

[excel编程怎么做]Excel编程是个简单而复杂的课题，具体介绍如下： 1.说简单，是因为录制宏就能实现重复简单的功能。通过录制宏功能，能有效解决很多Excel表格中繁琐而重复的操作。 2.说复杂，是因为要...+阅读

excel怎么做问卷统计怎么用EXCEL做问卷的数据统计

按照附图所示格式填写原始数据。

在J6单元格内填写公式：

=SUMPRODUCT(C$3:H$3,(C6:H6=C$2:H$2)*1)+I6

选中J6单元格，下拉复制到最后一行。

在主表的后面的空白单元格，例如C18单元格，输入公式：

=COUNTIF(C6:C16,C2)/COUNTA(C6:C16)

选中C18单元格，右拉复制，直到第5题最后一列。

在这一行的第6题所对应的单元格，输入公式：

=SUM(I6:I16)/COUNTA(I6:I16)/I3

公式中的C16、I16等，应写入主表的最后一行的行号。

第五题是多选，可以根据标准答案的数量适当调整列数。相应地，更改公式中的H列，为第五题的最后一列。

对于占比计算结果，将格式设置为百分比。

怎么用execel统计问卷调查的数据

附两个重要的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

公司员工问卷调查如何做结果统计

请根据下面的提问给出答案： 1.你认为公司在管理上存在哪些问题？ 2.您认为新任总经理在能力上有哪些不足的地方？你希望新任总经理怎么做？ 3.你认为还有哪些同事在能力或品德上有问题？公司应该如何对他们进行处理？ 4.您认为公司应该在工作环境上做出哪些改善？ 5.你的工资够用吗？如果不够，您希望达到什么标准？员工调查问卷（B）请在你选择的答案后面打√： 1.与领导齐心协力的员工才是好员工，对吗？对不对 2.有时候你并不理解领导的良苦用心，对吗？对不对 3.忠诚的员工总是对公司的未来充满信心，是吗？是不是 4.在过去的一年里，你是一个称职的员工吗？是不是 5.为了公司的前途，你愿意牺牲个人利益吗？是不是