单击这个按钮 可以将“调查 结果”离得内 容清空哦！
新建工作表更名为“资料库”添加如下图内容：
假定统计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以上",""))) 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可用拖动的方式获得公
选择这个选项后会多这样的 菜单栏哦！！ 菜单栏哦！！
选择分组框，在 表格空白处拖出 一个分组框
选择选项按钮， 在分组框中拖出 选项按钮
拖出一个选项按钮后 按住ctrl再按住鼠标 左键拖动可以拖出若 干个选择按钮
右击选择按钮，选 择编辑文字输入选 项内容
通过这种方法可以添加多个分 组框和选择按钮，为不同的题 目和相应选项添加各自的分组 框
EXCEL应用与提高
大家好! 想知 道我们怎么制作的么？ 让我们开始吧！
当公司要开发或者销售一个新产品时， 总会先做好市场调查，以便生产的产品 能得到更好的销售量，在进行市场调查 的时候我们就可以借助excel，方便获得 数据信息，为产品的开发和市场销售提 供参考项！！
请耐心看完 哦！
右击菜单栏空白 处选择窗体
若个人资料没有填满，则无法提交。若填满则调 查结果自动接收调查问卷所填的内容！
用同样的方法新建“清除调查结果”按钮
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
这张表可以从“调查结果”表 格中获得数据统计人数哦！！
C20=COUNTIF(调查结果!M:M,2) C21=COUNTIF(调查结果!M:M,3)
新建工作表更名为“产品属性对价格的影响”
选择“资料库”中:N3：P50的单元格， 到“产品属性”中点击A3右击选择“选 择性粘贴”，选择“粘贴链接”
在“产品属性对价格的影响”的工作表中建立如下表格
在表格中输入相 应的公式
根据表格中获得数据制成图表！！ 根据表格中获得数据制成图表！！
当表格接受数据时就能呈现如图所示结果： 当表格接受数据时就能呈现如图所示结果：
到此家用电脑调查表就做好了哦！！ 到此家用电脑调查表就做好了哦！！
在表格中输入如下 表格中的公式
根据上表创建图表，用图表的形式清晰地反映统计情况！！ 根据上表创建图表，用图表的形式清晰地反映统计情况！！
获得数据后可显示成如图样式： 获得数据后可显示成如图样式：
新建工作表并更名为“价格变动对销售量的影响” 新建工作表并更名为“价格变动对销售量的影响”并建立如 下表格： 下表格：
式
M3=IF(调查结果!M4=1,"赠送物件",IF(调查结果!M4=2,"免费上门维护",IF(调查结 果!M4=3,"幸运抽奖",""))) N3=IF(调查结果!N4=1,"显示器",IF(调查结果!N4=2,"主板",IF(调查结果!N4=3,"CPU","")))
注：N3到P3的公式也可用拖动的方式获得
右击选项按 钮，选择 “设置控件 格式”
单击“确 定”
做好“提交”按钮后如果直接单击该按钮，屏幕上会弹出如 下图所示的提示对话框
要使提交按钮能具有“提交”功能，右击“提交”按钮，在弹出的快 捷菜单中单击“指定宏”命令 单击
代码看不清 呢！！别急！ 下面一页有具 体代码哦！！
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.CurrБайду номын сангаасntRegion.Rows.Count
For j = 1 To 17
'获取A3单元格连续数据区域的行数
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
菜单栏中“插入”— >“图片”—>“艺术字”
别忘了将这个工作表更名为“调查问卷” 别忘了将这个工作表更名为“调查问卷” 哦！！
由于单元格对于正数自 动省去“+”所以将这些 单元格改成文本格式， 然后可以根据喜好改变 填充颜色
新建工作表按 问卷中的题目 输入相应内容， 并更名为“调 查结果”
切换到 “调查问 卷中” 设置单元格 链接
注：A到P列以下的具体公式可用填充句柄的方式填充
C1=C3+C4
新建工作表并更名为“统计”如下图：
C3=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: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)