家用电脑调查问卷(EXCEL制作)课件.ppt

EXCEL应用与提高; 当公司要开发或者销售一个新产品时，总会先做好市场调查，以便生产的产品能得到更好的销售量，在进行市场调查的时候我们就可以借助excel，方便获得数据信息，为产品的开发和市场销售提供参考项！！;右击菜单栏空白处选择窗体;选择分组框，在表格空白处拖出一个分组框;菜单栏中“插入”—“图片”—“艺术字”;新建工作表按问卷中的题目输入相应内容，并更名为“调查结果”;单击“确定”; 做好“提交”按钮后如果直接单击该按钮，屏幕上会弹出如下图所示的提示对话框;代码看不清呢！！别急！下面一页有具体代码哦！！;Dim i As Integer Dim j As Integer Dim temprag As Range Sub 按钮85_单击() If (Trim(Sheets(调查结果).Range(a3).Value)) = Or (Trim(Sheets(调查结果).Range(b3).Value)) = Or (Trim(Sheets(调查结果).Range(c3).Value)) = Then MsgBox “个人资料输入不全，请检查！”, vbOKOnly ‘检验性别年龄和收入是否完整，否则拒绝提交 Exit Sub End If Sheets(调查结果).Select Range(A3).Select i = ActiveCell.CurrentRegion.Rows.Count 获取A3单元格连续数据区域的行数 For j = 1 To 17 Cells(3, j).Select Selection.Copy Destination:=Cells(i + 1, j) Cells(3, j) = Next j Sheets(调查问卷).Select End Sub Private Sub Workbook_Open() ‘此段代码在完成第一次调查后清除此次自动接受的调查结果，以便下一次操作 With Sheets(调查结果) Range(a3:q50).Select Range(a3:q50) = Sheet1.Activate Range(a1).Select End With End Sub ; 若个人资料没有填满，则无法提交。若填满则调查结果自动接收调查问卷所填的内容！;用同样的方法新建“清除调查结果”按钮;新建工作表更名为“资料库”添加如下图内容：;A3=IF(调查结果!A4=1,男,IF(调查结果!A4=2,女,)) B3=IF(调查结果!B4=1,20以下,IF(调查结果!B4=2,20~35,IF(调查结果!B4=3,35~40,IF(调查结果!B4=4,40~55,IF(调查结果!B4=5,55以上,))))) C3=IF(调查结果!C4=1,2000以下,IF(调查结果!C4=2,2000~5000,IF(调查结果!C4=3,5000以上,))) D3=IF(调查结果!D4=1,低档,IF(调查结果!D4=2,中档,IF(调查结果!D4=3,高档,))) E3=IF(调查结果!E4=1,5000以下,IF(调查结果!E4=2,5000~8000,IF(调查结果!E4=3,8000以上,))) F3=IF(调查结果!F4=1,“是”,IF(调查结果!F4=2,“否”,“”))注：F3到L3可用拖动的方式获得公式 M3=IF(调查结果!M4=1,赠送物件,IF(调查结果!M4=2,免费上门维护,IF(调查结果!M4=3,幸运抽奖,))) N3=IF(调查结果!N4=1,显示器,IF(调查结果!N4=2,主板,IF(调查结果!N4=3,CPU,))) 注：N3到P3的公式也可用拖动的方式获得;新建工作表并更名为“统计”如下图：;新建工作表更名为“产品属性对价格的影响”;在“产品属性对价格的影响”的工作表中建立如下表格;获得数据后可显示成如图样式：;新建工作表并更名为“价格变动对销售量的影响”并建立如下表格：;当表格接受数据时就能呈现如图所示结果：;谢谢观看