家用电脑调查问卷EXCEL制作PPT课件

1、 当公司要开发或者销售一个新产品时，总会先做好市场调查，以便生产的产品能得到更好的销售量，在进行市场调查的时候我们就可以借助excel，方便获得数据信息，为产品的开发和市场销售提供参考项！请耐心看完哦！第1页/共21页右击菜单栏空白右击菜单栏空白处选择窗体处选择窗体选择这个选项后会多这样的选择这个选项后会多这样的菜单栏哦！菜单栏哦！第2页/共21页选择分组框，在表格空白处拖出一个分组框选择选项按钮，在分组框中拖出选项按钮拖出一个选项按钮后按住ctrl再按住鼠标左键拖动可以拖出若干个选择按钮右击选择按钮，选择编辑文字输入选项内容通过这种方法可以添加多个分组框和选择按钮，为不同的题目和相应选项添加

2、各自的分组框第3页/共21页菜单栏中“插入”“图片”“艺术字”由于单元格对于正数自动省去“+”所以将这些单元格改成文本格式，然后可以根据喜好改变填充颜色别忘了将这个工作表更名为别忘了将这个工作表更名为“调查问卷调查问卷”哦！哦！第4页/共21页新建工作表按问卷中的题目输入相应内容，并更名为“调查结果”切换到“调查问卷中”右击选项按钮，选择“设置控件格式”设置单元格链接第5页/共21页单击“确定”第6页/共21页 做好“提交”按钮后如果直接单击该按钮，屏幕上会弹出如下图所示的提示对话框 要使提交按钮能具有“提交”功能，右击“提交”按钮，在弹出的快捷菜单中单击“指定宏”命令单击第7页/共21页代码

3、看不清呢！别急！下面一页有具体代码哦！第8页/共21页Dim i As IntegerDim j As IntegerDim temprag As RangeSub 按钮85_单击()If (Trim(Sheets(调查结果).Range(a3).Value) = Or (Trim(Sheets(调查结果).Range(b3).Value) = Or (Trim(Sheets(调查结果).Range(c3).Value) = Then MsgBox “个人资料输入不全，请检查！”, vbOKOnly 检验性别年龄和收入是否完整，否则拒绝提交 Exit SubEnd IfSheets(调查结果)

4、.SelectRange(A3).Select获取A3单元格连续数据区域的行数For j = 1 To 17 Cells(3, j).Select Selection.Copy Destination:=Cells(i + 1, j) Cells(3, j) = Next jSheets(调查问卷).SelectEnd SubPrivate Sub Workbook_Open() 此段代码在完成第一次调查后清除此次自动接受的调查结果，以便下一次操作With Sheets(调查结果) Range(a3:q50).Select Range(a3:q50) = Sheet1.Activate Ran

5、ge(a1).SelectEnd WithEnd Sub输代码的时候要输代码的时候要仔细哦！仔细哦！第9页/共21页 若个人资料没有填满，则无法提交。若填满则调查结果自动接收调查问卷所填的内容！第10页/共21页用同样的方法新建“清除调查结果”按钮Dim j As IntegerDim temprag As RangeSub 按钮87_单击() Sheets(调查结果).Select For j = 1 To 17 Cells(3, j) = Next j With Sheets(调查结果) Range(a3:q50).Select Range(a3:q50) = Sheet1.Activat

6、e Range(a1:F1).Select End WithEnd Sub单击这个按钮可以将“调查结果”离得内容清空哦！第11页/共21页新建工作表更名为“资料库”添加如下图内容： 假定统计46个人的调查结果，选择“调查结果”的A4：P50的区域复制 ，在“资料库”工作表中选定A3单元格右击选择“选择性粘贴”，选择“粘贴链接”第12页/共21页A3=IF(调查结果!A4=1,男,IF(调查结果!A4=2,女,)B3=IF(调查结果!B4=1,20以下,IF(调查结果!B4=2,2035,IF(调查结果!B4=3,3540,IF(调查结果!B4=4,4055,IF(调查结果!B4=5,55以上,

7、)C3=IF(调查结果!C4=1,2000以下,IF(调查结果!C4=2,20005000,IF(调查结果!C4=3,5000以上,)D3=IF(调查结果!D4=1,低档,IF(调查结果!D4=2,中档,IF(调查结果!D4=3,高档,)E3=IF(调查结果!E4=1,5000以下,IF(调查结果!E4=2,50008000,IF(调查结果!E4=3,8000以上,)F3=IF(调查结果!F4=1,“是”,IF(调查结果!F4=2,“否”,“”)注：F3到L3可用拖动的方式获得公式M3=IF(调查结果!M4=1,赠送物件,IF(调查结果!M4=2,免费上门维护,IF(调查结果!M4=3,幸运抽

8、奖,)N3=IF(调查结果!N4=1,显示器,IF(调查结果!N4=2,主板,IF(调查结果!N4=3,CPU,)注：N3到P3的公式也可用拖动的方式获得“资料库资料库”中的具体公式：中的具体公式：注：A到P列以下的具体公式可用填充句柄的方式填充第13页/共21页新建工作表并更名为“统计”如下图：C1=C3+C4C3=COUNTIF(调查结果!A:A,1)C4=COUNTIF(调查结果!A:A,2)C5=COUNTIF(调查结果!B:B,1)C6=COUNTIF(调查结果!B:B,2)C7=COUNTIF(调查结果!B:B,3)C8=COUNTIF(调查结果!B:B,4)C9=COUNTIF(

9、调查结果!B:B,5)C10=COUNTIF(调查结果!C:C,1)C11=COUNTIF(调查结果!C:C,2)C12=COUNTIF(调查结果!C:C,3)C13=COUNTIF(调查结果!D:D,1)C14=COUNTIF(调查结果!D:D,2)C15=COUNTIF(调查结果!D:D,3)C16=COUNTIF(调查结果!E:E,1)C17=COUNTIF(调查结果!E:E,2)C18=COUNTIF(调查结果!E:E,3)C19=COUNTIF(调查结果!M:M,1)C20=COUNTIF(调查结果!M:M,2)C21=COUNTIF(调查结果!M:M,3)这张表可以从“调查结果”表格中获得数据统计人数哦！第14页/共21页新建工作表更名为“产品属性对价格的影响”选择“资料库”中:N3：P50的单元格，到“产品属性”中点击A3右击选择“选择性粘贴”，选择“粘贴链接”第15页/共21页在“产品属性对价格的影响”的工作表中建立如下表格在表格中输入如下表格中的公式根据上表创建图表，用图表的形式清晰地反映统计情况！根据上表创建图表，用图表的形式清晰地反映统计情况！第16页/共21页获得数据后可显示成如图样式：获得数据后可显示成如图样式：第17页/共21页新建工作表并更名为新建工作表并更名为“价格变动对销售量的影响价格变动对销售量的影响”并建立如并建立如下表格：下表格：在表格中