給小朋友練習加法的問題

dondon1495

請教

問題1
我用 F9 產生隨機數值 然後用選擇性貼上 "值"
不知道有沒有辦法不要這麼麻煩

問題2
每一題昨作答後立即顯示結果與分數
有什麼方式可以全部題目做完後才顯示結果與分數

感謝大大協助解惑:)

register313

回復 1# dondon1495

問題1
用VBA解決出題之困擾

1. Sub 出題()
   
2. For Each R In Union([A3:A22], [C3:C22])
   
3.   R.Value = Int(Rnd() * 50)
   
4. Next
   
5. [E3:E22] = ""
   
6. End Sub

複製代碼

下載 (64.79 KB)

2012-3-5 20:25

加法練習.rar (7.11 KB)

下載次數: 10

2012-3-5 20:25

問題2
F3=IF(COUNT($E$3:$E$22)=20,IF((A3+C3)=E3,"√","×"),"")

dondon1495

回復 2# register313

謝謝大大:D

Hsieh

回復 3# dondon1495
不須VBA
工具/選項/計算
勾選反覆運算，最高次數為1

下載 (25.17 KB)

2012-3-5 22:39

請加載分析工具箱增益集
加法練習.rar (4.88 KB)

下載次數: 16

2012-3-5 22:40

dondon1495

回復 4# Hsieh

謝謝 Hsieh 大大
不用寫東西這是我希望的
遇到一個問題
我把答案區 Delete 掉之後
前面也全亂了
另外就是我就不知道怎麼再出題了:(

Hsieh

回復 5# dondon1495

題目已是亂數
答案輸入後就不會再變動
刪除答案後就重新出題

下載 (362.38 KB)

2012-3-5 23:16

dondon1495

回復 2# register313

謝謝 register313 大大

請問我如果有加法與減法2個工作表
VBA要怎麼設定呢
以前沒用過VBA
那個出題案扭還不知道怎麼做出來

register313

回復 7# dondon1495
1.完成加,減工作表
2.加入VBA程式
  工具/巨集/VB編輯器
  

下載 (86.72 KB)

2012-3-5 23:56

1. Sub 加法出題()
   
2. UP = 99: LOWER = 0
   
3. Sheets("加").Select
   
4. For Each R In [A3:A22]
   
5.    R.Value = Int((UP - LOWER + 1) * Rnd + LOWER)
   
6.    R.Offset(0, 2).Value = Int((99 - R.Value - LOWER + 1) * Rnd + LOWER)
   
7. Next
   
8. [E3:E22] = ""
   
9. End Sub
   
10. Sub 減法出題()
    
11. UP = 99: LOWER = 0
    
12. Sheets("減").Select
    
13. For Each R In [A3:A22]
    
14.    R.Value = Int((UP - LOWER + 1) * Rnd + LOWER)
    
15.    R.Offset(0, 2).Value = Int((R.Value - LOWER) * Rnd + LOWER)
    
16. Next
    
17. [E3:E22] = ""
    
18. End Sub

複製代碼

3.加入執行按鈕

下載 (80.28 KB)

2012-3-6 00:01

dondon1495

回復 6# Hsieh

謝謝 Hsieh 大大
反覆看了好久
終於看到一直漏看的幾個字
"請加載分析工具箱增益集"
讓您見笑了
再次謝謝您^^

dondon1495

回復 8# register313

謝謝 register313 大大
真的完全不會VBA
研究了好幾個鐘頭
還是只能依樣畫葫蘆
雖然我搞不出名堂
還是十二萬分感謝
謝謝大大^^