成人AV在线无码|婷婷五月激情色,|伊人加勒比二三四区|国产一区激情都市|亚洲AV无码电影|日av韩av无码|天堂在线亚洲Av|无码一区二区影院|成人无码毛片AV|超碰在线看中文字幕

Excel如何做一個(gè)自動(dòng)出題表格?

網(wǎng)友解答: 用Excel做一個(gè)自動(dòng)出題的表格非常簡(jiǎn)單,上次我在陪兒子參加他們的詞匯比賽之前就做了一個(gè)簡(jiǎn)單,即:從一系列單詞里,隨機(jī)提取9個(gè)單詞放入九宮格內(nèi),然后給1分鐘的時(shí)間記憶……,具

網(wǎng)友解答:

用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

標(biāo)簽: