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

文档介绍：EXCEL 应用与提高大家好! 想知道我们怎么制作的么? 让我们开始吧! 当公司要开发或者销售一个新产品时, 总会先做好市场调查,以便生产的产品能得到更好的销售量,在进行市场调查的时候我们就可以借助 excel ,方便获得数据信息,为产品的开发和市场销售提供参考项!! 请耐心看完哦! 右击菜单栏空白处选择窗体选择这个选项后会多这样的菜单栏哦!! 选择分组框,在表格空白处拖出一个分组框选择选项按钮,在分组框中拖出选项按钮拖出一个选项按钮后按住 ctrl 再按住鼠标左键拖动可以拖出若干个选择按钮右击选择按钮,选择编辑文字输入选项内容通过这种方法可以添加多个分组框和选择按钮,为不同的题目和相应选项添加各自的分组框菜单栏中“插入”—>“图片”—>“艺术字”由于单元格对于正数自动省去“+”所以将这些单元格改成文本格式, 然后可以根据喜好改变填充颜色别忘了将这个工作表更名为“调查问卷”哦!! 新建工作表按问卷中的题目输入相应内容, 并更名为“调查结果”切换到“调查问卷中”右击选项按钮,选择“设置控件格式”设置单元格链接单击“确定”做好“提交”按钮后如果直接单击该按钮,屏幕上会弹出如下图所示的提示对话框要使提交按钮能具有“提交”功能,右击“提交”按钮,在弹出的快捷菜单中单击“指定宏”命令单击代码看不清呢!!别急!下面一页有具体代码哦!! 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 = '获取 A3 单元格连续数据区域的行数 For j = 1 To 17 Cells(3, j).Select 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") = "" Range("a1").Select End With End Sub 输代码的时候要仔细哦!!