怎么用Excel出数学题？
近日，一个粉丝朋友（本职工作是数学老师）私下问我如何使用Excel出题：100以内三个数混合加减？
1
函数法
Step1-构造出这3个数字
第一个数是正数，因此输入函数 =randbetween(0,100)
B列和C列中，分别输入函数 =randbetween(-100,100)
Step2- 正数添加 +
使用if函数给B列和C列的数字添加 +
=IF(B1>0,'+'&B1,B1)
Step3-使用函数concat生成公式
如图所示，使用公式 concat函数，
=concat(A1,F1,G1,'=')，来生成公式。具体见下图。
大家来看看最终效果，如果需要更换题库，只需要双击下即可哦。
2
VBA法
Step1: 按下【Alt+F11】
Step2：插入模块，输入以下代码
Step3：单击运行按钮，可以发现数学题就生成啦。
Sub 数学题()
j = 1
For m = 1 To 20
Dim a, b, c, d, e, f
Do
a = WorksheetFunction.RandBetween(1, 100)
b = WorksheetFunction.RandBetween(-100, 100)
c = WorksheetFunction.RandBetween(-100, 100)
If b > 0 Then b = '+' & b
If c > 0 Then c = '+' & c
d = a & b
e = a & b & c
Loop While f
Cells(j, 'A') = e & '='
j = j + 1
Next
End Sub
Step3：单击运行按钮，可以发现数学题就生成啦。
各位朋友，你学会了吗？
文章来源：雷哥office
赞 (0)