匯入學生的成績單，命名為“成績表”，在成績表中輸入各科成績，任課教師和總分、排名等。再建立一張評語表，命名為“評語”，在裡面有教師對各位學生的評語。在建一張表命名為“通知書”，在裡面設計好通知書內容。

在“通知書”工作表中新建一個表格輸入“序號”，如圖所示，同時選擇C6單元格輸入=OFFSET(成績表!$A$3,通知書!$M$1*1-1,0)&""，這樣可以在C3輸入姓名。

選擇C6單元格，輸入函式=VLOOKUP($C$2,成績表!$A$3:$I$16,2,0)，在C6中出現學生的數學成績，同樣在：

D6單元格，輸入函式=VLOOKUP($C$2,成績表!$A$3:$I$16,3,0)

E6單元格，輸入函式=VLOOKUP($C$2,成績表!$A$3:$I$16,4,0)

F6單元格，輸入函式=VLOOKUP($C$2,成績表!$A$3:$I$16,5,0)

G6單元格，輸入函式=VLOOKUP($C$2,成績表!$A$3:$I$16,6,0)

H6單元格，輸入函式=VLOOKUP($C$2,成績表!$A$3:$I$16,7,0)

I6單元格，輸入函式=VLOOKUP($C$2,成績表!$A$3:$I$16,8,0)

J6單元格，輸入函式=VLOOKUP($C$2,成績表!$A$3:$I$16,9,0)

現在成績就全部輸入了。

選擇C7單元格，輸入函式=VLOOKUP($B$7,成績表!$A$3:$I$20,2,0)在C6中出現學生的數學成績，同樣在：

D7單元格，輸入函式=VLOOKUP($B$7,成績表!$A$3:$I$20,3,0)

E7單元格，輸入函式=VLOOKUP($B$7,成績表!$A$3:$I$20,4,0)

F7單元格，輸入函式=VLOOKUP($B$7,成績表!$A$3:$I$20,5,0)

G7單元格，輸入函式=VLOOKUP($B$7,成績表!$A$3:$I$20,6,0)

H7單元格，輸入函式=VLOOKUP($B$7,成績表!$A$3:$I$20,7,0)

I7單元格，輸入函式=VLOOKUP($B$7,成績表!$A$3:$I$20,8,0)

J7單元格，輸入函式=VLOOKUP($B$7,成績表!$A$3:$I$20,9,0)

現在任課教師就全部輸入了。

現在我們來輸入評語，在B9單元格中輸入=VLOOKUP($C$2," 評語"!$A$2:$B$15,2,0)，單擊回車，就看到教師評語了。

Private Sub 列印通知書_Click()

For i = Range("M5") To Range("M6")

Range("m1") = i

ActiveSheet.PrintOut

Next

End Sub