1、EXCEL应用与提高 大家好!想知道我们怎么制作的么?让我们开始吧!当公司要开发或者销售一个新产品时,总会先做好市场调查,以便生产的产品能得到更好的销售量,在进行市场调查的时候我们就可以借助excel,方便获得数据信息,为产品的开发和市场销售提供参考项!请耐心看完哦!右击菜单栏空白右击菜单栏空白处选择窗体处选择窗体选择这个选项后会多这样的选择这个选项后会多这样的菜单栏哦!菜单栏哦!选择分组框,在表格空白处拖出一个分组框选择选项按钮,在分组框中拖出选项按钮拖出一个选项按钮后按住ctrl再按住鼠标左键拖动可以拖出若干个选择按钮右击选择按钮,选择编辑文字输入选项内容通过这种方法可以添加多个分组框和选
2、择按钮,为不同的题目和相应选项添加各自的分组框菜单栏中“插入”“图片”“艺术字”由于单元格对于正数自动省去“+”所以将这些单元格改成文本格式,然后可以根据喜好改变填充颜色别忘了将这个工作表更名为别忘了将这个工作表更名为“调查问卷调查问卷”哦!哦!新建工作表按问卷中的题目输入相应内容,并更名为“调查结果”切换到“调查问卷中”右击选项按钮,选择“设置控件格式”设置单元格链接单击“确定”做好“提交”按钮后如果直接单击该按钮,屏幕上会弹出如下图所示的提示对话框 要使提交按钮能具有“提交”功能,右击“提交”按钮,在弹出的快捷菜单中单击“指定宏”命令单击代码看不清呢!别急!下面一页有具体代码哦!Dim i
3、 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(调查结果).SelectRange(A3).Selecti=ActiveCell.Current
4、Region.Rows.Count 获取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 Range(a1).SelectEnd Wi
5、thEnd Sub输代码的时候要输代码的时候要仔细哦!仔细哦!若个人资料没有填满,则无法提交。若填满则调查结果自动接收调查问卷所填的内容!用同样的方法新建“清除调查结果”按钮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.Activate Range(a1:F1).Select End WithEnd Sub单击这个按钮可以将
6、“调查结果”离得内容清空哦!新建工作表更名为“资料库”添加如下图内容:假定统计46个人的调查结果,选择“调查结果”的A4:P50的区域复制,在“资料库”工作表中选定A3单元格右击选择“选择性粘贴”,选择“粘贴链接”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以上,)C3=IF(调查结果!C4=1,2000以下,IF(调查结果!C4=2,20005000,IF(调查结果!C4=3,5000以上,
7、)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,幸运抽奖,)N3=IF(调查结果!N4=1,显示器,IF(调查结果!N4=2,主板,IF(调查结果!N4=3,CPU,)注:N3到P3的公
8、式也可用拖动的方式获得“资料库资料库”中的具体公式:中的具体公式:注:A到P列以下的具体公式可用填充句柄的方式填充新建工作表并更名为“统计”如下图: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(调查结果!B:B,5)C10=COUNTIF(调查结果!C:C,1)C11=COUNTIF(调查结果!C:C,2)C12=COUNTIF(调查结果!C
9、: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)这张表可以从“调查结果”表格中获得数据统计人数哦!新建工作表更名为“产品属性对价格的影响”选择“资料库”中:N3:P50的单元格,到“产品属性”中点击A3右击选择“选择性粘贴”
10、,选择“粘贴链接”在“产品属性对价格的影响”的工作表中建立如下表格在表格中输入如下表格中的公式根据上表创建图表,用图表的形式清晰地反映统计情况!根据上表创建图表,用图表的形式清晰地反映统计情况!获得数据后可显示成如图样式:获得数据后可显示成如图样式:新建工作表并更名为新建工作表并更名为“价格变动对销售量的影响价格变动对销售量的影响”并建立如并建立如下表格:下表格:在表格中输入相在表格中输入相应的公式应的公式根据表格中获得数据制成图表!根据表格中获得数据制成图表!当表格接受数据时就能呈现如图所示结果:当表格接受数据时就能呈现如图所示结果:到此家用电脑调查表就做好了哦!到此家用电脑调查表就做好了哦!