资源描述：
《家用电脑调查问卷(EXCEL制作).ppt》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、EXCEL应用与提高家用电脑调查问卷展示大家好!想知道我们怎么制作的么？让我们开始吧！当公司要开发或者销售一个新产品时，总会先做好市场调查，以便生产的产品能得到更好的销售量，在进行市场调查的时候我们就可以借助excel，方便获得数据信息，为产品的开发和市场销售提供参考项！！请耐心看完哦！右击菜单栏空白处选择窗体选择这个选项后会多这样的菜单栏哦！！选择分组框，在表格空白处拖出一个分组框选择选项按钮，在分组框中拖出选项按钮拖出一个选项按钮后按住ctrl再按住鼠标左键拖动可以拖出若干个选择按钮右击选择按钮
2、，选择编辑文字输入选项内容通过这种方法可以添加多个分组框和选择按钮，为不同的题目和相应选项添加各自的分组框菜单栏中“插入”—>“图片”—>“艺术字”由于单元格对于正数自动省去“+”所以将这些单元格改成文本格式，然后可以根据喜好改变填充颜色别忘了将这个工作表更名为“调查问卷”哦！！新建工作表按问卷中的题目输入相应内容，并更名为“调查结果”切换到“调查问卷中”右击选项按钮，选择“设置控件格式”设置单元格链接单击“确定”做好“提交”按钮后如果直接单击该按钮，屏幕上会弹出如下图所示的提示对话框要使提交按钮能
3、具有“提交”功能，右击“提交”按钮，在弹出的快捷菜单中单击“指定宏”命令单击代码看不清呢！！别急！下面一页有具体代码哦！！DimiAsIntegerDimjAsIntegerDimtempragAsRangeSub按钮85_单击()If(Trim(Sheets("调查结果").Range("a3").Value))=""Or(Trim(Sheets("调查结果").Range("b3").Value))=""Or(Trim(Sheets("调查结果").Range("c3").Value))=""T
4、henMsgBox“个人资料输入不全，请检查！”,vbOKOnly‘检验性别年龄和收入是否完整，否则拒绝提交ExitSubEndIfSheets("调查结果").SelectRange("A3").Selecti=ActiveCell.CurrentRegion.Rows.Count'获取A3单元格连续数据区域的行数Forj=1To17Cells(3,j).SelectSelection.CopyDestination:=Cells(i+1,j)Cells(3,j)=""NextjSheets("调
5、查问卷").SelectEndSubPrivateSubWorkbook_Open()‘此段代码在完成第一次调查后清除此次自动接受的调查结果，以便下一次操作WithSheets("调查结果")Range("a3:q50").SelectRange("a3:q50")=""Sheet1.ActivateRange("a1").SelectEndWithEndSub具体代码输代码的时候要仔细哦！！若个人资料没有填满，则无法提交。若填满则调查结果自动接收调查问卷所填的内容！用同样的方法新建“清除调查结果”
6、按钮DimjAsIntegerDimtempragAsRangeSub按钮87_单击()Sheets("调查结果").SelectForj=1To17Cells(3,j)=""NextjWithSheets("调查结果")Range("a3:q50").SelectRange("a3:q50")=""Sheet1.ActivateRange("a1:F1").SelectEndWithEndSub单击这个按钮可以将“调查结果”离得内容清空哦！新建工作表更名为“资料库”添加如下图内容：假定统计46个人
7、的调查结果，选择“调查结果”的A4：P50的区域复制，在“资料库”工作表中选定A3单元格右击选择“选择性粘贴”，选择“粘贴链接”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(调查结果!C
8、4=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可用拖动的方
