Excel如何做一個(gè)自動(dòng)出題表格?
網(wǎng)友解答: 用Excel做一個(gè)自動(dòng)出題的表格非常簡(jiǎn)單,上次我在陪兒子參加他們的詞匯比賽之前就做了一個(gè)簡(jiǎn)單,即:從一系列單詞里,隨機(jī)提取9個(gè)單詞放入九宮格內(nèi),然后給1分鐘的時(shí)間記憶……,具
用Excel做一個(gè)自動(dòng)出題的表格非常簡(jiǎn)單,上次我在陪兒子參加他們的詞匯比賽之前就做了一個(gè)簡(jiǎn)單,即:從一系列單詞里,隨機(jī)提取9個(gè)單詞放入九宮格內(nèi),然后給1分鐘的時(shí)間記憶……,具體如下:
一、準(zhǔn)備單詞表當(dāng)然,準(zhǔn)備單詞表的同時(shí),還可以在Excel里做個(gè)網(wǎng)絡(luò)的解析(這個(gè)公式看起來(lái)長(zhǎng),其實(shí)就是一個(gè)函數(shù)而已,其中是一長(zhǎng)串的網(wǎng)址)和背誦進(jìn)度的記錄等等,如下圖所示:
二、通過(guò)函數(shù)完成出題1、結(jié)合RandBetween函數(shù)、CountA函數(shù)隨機(jī)獲取單詞位置,如下圖所示:
2、通過(guò)Index函數(shù)根據(jù)隨機(jī)位置抽取單詞,如下圖所示:
當(dāng)然,你可以將這些函數(shù)組合起來(lái)寫成一個(gè)公式,也非常簡(jiǎn)單,自己動(dòng)手試一下即可??偟膩?lái)說(shuō),用Excel自動(dòng)出題并不難,關(guān)鍵是對(duì)Excel中常用的函數(shù)掌握好。
【私信“材料”直接下載系列訓(xùn)練材料】 網(wǎng)友解答:您好,看到這個(gè)問(wèn)題我很興奮,因?yàn)閯倓傋约鹤隽艘粋€(gè)簡(jiǎn)單的隨機(jī)出題的VBA小程序,也是一個(gè)VBA小練習(xí),可能對(duì)您有幫助,因?yàn)闊o(wú)法上傳附件,只能簡(jiǎn)要講述用法。如果需要源文件,可以私信我。
1、新建一個(gè)EXCEL工作簿,命名為“隨機(jī)出題”,將第一個(gè)工作表命名為“題庫(kù)”,新建一個(gè)工作表,命名為“試卷”。具體方法請(qǐng)參見如上動(dòng)圖。
2、在名為“題庫(kù)”的工作表中,A列為編號(hào),B列為英文,C列為中文。將題目對(duì)應(yīng)粘貼進(jìn)去。在名為“試卷”的工作表A1單元格錄入“題目”二字作為標(biāo)題。具體方法請(qǐng)參見如上動(dòng)圖。
3、點(diǎn)擊【開發(fā)工具】→Visual Basic→右鍵點(diǎn)擊插入模塊,將下面的代碼復(fù)制進(jìn)去。具體方法請(qǐng)參見如上動(dòng)圖。
Sub 隨機(jī)出題()
Dim d As Object, arr, rng As Range, arr1, n As Integer, i As Integer, j As Integer, x As Long
Set d = CreateObject("scripting.dictionary")
x = Application.CountA(Sheets("題庫(kù)").Range("a:a"))
line1: i = InputBox("請(qǐng)輸入隨機(jī)出題數(shù)量", "出題數(shù)量")
If i x Then
MsgBox ("數(shù)量超出題目總數(shù)" & x & ",請(qǐng)重新輸入")
GoTo line1
End If
line2: j = InputBox("請(qǐng)輸入隨機(jī)出題類型", "出題類型", "1為英文,2為中文")
If j < 1 And j < 2 Then
MsgBox ("輸入內(nèi)容不符合要求,請(qǐng)重新輸入")
GoTo line2
End If
Do
d.Item(Application.RandBetween(1, i)) = ""
Loop Until d.Count = i
ReDim arr(1 To d.Count * 2)
For Each arr1 In d.keys
n = n + 1
Set rng = Sheets("題庫(kù)").Range("a:a").Find(arr1)
arr(n) = n & "、" & rng.Offset(0, j).Value
Next
Rows("2:1048576").Clear
Range("a2").Resize(d.Count * 2, 1) = Application.Transpose(arr)
End Sub
4、關(guān)閉VBA編輯器,回到名為“試卷”的工作表,插入任意形狀作為啟動(dòng)宏的按鈕,選中形狀,右鍵單擊,選擇指定宏即可。具體方法請(qǐng)參見如上動(dòng)圖。
5、將文件另存為后綴名為.xlsm的格式。具體方法請(qǐng)參見如上動(dòng)圖。
6、具體使用方法如上動(dòng)圖。
如需課件源文件,請(qǐng)私信我o(* ̄︶ ̄*)o