10以内的加、减、乘法计算

eyaksa

我在关注这个问题 看到改良版了 但不知你检查了没有 我打开它提示出错了(在点重新出题调用宏的时候?name)
刚才我问了朋友 说修改表中引用宏(macro3)也可以实现不出现负数
Sub Macro3()
[H3:I15].Font.ColorIndex = 35
[F4:F13].ClearContents
For Each b In [b4:b13]
100:
b.Value = Int(Rnd() * 10)
b(1, 3) = Int(Rnd() * 10)
If b(1, 7) < 0 Then GoTo 100
Next
Range("b1").Select
End Sub

[ 本帖最后由 eyaksa 于 2008-5-13 15:37 编辑 ]

jiangp

谢谢楼主

eyaksa

另附一位网友的作品 感觉很好

打开工作表，格式-工作表-取消隐藏…
在隐藏的sheet1可以做相关设置
一，范围限制：如：20，50，100 等
二，设定加，减，乘，除：
     1：加法；
     2：加法，减法；
     3：加法，减法，乘法；
     4：随机加减乘除
其他：自定义 (写在符号位置：+，-，x，/）
三，设定求答案位置：
    1：求答案位置第一数；
    2：求答案位置第二数；
    3：求答案位置第三数（等号后）
其它：随机位置。

[ 本帖最后由 eyaksa 于 2008-5-13 16:51 编辑 ]

鱼鱼

我开始就很纳闷你为什么说用不了，因为在我的计算机上可是好好的。后来发现是因为函数randbetween( )的问题，因为这个函数可能不是每个装excel的人都装了的（今天才知道有这种情况），所以就导致你用不了那个文件了。

下面是解决办法：
1、找到EXCEL的安装碟；
2、打开EXCEL，点工具→加载宏→勾上分析数据库→确定；
3、等安装完毕再试试。

鱼鱼

还是很谢谢楼上的朋友给提的意见

mcywgs

谢谢楼主！！！

mcywgs

:lol

eugeniac

谢谢, thank you very much.

ZRWZ

谢谢楼主,下来看一下

szlingdang

要用电脑练习吗？不想小孩用多了电脑了，等挣足了钱，再下来看看，先谢谢了