標題: [發問] 用巨集製作英文考試試卷 [打印本頁]

---

作者: jeff5424    時間: 2018-8-13 21:16     標題: 用巨集製作英文考試試卷

用巨集製作英文考試試卷
1.使用巨集進行英文測驗，目前單子約200個單字，最後會增加6000個單字。                                                       
2.先將考試單字數量輸入，如這次考試40個單字就輸入40。                                                       
3.再按開始考試：                                                       
   A.巨集會自動隨機出題目，在分頁"Sheet3" AA欄位，因設定40個單字，自動隨機出40題目，在B欄位。                                                       
   B.開始計時考試時間，顯示目前作答時間(單位:時/分)，時間會一直增加，1分鐘2分鐘3分鐘……….。                                                       
   C.由小孩開始做打答。                                                       
4.完成作答，按考試結束。                                                       
    A.暫停作答時間，顯示目前累計作答時間(單位:時/分)。                                                       
    B.然後開始檢查，檢查在分頁"考試" C欄位，比對分頁"Sheet3" AC欄位，答案是否正確。                                                       
    C.檢查結果顯示在"考試" C欄位，答案正確顯示O，答案錯誤顯示X，如C2及C3答案正確                                                       
        在D2及D3欄位顯示O，C4答案錯誤在D4欄位顯示X，最後C5以後沒作答結果給X                                                       
    D.最後將考試分數用百分比顯示在F3欄位。                                                       
請各位高手大哥協助....謝謝          

---

作者: jeff5424    時間: 2018-8-13 22:43

本帖最後由 jeff5424 於 2018-8-13 22:48 編輯

回復 2# a5007185

阿佐大哥,這是我小三升小四兒子要用的,目前他背約50~60單字
沒有商業用途,如果可以請你幫忙....謝謝
完成後會分享給"麻辣家族"有須要成員...

---

作者: a5007185    時間: 2018-8-14 21:20

回復 2# jeff5424

首先，
我對於我失禮的態度向你道歉，
抱歉我反應過度了....

英文單字測驗基本都完成的差不多了，
操作方式如圖所示，
基本上我都先按照我的想法做，
你看看有沒有什麼地方你覺得需要修改的，
再麻煩你提出讓我知道可以往哪些方向修改。
[attach]29215[/attach]
另外我把題庫的Sheet隱藏起來，
校閱>>保護活頁簿>>密碼1234
就可以解除鎖定，
下面分頁點右鍵解除隱藏就可以看到了，
到時候你再鎖回去就可以了。

目前算是Demo如果哪天心血來潮，
會再改版。   

[attach]29216[/attach]

---

作者: jeff5424    時間: 2018-8-14 23:23

回復 3# a5007185
感謝阿佐大大
現在測試中
在一次感謝你的幫忙...謝謝

---

作者: jeff5424    時間: 2018-8-14 23:33

回復 3# a5007185
首先感謝阿佐大大
我已將單字增加2000個單字
測試可正常使用
再一次感謝你的幫忙...謝謝

---

作者: GBKEE    時間: 2018-8-15 09:09

本帖最後由 GBKEE 於 2018-8-15 15:48 編輯

回復 5# jeff5424

依照你的檔案的程式
[attach]29225[/attach]

---

作者: 准提部林    時間: 2018-8-15 13:26

本帖最後由 准提部林 於 2018-8-15 13:41 編輯

美觀一下表格, 搭配公式+VBA:
[attach]29222[/attach]

工作表設定保護(未設密碼, 可自行設定), 以防止被任意更動,
密碼設定方式: 修改前先解除工作表保護
ActiveSheet.protect "????"
ActiveSheet.Unprotect "????"

---

作者: jeff5424    時間: 2018-8-15 22:58

回復 6# GBKEE
感謝GBKEE大大
單字增加2000個單字
測試可正常使用
  再次謝謝你

---

作者: jeff5424    時間: 2018-8-15 23:01

回復 7# 准提部林
謝謝准提部林大大
經增加單子測試可正常使用
在一次感謝大大用美觀一下表格,

---

作者: 准提部林    時間: 2018-8-16 13:38

做個〔語音提示〕版：
[attach]29228[/attach]
　
你的EXCEL版本不同，須自行去套∼∼
或者，看誰有空幫忙轉成２００７或以上的版本

---

作者: 自我感覺良好    時間: 2018-8-20 13:05

32位元
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
        (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
        ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long


64位元…只差PtrSafe…
Option Explicit
Public Declare PtrSafe Function mciSendString Lib "winmm.dll" Alias "mciSendStringA"
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String,
ByVal uReturnLength As LongLong, ByVal hwndCallback As LongLong) As LongLong

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)