一、调出显示“开发工具”选项卡(方法)
1
单击“开始”=〉“选项”,
2
弹出“Excel选项”对话框,单击“自定义功能区”=〉勾选“开发工具”,然后单击“确定”,
3
完成显示“开发工具”选项卡设置
END
二、制作单项选择题(方法/步骤)
1
题目设计
插入选项按钮:单击“开发工具”选项卡=〉“插入=〉选项按钮(窗体控件
3
当鼠标指针变成细黑十字形,在工作表需要放置选项按钮的位置单击并拖动,即可绘制一个选项按钮。
用同样的方法绘制多个选项按钮,每题绘制4个选项按钮,共12个选项按钮,如图所示:
5
修改选项按钮显示文字并对齐,
6
给选项按钮分组(非常重要),每题选项按钮为一组,否则12个选项只能选中一个,为解决这个问题,本例是共3个试题可分为三组。单击“开发工具”选项卡=〉“插入=〉分组框(窗体控件)
7
当鼠标指针变成十字形时,单击并拖动鼠标框上第1题4个按钮,即可绘制一个分组框。如图所示:
8
用同样的方法为第2题、第3题分别绘制一个分组框,
9
为选项按钮设置链接单元格。第1题,右击“主机、键盘、显示器”按钮,选择“设置控件格式”,
10
弹击“设置控件格式”对话框,在“控制”选项卡的“单元格链接”右侧的文本框中单击,然后用鼠标单击“B2”单元格,单击“确定”,
11
分组框13中,选项按钮全部链接到B2单元格。4个选项按钮,值分别为“1-4”。现选择第1项“主机、键盘、显示器”,B2单元格显示数字“1”。
12
分别为分组框14、分组框15内选项按钮设置“单元格链接”, 分组框14里面“选项控件”链接单元格“B7”,分组框15里面“选项控件”链接单元格“B10”,如
13
隐藏分组框的框线,按Alt+F11,打开VBA编辑器,再按Ctrl+G,打开“立即窗口”,在其中输入:ActiveSheet.GroupBoxes.Visible = False,
14
将光标定位在语句末尾后回车,即可隐藏分组框的框线(若要显示框线,只需将命令“False”改为“True”),如
END
三、统计成绩(方法/步骤)
建立标准答案,第1题的标准答案是第3项,在C2中输入3;第2题的标准答案是第4项,在C7中输入4;第3题的标准答案是第2项,在C10中输入2,
2
判断是否得分。在D2中输入表达式“=IF(B2=C2,5,0)”;在D7中输入表达式“=IF(B7=C7,5,0)”;在D10中输入表达式“=IF(B10=C10,5,0)”,
3
隐藏B列和C列,并在D13中建立求和,制作完成,效果
选择需要建立下拉菜单的单元格或单元格区域。
选择数据有效性,序列,把提供下拉菜单打上勾,
在数据来源中输入数据以半角逗号分隔。或者引用单元格区域的数据,
确定即可
如果你是想用VBA来编辑一个,可以使用单元格事件来完成
下面以单元格B5生成下拉菜单1 2 3为例
代码如下
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$5" Then
With Target.Validation
.Delete
.Add Type:=xlValidateList, Formula1:="1,2,3"
End With
End If
End Sub
给你一个方法
先在你的正确答案后面增加一列【答案内容】,如下图:
然后在G2单元格填入公式=HLOOKUP(F2,$1:$1048576,A2+1,0),正确答案的内容就匹配出来了,然后把公式往下填充,其他问题的答案也就出来了。
如果你只想保留答案,等所有的【答案内容】都用公式匹配出来之后,把整个G列做【复制】-【粘贴为值】,然后再把选项ABC删掉(就是删除excel的CDE三列),就行了。
最后的效果如下。
最后说明,在删除ABC选项之前,一定要把用公式匹配出来的【答案内容】复制-粘贴为值后才能删,否则就会出现乱码。