網(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í)間記憶……，具體如下：

當(dāng)然，準(zhǔn)備單詞表的同時(shí)，還可以在Excel里做個(gè)網(wǎng)絡(luò)的解析（這個(gè)公式看起來(lái)長(zhǎng)，其實(shí)就是一個(gè)函數(shù)而已，其中是一長(zhǎng)串的網(wǎng)址）和背誦進(jìn)度的記錄等等，如下圖所示：

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ù)掌握好。

您好，看到這個(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