| 楼主 Deksan |
 100以内口算题生成器.jpg  Excel制作随机口算题(加减法).rar |
| 2楼 biaotiger1 |
看来要重修数学了。 谢谢lz共享。12.jpg  |
| 3楼 wjc2090742 |
 猪猪，你这样怎么教女儿呢？ |
| 4楼 wise |
 传销哥的数学比我还差 |
| 5楼 xyh9999 |
只错了1题，标哥的数学棒极了！ |
| 6楼 Deksan |
感谢各位版主捧场啊！ 哈哈！ |
| 7楼 zm0115 |
标哥数据真棒！ |
| 8楼 shenxinyan |
很不错 我儿子有事情做了 谁叫他喜欢玩电脑呢 O(∩_∩)O哈哈~ 感谢。 |
| 9楼 米拉拉大米 |
那个设置（比如输入30就出30以内） 是在哪里设置呢？ 不知道这个表格是怎么做出来的？ |
| 10楼 可怜小飞 |
比较想要知道怎么做出来的，呵呵 |
| 11楼 可怜小飞 |
比较想要知道怎么做出来的，呵呵 |
| 12楼 幸福老巴布 |
不错，让咱闺女试试 |
| 13楼 jslfz |
谢谢，收藏学习之！ |
| 14楼 shashenzi |
这个必须要支持啊~~~~ |
| 15楼 jijiafei |
thx |
| 16楼 Deksan |
是用VBA写的后台的程序，你在EXCEL里打开Macro 就可以看到程序了。后台的触发程序： Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range ActiveSheet.Unprotect Application.EnableEvents = False Target.Locked = True Selection.FormulaHidden = True ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True ActiveSheet.EnableSelection = xlUnlockedCells Application.EnableEvents = True End Sub 主程序如下： Sub TiKu() Dim a, b, c Dim i, j, row, check c = InputBox("请输入数字n：", "设置", 10) Sheets("测验记录").Unprotect ReDim b(1 To 4) row = Sheets("测验记录").Range("a65535").End(xlUp).row b(1) = row - 1 b(2) = Date b(3) = Time b(4) = [F1] If b(4) <> 0 Or [E3] <> "" Then Sheets("测验记录").Range("a" & Sheets("测验记录").Range("a65535").End(xlUp).row + 1).Resize(1, 4) = b End If Sheets("测验记录").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True ActiveSheet.EnableSelection = xlUnlockedCells ActiveSheet.Unprotect Application.EnableEvents = False Range("E3").Resize(20, 1).ClearContents Range("E3").Resize(20, 1).Locked = False ReDim a(1 To 20, 1 To 3) For i = 1 To 20 For j = 1 To 3 Step 2 a(i, j) = Int(Rnd() * c) a(i, j) = Int(Rnd() * c) Next j Next i For i = 1 To 20 check = False If Rnd() > 0.5 Then check = True If check And a(i, 1) > a(i, 3) Then a(i, 2) = "-" Else: a(i, 2) = "+" Next i [A3].Resize(20, 3) = a ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True ActiveSheet.EnableSelection = xlUnlockedCells Application.EnableEvents = True End Sub 按钮的程序： Private Sub CommandButton1_Click() TiKu End Sub 就是这么做出来的！ |
| 17楼 轻似梦 |
哈哈，可以用这个帮小孩子戒电脑不？ |
| 18楼 vlc1983 |
可以进化到加减乘除的版本~求复杂版本~~！ |
| 19楼 海洋之星 |
标哥，啥情况啊 |
| 20楼 海洋之星 |
不错，学习了，以后给娃用，哈哈 |
| 21楼 fairy_ran |
肿么找不到设置在哪里哇，而且出题按钮没有反应哇~~捉急 |
| 22楼 apple1973 |
很不错，我喜欢。 |