十三、快速打印學(xué)生成績(jī)條

    常有朋友問(wèn)“如何打印成績(jī)條”這樣的問(wèn)題，有不少人采取錄制宏或VBA的方法來(lái)實(shí)現(xiàn)，這對(duì)于初學(xué)者來(lái)說(shuō)有一定難度。出于此種考慮，我在這里給出一種用函數(shù)實(shí)現(xiàn)的簡(jiǎn)便方法。

    此處假定學(xué)生成績(jī)保存在Sheet1工作表的A1至G64單元格區(qū)域中，其中第1行為標(biāo)題，第2行為學(xué)科名稱(chēng)。

    1.切換到Sheet2工作表中，選中A1單元格，輸入公式：=IF（MOD（ROW（），3）=0，″″，IF（0MODROW（），3（=1，sheet1！A$2，INDEX（sheet1！$A：$G，INT（（（ROW（）+4）/3）+1），COLUMN（））））。

    2.再次選中A1單元格，用“填充柄”將上述公式復(fù)制到B1至G1單元格中；然后，再同時(shí)選中A1至G1單元格區(qū)域，用“填充柄”將上述公式復(fù)制到A2至G185單元格中。

    至此，成績(jī)條基本成型，下面簡(jiǎn)單修飾一下。

    3.調(diào)整好行高和列寬后，同時(shí)選中A1至G2單元格區(qū)域（第1位學(xué)生的成績(jī)條區(qū)域），按“格式”工具欄“邊框”右側(cè)的下拉按鈕，在隨后出現(xiàn)的邊框列表中，選中“所有框線”選項(xiàng)，為選中的區(qū)域添加邊框（如果不需要邊框，可以不進(jìn)行此步及下面的操作）。

    4.同時(shí)選中A1至G3單元格區(qū)域，點(diǎn)擊“常用”工具欄上的“格式刷”按鈕，然后按住鼠標(biāo)左鍵，自A4拖拉至G186單元格區(qū)域，為所有的成績(jī)條添加邊框。

    按“打印”按鈕，即可將成績(jī)條打印出來(lái)。