麻辣家族討論版版 » Excel程式區 » 用巨集製作英文考試試卷

返回列表下一主題上一主題發帖

[發問] 用巨集製作英文考試試卷

中學生 Rank: 2

帖子: 84
主題: 34
精華: 0
積分: 133
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 斗六
註冊時間: 2010-8-12
最後登錄: 2026-5-13

論壇贊助勳章

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 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欄位。
請各位高手大哥協助....謝謝

英文考試試卷.rar (27.21 KB)

樓主熱帖

收藏

自我感覺良好

中學生 Rank: 2

帖子: 117
主題: 42
精華: 0
積分: 164
點名: 0
作業系統: XP
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-7-22
最後登錄: 2025-7-22

11^#

發表於 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

50 字節以內
不支持自定義 Discuz! 代碼

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

10^#

發表於 2018-8-16 13:38 | 只看該作者

做個〔語音提示〕版：

TT20180915(英文考試-語音版).rar (175.27 KB)
　
你的EXCEL版本不同，須自行去套～～
或者，看誰有空幫忙轉成２００７或以上的版本

中學生 Rank: 2

帖子: 84
主題: 34
精華: 0
積分: 133
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 斗六
註冊時間: 2010-8-12
最後登錄: 2026-5-13

論壇贊助勳章

9^#

發表於 2018-8-15 23:01 | 只看該作者

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

中學生 Rank: 2

帖子: 84
主題: 34
精華: 0
積分: 133
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 斗六
註冊時間: 2010-8-12
最後登錄: 2026-5-13

論壇贊助勳章

8^#

發表於 2018-8-15 22:58 | 只看該作者

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

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

7^#

發表於 2018-8-15 13:26 | 只看該作者

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

美觀一下表格, 搭配公式+VBA:

TT20180915(英文考試).rar (16.91 KB)

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

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2018-8-15 09:09 | 只看該作者

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

回復 5# jeff5424

依照你的檔案的程式

英文考試試卷(1).zip (33.46 KB)

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

中學生 Rank: 2

帖子: 84
主題: 34
精華: 0
積分: 133
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 斗六
註冊時間: 2010-8-12
最後登錄: 2026-5-13

論壇贊助勳章

5^#

發表於 2018-8-14 23:33 | 只看該作者

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

中學生 Rank: 2

帖子: 84
主題: 34
精華: 0
積分: 133
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 斗六
註冊時間: 2010-8-12
最後登錄: 2026-5-13

論壇贊助勳章

4^#

發表於 2018-8-14 23:23 | 只看該作者

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

　暱稱: 阿佐
　頭銜: 上班無聊打怪去

中學生 Rank: 2

帖子: 108
主題: 1
精華: 0
積分: 113
點名: 0
作業系統: Win 10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 臺灣
註冊時間: 2017-9-7
最後登錄: 2019-2-27

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2018-8-14 21:20 | 只看該作者

回復 2# jeff5424

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

英文單字測驗基本都完成的差不多了，
操作方式如圖所示，
基本上我都先按照我的想法做，
你看看有沒有什麼地方你覺得需要修改的，
再麻煩你提出讓我知道可以往哪些方向修改。

另外我把題庫的Sheet隱藏起來，
校閱>>保護活頁簿>>密碼1234
就可以解除鎖定，
下面分頁點右鍵解除隱藏就可以看到了，
到時候你再鎖回去就可以了。

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

V1.00.2.rar (36.5 KB)

靜思自在 : 口說好話、心想好意、身行好事。

返回列表下一主題上一主題