1、打“單據檔案”，點開“入庫單”工作表，全選工作表，注意是全選工作表，而不是全選“入庫單”這個表格，複製整個工作表。

2、點開“訂貨單”工作表，選中A1單元格，把複製的東西全部貼上下來。注意，是內容、格式、公式全部貼上。

3、更改一下貼上下來的“入庫單”相關內容：單據名稱裡的“入庫單”三字改為“訂貨單”，單據尾部的“收貨人”改為“制單”，“送貨人”改為“稽核”。

4、點開入庫記錄，全選工作表，單擊右鍵，複製整個工作表。方法：選中空白處任意單元格，Ctrl+A——Ctrl+。

5、點開“訂貨記錄”工作表，選中A1單元格，貼上全部（格式、內容、公式）。

6、然後把貼上下來的欄位名改一下，“收貨人”改成“制單”。其他地方內容一樣，不需修改。

7、按Alt+F11，開啟VB編輯器，把模組1的程式碼複製下來。

8、插入一個新模組，系統會自動命名為“模組2”，點開模組2，修改一程式碼。

9、進行儲存即可。