吳老師教學部落格(痞客邦分站)

本範例主要分享銷貨訂單的自動化，把EXCEL當成輸入介面，

當然也可以利用VBA裡的表單來製作，難度會比較高些，

不過感覺會更專業些，但是無論哪種方式，

最主要是可以輔助輸入的效率與正確性，

讓輸入資料不易出錯，

也無法隨意竄改，

所以需要最後配合保護工作表，

除了四個區域(單號、客戶、商品、數量)可以修改外，

其他都不能修改，避免輸入資料正確性，

另外下拉清單也可以自動帶出其他資料，

這樣就可以加快輸入效率，

最後，可以再利用VBA程式，

將所有資料存在銷貨明細一筆紀錄，單號也自動加一之後，

又可以繼續輸入資料，達到類似進銷存系統的目的。

以下分享流程：

1.訂單日期

02_到貨日期

03_到貨日期(避開六日)

04_客戶

05_序號

06_商品

07_小計

08_保護工作表

09_增加訂單明細工作表

10_VBA程式畫面

Public Sub 新增資料()

   '1.判斷在哪一列

   If Sheets("銷貨明細").Range("A2") = "" Then

       r = 2

   Else

       r = Sheets("銷貨明細").Range("A1").End(xlDown).Row + 1

   End If

   '2.輸出資料

   '單號

   Sheets("銷貨明細").Cells(r, "A") = Range("B2")

   '訂單日期

   Sheets("銷貨明細").Cells(r, "B") = Range("D2")

   '到貨日期

   Sheets("銷貨明細").Cells(r, "C") = Range("G2")

   '客戶編號

   Sheets("銷貨明細").Cells(r, "D") = Range("B3")

   '客戶名稱

   Sheets("銷貨明細").Cells(r, "E") = Range("C3")

   '連絡電話

   Sheets("銷貨明細").Cells(r, "F") = Range("G3")

   '地址

   Sheets("銷貨明細").Cells(r, "G") = Range("B4")

   '銷貨總額

   Sheets("銷貨明細").Cells(r, "H") = Range("G4")

   '3.清空資料

   'Range("B2") = ""

   Range("B3") = ""

   Range("E2") = ""

   Range("B7:B16").ClearContents

   Range("F7:F16").ClearContents

   '4.單號加1

   Range("B2") = Range("B2")+ 1

End Sub