家用电脑调查问卷(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 = 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 输代码的时候要仔细哦！！ 若个人资料没有填满，则无法提交。若填满则调查结果自动接收调查问卷所填的内容！ 用同样的方法新建“清除调查结果”按钮 Dim j As Integer Dim temprag As Range Sub 按钮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 With End Sub 单击这个按钮可以将“调查结果”离得内容清空哦！ 新建工作表更名为“资料库”添加如下图内容： 假定统计46个人的调查结果，选择“调查结果”的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(调查结果!C4=2,2000~5000,IF(调查结果!C4=3,5000以上,)))