家用电脑调查问卷EXCEL制作.pptx
《家用电脑调查问卷EXCEL制作.pptx》由会员分享,可在线阅读,更多相关《家用电脑调查问卷EXCEL制作.pptx(22页珍藏版)》请在淘文阁 - 分享文档赚钱的网站上搜索。
1、会计学1家用电脑调查问卷家用电脑调查问卷EXCEL制作制作 当公司要开发或者销售一个新产品时,总会先做好市场调查,以便生产的产品能得到更好的销售量,在进行市场调查的时候我们就可以借助excel,方便获得数据信息,为产品的开发和市场销售提供参考项!请耐心看完哦!第1页/共21页右击菜单栏空白处选择窗体右击菜单栏空白处选择窗体选择这个选项后会多这样的菜单栏哦!选择这个选项后会多这样的菜单栏哦!第2页/共21页选择分组框,在表格空白处拖出一个分组框选择选项按钮,在分组框中拖出选项按钮拖出一个选项按钮后按住ctrl再按住鼠标左键拖动可以拖出若干个选择按钮右击选择按钮,选择编辑文字输入选项内容通过这种方
2、法可以添加多个分组框和选择按钮,为不同的题目和相应选项添加各自的分组框第3页/共21页菜单栏中“插入”“图片”“艺术字”由于单元格对于正数自动省去“+”所以将这些单元格改成文本格式,然后可以根据喜好改变填充颜色别忘了将这个工作表更名为别忘了将这个工作表更名为“调查问卷调查问卷”哦!哦!第4页/共21页新建工作表按问卷中的题目输入相应内容,并更名为“调查结果”切换到“调查问卷中”右击选项按钮,选择“设置控件格式”设置单元格链接第5页/共21页单击“确定”第6页/共21页 做好“提交”按钮后如果直接单击该按钮,屏幕上会弹出如下图所示的提示对话框 要使提交按钮能具有“提交”功能,右击“提交”按钮,在
3、弹出的快捷菜单中单击“指定宏”命令单击第7页/共21页代码看不清呢!别急!下面一页有具体代码哦!第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 Sub
4、End IfSheets(调查结果).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
5、 Range(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.Activate Ran
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 家用电脑 调查 问卷 EXCEL 制作
限制150内