事半功倍　巧用Office組件制作語句排序考題

俞木發(fā)

首先在Word中輸入需要排序的語句，到https：∥share.weiyun.com/YGJ723wm下載所需的代碼，接著按下“Alt+F11”組合鍵打開VB編輯窗口，點(diǎn)擊“插入一模塊”，將下載到的代碼粘貼到模塊窗口，點(diǎn)擊“運(yùn)行”并按提示保存到一個(gè)名為“分解句子”的宏（圖1）。

點(diǎn)擊“視圖一立即窗口”運(yùn)行上述宏，在“立即窗口”中可見Word中輸入的句子會(huì)按照詞組的形式自動(dòng)進(jìn)行拆分。在拆分結(jié)果中按照題目要求稍加修改，比如將“兔”、“媽”、“媽”重新組合成“兔媽媽”（圖2）。

將整理后的拆分句子內(nèi)容全選并復(fù)制，然后啟動(dòng)Excel并將拆分后的內(nèi)容粘貼到新建工作表的C2：C47區(qū)域。因?yàn)椴鸱值牟糠中枰騺y順序排列，定位到D2單元格并輸入公式“=RAN DBETWEEN（1，20）”（即在D列填充1→20之間的隨機(jī)數(shù)字作為排序依據(jù)），下拉填充到C47單元格。同時(shí)為了方便學(xué)生排序拆分的詞組，再為每個(gè)詞組添加序號(hào)，定位到C2單元格并輸入公式“=UNICHAR（9311+ROW（）-1）”，其中UNICHAR函數(shù)的作用是在C列填充①②③。這里因?yàn)槊烤湓挷鸾獾臄?shù)量都不同，需要按照實(shí)際拆解部分進(jìn)行填充，比如第一部分填充到B10單元格。第二部分為B13：B19區(qū)域，在B13單元格中輸入公式“=UNICHAR（9311+ROW（）-12）”（即ROW（）-本部分第一個(gè)填充行號(hào)-1），填充到B23單元格。其他部分填充原理類似。繼續(xù)定位到A2單元格并輸入公式“=B2&C2”，下拉填充到A47單元格，這樣A列就會(huì)在拆解詞語前自動(dòng)添加序號(hào)（圖3）。

接下來就是將A列的帶序號(hào)的拆解部分轉(zhuǎn)化為行顯示即可。繼續(xù)定位到E2單元格并輸入公式“=INDEX（$A2：$A10，COLUMN（A2））”，公式中先使用COLUMN（A2）函數(shù)讀取列號(hào)數(shù)字并將其作為INDEX函數(shù)的引用數(shù)字，引用范圍是“$A2：$A10”（即第一句話的拆解數(shù)據(jù)區(qū)域），將函數(shù)向右填充后就會(huì)依次將A列的文本在E2：M2之間進(jìn)行填充。同上，繼續(xù)在E3單元格中輸入公式“=INDEX（$A13：$A19，COLUMN（A3））”，這里注意“$A13：$A19”的選擇，即每個(gè)公式的選擇區(qū)域都是對(duì)應(yīng)語句的拆解數(shù)據(jù)區(qū)域。依次在E4、E5單元格中輸入相應(yīng)的公式并向右填充，這樣就可以將帶序號(hào)的拆解語句填充到2、3、4、5行中了（圖4）。

選中C2：D10區(qū)域，點(diǎn)擊“數(shù)據(jù)→排序”，在打開的排序窗口中，主要關(guān)鍵字選擇“列D”（即隨機(jī)數(shù)字填充列），其他選擇默認(rèn)設(shè)置，點(diǎn)擊“確定”進(jìn)行排序即可。因?yàn)镈列是隨機(jī)數(shù)字，這樣可以對(duì)C2：C10區(qū)域的數(shù)據(jù)進(jìn)行隨機(jī)排序。同理選中其他語句區(qū)域（如C13：D19區(qū)域?qū)?yīng)第二句）進(jìn)行排序，最終在E2：M5區(qū)域獲得亂序排列的考題數(shù)據(jù)（圖5）。

完成上述的操作后，選中E2：M5區(qū)域并復(fù)制，返回到Word窗口并依次點(diǎn)擊“開始→粘貼→只保留文本”，輸入題目說明就可以完成這類試題的制作了（圖6）。

上述方法適合于一次性制作多個(gè)句子的試題，每次制作的考題句子拆分的長度都不相同，這樣很多函數(shù)的輸入都要更改。對(duì)于需要經(jīng)常制作不同句子考題的老師，可以在Excel中預(yù)先制作一個(gè)模板。

在Excel中新建一個(gè)工作表，在A2單元格中輸入公式

“=IF（C2=""，""，B2&C2）”（使用IF函數(shù)對(duì)A列顯示的值進(jìn)行判斷，如果C2的值不為空，則顯示B2&C2內(nèi)容，否則顯示為空），將公式下拉填充到A17單元格（假設(shè)一句話最多拆分為16個(gè)詞組，一般已經(jīng)足夠小學(xué)生使用）。在B2單元格中輸入公式“=IF（C2=""，""，UNI CHAR（9311+ROW（）-1））”，D2單元格中輸入公式“=IF（C2=""，""，RANDBETWEEN（1，20））”，同樣使用IF函數(shù)進(jìn)行相應(yīng)的判斷，不為空則顯示填充序號(hào)和填充隨機(jī)數(shù)字，在F2單元格中輸入公式

“=INDEX（$A2：$A17，COLUMN（A2））”，填充到U2單元格（圖7）。

點(diǎn)擊“開發(fā)工具一錄制宏”，執(zhí)行下面的操作錄制一個(gè)宏，并為宏設(shè)置一個(gè)快捷鍵“Ctrl+W”：

選中C2：D17區(qū)域中的內(nèi)容，然后點(diǎn)擊“數(shù)據(jù)→排序”，主要關(guān)鍵字選擇“隨機(jī)排序”;選擇F2：U2區(qū)域中的內(nèi)容并復(fù)制;定位到A18單元格，依次點(diǎn)擊“開始→選擇性粘貼→數(shù)值”;繼續(xù)定位到第17行，右擊并選擇“插入行”，完成宏的錄制。

這樣以后在制作類似的考題時(shí)，我們只要在C2：C17區(qū)域中輸入自行拆分的語句內(nèi)容（字?jǐn)?shù)不夠時(shí)可以留空，詞組可以按自己的需要任意拆分），然后按下“Ctrl+W”組合鍵（每執(zhí)行一次會(huì)重新進(jìn)行排序）。重復(fù)上述操作輸入新的句子，自動(dòng)制作好的試題會(huì)依次排列在19、20、21……行（圖8）。