随机打乱试题顺序宏怎么写？求教！！

夜上海 · 发表于 2024-7-16 08:34

要求：以上只是测试卷的部分题目，正常的应该还有很多选择题，每道题目后面的带颜色的框里是学生输入选择项的，得分也依据此处的选择答案来统计。按照这样的题目格式，现在需要设置一个宏，能够让每个学生做此试题卷时，拿到的题目的顺序都不一样，这个宏该怎么写？请教了！！

hcm19522 · 发表于 2024-7-16 10:55

G3:G12{=IFERROR(INDEX(A:A,SMALL(IF((COUNTIF(G$2:G2,A$3:A$12)=0)*(A$3:A$12>0)*MOD(ROW(A1),2),ROW($3:$12),99),RANDBETWEEN(1,6-COUNTIF(G$2:G2,"><"))))&"","")

H3:K12=OFFSET(B$2,-LOOKUP(1,-$G$3:$G3)*2-MOD(ROW(A1),2),)&""

Jaofuan · 发表于 2024-7-16 11:15

Sub jaofuan()
Dim Row As Long
Dim i As Long, j As Long
Dim temp As Variant, ar
Row = Cells(Rows.Count, 1).End(xlUp).Row '获取数据的最后一行
For i = 3 To Row Step 2
Do
j = Int((Row - i + 1) * Rnd + i) '生成随机的交换位置
Loop While j Mod 2 = 0
temp = Range("b" & i & ":f" & i + 1).Value '交换数据
Cells(i, 2).Resize(2, 5).Value = Range("b" & j & ":f" & j + 1).Value
Cells(j, 2).Resize(2, 5).Value = temp
Next
End Sub

复制代码

Jaofuan · 发表于 2024-7-16 11:18

参与一下

试卷.zip (16.12 KB, 下载次数: 3)

夜上海 · 发表于 2024-7-17 22:26

牛人真诚感谢相助

		自动登录	找回密码
密码			免费注册

随机打乱试题顺序 宏怎么写？求教！！

随机打乱试题顺序宏怎么写？求教！！