自己做的一个小学生计算表，求阅卷VBA代码

diablosong

病毒肆虐，闲赋在家写了一个小学生加减乘除练习表，大部分已经完成，就差一键阅卷
本人VBA能力有限求大神帮助
表一内已经完成出题部分，题目刷新部分 用了公式及VBA
表二是表一的计算部分，已经计算出结果
目前就是需要两表结果部分进行比对 比对部分原来我是用公式写的 由于表格关闭了 自动计算功能 所以公式不能及时刷新 不能显示 求VBA手动效果
C4 的公式为：=IF(B4="","",IF(B4=Sheet2!C4,"O",IF(B4<>Sheet2!C4,"X")))
表1的B4 结果与表2的c4结果一样 进行比对

syj2004hg

Sub test()
    Application.Calculation = xlCalculationManual
    Dim i As Integer, j As Integer
    Dim arr1(1 To 20, 1 To 11), arr2(1 To 20, 1 To 11), ArrB(1 To 20, 1 To 11)
    For i = 1 To 20
        For j = 1 To 11
            arr1(i, j) = Sheet1.Cells(i + 3, j * 3 - 1)
            arr2(i, j) = Sheet2.Cells(i + 3, j * 3)
            ArrB(i, j) = IIf(arr1(i, j) = arr2(i, j), "○", "×")
            Sheet1.Cells(i + 3, 3 * j) = ArrB(i, j)
        Next j
    Next i
End Sub

syj2004hg

用公式生成随机数再做统计，还会存在你保存的时候会重新计算，然后统计的时候又不符合了，最好都用VBA或者复制张贴数值格式重生成和刷新题库

diablosong

syj2004hg 发表于 2020-2-23 13:40
Sub test()
    Application.Calculation = xlCalculationManual
    Dim i As Integer, j As Integer

谢谢大神 很好用 已经可以了
想麻烦你给我追加一个功能
原来我在刷新按钮这里 宏是F9刷新键按一下 能帮我改进一下吗？
就是改成 F9刷新键按一下并且完成的作答都清空
谢谢

syj2004hg

diablosong 发表于 2020-2-23 15:13
谢谢大神 很好用 已经可以了
想麻烦你给我追加一个功能
原来我在刷新按钮这里 宏是F9刷新键按一下 能帮 ...

Dim i As Integer
    For i = 2 To 32 Step 3
        Cells(4, i).Resize(20, 1).Value = ""
    Next i
    Calculate

diablosong

syj2004hg 发表于 2020-2-23 16:02
Dim i As Integer
    For i = 2 To 32 Step 3
        Cells(4, i).Resize(20, 1).Value = ""

非常感谢  这个能用了

ppptttppp

diablosong 发表于 2020-2-23 17:27
非常感谢  这个能用了

这个除法问题能解决吧，生成的除法有问题为