EXCEL技巧——製作批次列印通知書系統

1

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

2

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

3

  選擇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)

  現在成績就全部輸入了。

4

   選擇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)

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

5

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

6

  現在我們來實現批次列印，在L5中輸入「開始序號」，在L6中輸入「結束序號 」 ，在M5中輸入1，在M6中輸入14，單擊「開發工具」——插入——命令按鈕，在M1中劃出按鈕。

右鍵按鈕，選擇檢視程式碼，在程式碼編輯框中輸入：

Private Sub 列印通知書_Click()

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

    Range("m1") = i

    ActiveSheet.PrintOut

    Next

End Sub

關閉程式碼視窗，點選「設計模式」，退出編輯狀態，現在，單擊command按鈕就可以批次列印了。