Excel+Word打造随机出卷系统.docVIP

Excel+Word打造随机出卷系统 　　自动出卷的软件其实并不少见，不过得花钱去买。如果能按个人的使用习惯和需要，自己定制一套自动出卷系统，除了可省钱外应该也挺有趣的吧。在此介绍一种用Excel 2003和Word 2003自制随机出卷系统的方法，以供参考。 　　基本原理 　　1. 随机排序。在题号后增加一列，并用RAND()填写随机数，以随机数为关键字进行排序，就可以实现随机排序了。此外，每次排序随机数都会改变，从而得到不同的随机顺序。 　　2. 随机抽题。对题号进行随机排序，则前面n题就等于是随机抽取的了，把这n题复制出来即可实现随机抽题。 　　3. 限制范围。题号用公式判断，当不属于指定的单元范围时题号为空，相应的随机数也为空。升序排序后随机数为空的行不会在前面的n题中了，自然不参与出题。 　　4. AB卷生成。对已选出的题目进行升序随机排序即可得到不同顺序的B卷。填空、选择、问答等题型的随机数应依次增加1、2、3，这样排序时不同题型就不会串位了。 　　用Excel 2003设计系统 　　1．主界面设置 　　建立“出卷”工作表（如图1所示），在F1输入=NOW()，并设置为日期格式，在B1输入“=SUM(B2:B4)”。选中F列右击选择“设置单元格格式”在“对齐”选项卡中勾选“自动换行”。顺便为A:C区域设置填充色以突显需填写的B2:B4和B7:B8。 　　2．建立题库 　　建立“填空”工作表（如图2所示）。在A2输入“=IF(AND(D8=出卷!$B$8,D8=出卷!$B$7),ROW()-1,)”，当所属单元在出卷工作表B8、B7之间时显示题号为行数减1否则为空。选中A2:A1000按Ctrl+D键进行填充。然后在F2输入“=填空ROW()-1，G2输入=填空!A2，H2输入=IF(G2=,,RAND()+1)”，再选中F2:H1000，按Ctrl+D键向下填充。选中A:H在名称框输入“填空”回车，把A:H命名为“填空”。 　　按住Ctrl键拖动“填空”工作表标签复制出另一工作表，重命名为“选择”工作表，选中A:H命名为“选择”。把F2、G2公式中的“填空”改成“选择”，H2改成“=IF(G2=,,RAND()+2)”，然后选中F2:H2双击填充柄进行填充，即可制作出“选择”工作表。同样做出“问答”工作表，注意：H2的随机数要再加1变成“=IF(G2=,,RAND()+3)”。 　　对整列排序较费时，在此按题数为1000计以节省排序时间，若想要5000题则本文中全部的1000都换成5000即可。G2的公式“=填空!A2”中工作表名不能省略否则无法排序。H2公式中的随机数RAND()+1、2、3……的差距可适当调大（如：+5、+10、+15……）以便将来在中间插入新题型。 　　技巧：在“名称框”中输入：“A2:A1000”回车即可快速选中这一区域。 　　3． 随机抽题 　　返回“出卷”工作表，用“自选图形/基本形状/棱台”画一个按钮，选中此按钮输入“出卷”二字。右击“出卷”按钮选择“设置自选图形格式”，在“属性”中选中“大小位置均固定”选项。再次右击选择“指定宏”，然后单击“新建”按钮，在Visual Basic右侧窗口编辑如下代码： 　　Sub 自选图形1_单击()　　Range(D4:E128).ClearContents　　清除D4:E128中数据　　Range(D4).Select　　选中D4　　X = Range(B2).Value　　指定X=B2的数值　　Sheets(填空).Select　　切换到填空工作表　　Range(F2:H1000).Sort Key1:=Range(H2), Order1:=xlAscending　　对F2:H1000区域按H列随机数升序排序　　Range(F2:G X + 1).Copy　　复制排序后前X条的题型、题号　　Sheets(出卷).Select　　返回出卷工作表　　ActiveCell.PasteSpecial Paste:=xlPasteValues　　以数值方式粘贴　　ActiveCell.Offset(X, 0).Range(A1).Select　　选中当前单元格下移X行的单元格　　X = Range(B3).Value　　Sheets(选择).Select　　Range(F2:H1000).Sort Key1:=Range(H2), Order1:=xlAscending　　Range(F2:G X + 1).Copy　　Sheets(出卷).Select　　ActiveCell.PasteSpecial Paste:=xlPasteValues　　ActiveCell.Offset(X, 0).Ran