1、Excel應(yīng)用實(shí)例-輕松套打帶照片的準(zhǔn)考證星期一剛上班，同事小張迎上來笑嘻嘻地說：“主任讓你務(wù)必于今天上午將準(zhǔn)考證打印出來，數(shù)據(jù)已錄好了，照片已加入字段”。想起今年第11期F6版中國電腦教育報(bào)的一篇自己動(dòng)手制作學(xué)生胸卡的文章，我想用VFP的報(bào)表功能實(shí)現(xiàn)帶照片的準(zhǔn)考證套打，應(yīng)該是很輕松的事。打開小張遞過來的數(shù)據(jù)盤，原來數(shù)據(jù)全部用Excel錄入，照片作為其中的一個(gè)字段已放在單元格內(nèi)（如圖1），如果用VFP，還需將工作表轉(zhuǎn)換成DBF格式，并將照片復(fù)制成一個(gè)個(gè)單獨(dú)的圖片文件，好幾百人的照片，沒有幾天的功夫怕是完成不了任務(wù)的。還是在Excel上想想辦法吧，看有沒有捷徑可走。通過探索，筆者終于將此問題解決

2、了，現(xiàn)將方法介紹如下。1 設(shè)計(jì)套打模板，建立數(shù)據(jù)關(guān)聯(lián)圖2是空白準(zhǔn)考證樣式，先用掃描儀將準(zhǔn)考證掃描，并保持大小尺寸不變，然后將圖片保存為JPG格式。打開Sheet2工作表，將剛才保存的圖片插入表中，并將圖片設(shè)定為非打印對象。執(zhí)行“視圖工具欄繪圖”命令，在準(zhǔn)考證需填充文本的部位插入矩形框。我們用VLOOKUP函數(shù)實(shí)現(xiàn)Sheet1工作表中數(shù)據(jù)與Sheet2表中準(zhǔn)考證間的關(guān)聯(lián)（照片填充部分除外）。首先將A21單元格作為查詢的關(guān)鍵數(shù)值，在A20G20單元格中分別輸入序號(hào)、姓名、級(jí)別等字段。在B21單元格中輸入公式“=IF(VLOOKUP(A21,Sheet1!A2:I1000,2)=0,VLOOKUP(

3、A21,Sheet1!A2:I1000,2)”，在C21單元格中輸入公式“=IF(VLOOKUP(A21,Sheet1!A2:I1000,6)=0,VLOOKUP(A21,Sheet1!A2:I1000,6)”，其他依此類推。這樣就建立了準(zhǔn)考證填充數(shù)據(jù)與Sheet1表間的關(guān)聯(lián)。下一步就是要建立數(shù)據(jù)與準(zhǔn)考證相應(yīng)矩形框的關(guān)聯(lián)，以準(zhǔn)考證中姓名字段為例，鼠標(biāo)單擊該矩形框，在編輯欄右側(cè)輸入“=”符號(hào)，然后用鼠標(biāo)點(diǎn)擊需要填入數(shù)據(jù)的B21單元格，這樣矩形框就和B21單元格中的數(shù)據(jù)建立了聯(lián)系。只要單元格數(shù)據(jù)變化，則矩形框數(shù)據(jù)也跟著變化，其他依此類推。這樣，只要在A21單元格輸入序號(hào)值，那么Sheet1表中相應(yīng)

4、序號(hào)行的數(shù)據(jù)就會(huì)在準(zhǔn)考證模板中自動(dòng)生成。上述工作完成后，按“Shift”鍵選中所有矩形框，設(shè)置矩形框格式，包括字體、大小、對齊、顏色和線條等，特別是選中無填充色和無線條色。2 定義名稱，導(dǎo)入照片通過VLOOKUP函數(shù)雖然建立了工作表1和準(zhǔn)考證的聯(lián)系，但要在準(zhǔn)考證中自動(dòng)生成照片則需要用到比較復(fù)雜的函數(shù)，采取定義名稱的辦法 。具體步驟如下：（1）定義名稱：執(zhí)行“插入名稱定義”命令，打開如圖3所示“定義名稱”對話框，將名稱定義為“A”，在“引用位置”文本框中輸入公式“=OFFSET(Sheet1!$A$1,0,0,COUNTA(Sheet1!$A:$A),1)”，按下確定按鈕返回。該公式建立了查詢數(shù)

5、據(jù)的動(dòng)態(tài)地址。接著用同樣方法，再定義另一個(gè)名叫“X”的名稱，里面包括公式“X=INDIRECT(ADDRESS(MATCH(Sheet2!$A$21,A,0),9,1,Sheet1)”，該公式表示當(dāng)動(dòng)態(tài)地址欄為Sheet2表中A21單元格數(shù)值時(shí)，返回Sheet1表中第9列即照片所在列單元格內(nèi)容。（2）導(dǎo)入圖片：選取sheet2工作表，執(zhí)行“視圖工具欄控件工具箱”命令，打開“控制工具箱”窗口。點(diǎn)擊圖像框或文字框按鈕，在準(zhǔn)考證需要填充照片的位置畫出相同大小的圖片框或文字框。選取文字框（圖像框）后，將編輯欄中“=EMBED(Forms.TextBox.1,”改成“=X”，如圖4，這樣只要A21單元格

6、數(shù)值變化時(shí)，照片框中相應(yīng)的照片就會(huì)發(fā)生變化。3 制作微調(diào)按鈕，編寫宏代碼為操作更加方便，可以制作微調(diào)按鈕調(diào)節(jié)序號(hào)值。執(zhí)行“視圖工具欄窗體”，打開窗體對話框，點(diǎn)擊微調(diào)項(xiàng)標(biāo)志按鈕，建立微調(diào)按鈕，右擊按鈕，打開“設(shè)置控件格式”對話框，并與B19單元格建立鏈接，按下確定按鈕。選中A21單元格，在編輯欄中輸入“= B19”，此時(shí)點(diǎn)擊微調(diào)按鈕，就可自動(dòng)調(diào)節(jié)B19和A21單元格序號(hào)值，對應(yīng)的數(shù)據(jù)就會(huì)在模板中自動(dòng)生成，效果如圖5。接下來就是打印了。執(zhí)行“工具宏Visul Basic編輯器”命令，在Visul Basic編輯器中選擇“插入添加模塊”，在代碼窗口輸入以下代碼：Sub 打印()ActiveWindo

7、w.SelectedSheets.PrintOut Copies:=1, Collate:=TrueCall dyEnd SubSub dy()Dim a%, b$, c$, abc$a = Sheets(Sheet2).Cells(19, 2).Valueb = Sheets(Sheet2).Cells(19, 4).Value（說明：a即B19單元格，是圖5中打印第頁至第頁中的起始頁，b即D19單元格，是終止頁。）If a b Thena = a + 1Sheets(Sheet2).Cells(19, 2).Value = aCall 打印End IfEnd SubPrivate Sub CommandButton1_Click()Call 打印End Sub輸入完成后，保存關(guān)閉VBA編輯窗口返回工作表狀態(tài)。同制作微調(diào)按鈕