123
返回列表 上一主題 發帖

給小朋友練習加法的問題

dondon1495

帖子
15 
主題
4 
精華
0 
積分
104 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
註冊時間
2010-7-16 
最後登錄
2020-12-23 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-3-5 19:14 | 只看該作者

給小朋友練習加法的問題

請教

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

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

感謝大大協助解惑:)

加法練習.rar (3.23 KB)

收藏 分享

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
2#
發表於 2012-3-5 19:33 | 只看該作者
本帖最後由 register313 於 2012-3-5 20:25 編輯

回復 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
複製代碼
1.gif
加法練習.rar (7.11 KB)

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

TOP

dondon1495

帖子
15 
主題
4 
精華
0 
積分
104 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
註冊時間
2010-7-16 
最後登錄
2020-12-23 
3#
發表於 2012-3-5 19:40 | 只看該作者
回復 2# register313

謝謝大大:D

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
142  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2026-7-16 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2012-3-5 22:40 | 只看該作者
回復 3# dondon1495
不須VBA
工具/選項/計算
勾選反覆運算，最高次數為1

請加載分析工具箱增益集
加法練習.rar (4.88 KB)
學海無涯_不恥下問

TOP

dondon1495

帖子
15 
主題
4 
精華
0 
積分
104 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
註冊時間
2010-7-16 
最後登錄
2020-12-23 
5#
發表於 2012-3-5 23:09 | 只看該作者
回復 4# Hsieh

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

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
142  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2026-7-16 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
6#
發表於 2012-3-5 23:14 | 只看該作者
本帖最後由 Hsieh 於 2012-3-5 23:17 編輯

回復 5# dondon1495

題目已是亂數
答案輸入後就不會再變動
刪除答案後就重新出題
play.gif
學海無涯_不恥下問

TOP

dondon1495

帖子
15 
主題
4 
精華
0 
積分
104 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
註冊時間
2010-7-16 
最後登錄
2020-12-23 
7#
發表於 2012-3-5 23:20 | 只看該作者
回復 2# register313

謝謝 register313 大大

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

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
8#
發表於 2012-3-6 00:02 | 只看該作者
回復 7# dondon1495
1.完成加,減工作表
2.加入VBA程式
  工具/巨集/VB編輯器
  
  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.加入執行按鈕
1.gif

TOP

dondon1495

帖子
15 
主題
4 
精華
0 
積分
104 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
註冊時間
2010-7-16 
最後登錄
2020-12-23 
9#
發表於 2012-3-6 10:11 | 只看該作者
回復 6# Hsieh

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

TOP

dondon1495

帖子
15 
主題
4 
精華
0 
積分
104 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
註冊時間
2010-7-16 
最後登錄
2020-12-23 
10#
發表於 2012-3-6 10:14 | 只看該作者
回復 8# register313

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

TOP

        靜思自在 : 太陽光大、父母恩大、君子量大，小人氣大。
123
返回列表 上一主題