這個月過年，新年初始，小卒也順應一下新年新氣象，以小卒的程式碼呈現EXCEL VBA在管理系統的運用。一直以來，都有客戶或網友詢問系統的程式碼，VBA高手在民間，但我們別緻之處在於系統中的架構設計，再輔以對應的VBA程式。值得很驕傲的對設計師說，辛苦了！憑著對產業的基本了解，靠著與客戶的耐心溝通，利用對程式設計的扎實功底，小卒工作室真的是做了很多行業的管理系統，傳統的製造業、新興的電子業、餐飲業、蓄牧業，從菜市場到日常百貨商品，還涉獵到監獄，也走進慈善團體，不可思義。所以這次開始關於程式的貼文，其一是對客戶要求的回應；其二，希望有同好交流，對VBA程式有興趣者，可將小卒程式碼擴展、發揮到更多的用途。
小卒可以說是從YAHOO的知識+開始，一步一腳印，從一無所知的找單方式，到每天趴在電腦前刷新提問區，希望可以第一個回答到關於系統的提問；從免費設定EXCEL函數開始，到第一筆客戶主動匯入的茶水費；從VB+ACCESS轉戰至EXCEL+VBA入門，到每天都有系統新程式的發展；從開放的系統規格，到不付款的客戶；藉由知識+內同好尋找答案，給答題者匯去小小一筆感謝費，到聯手會計專長的高手，一起合作客戶的案子；從操作介面的設計步步完善，到定調以量身打造為系統設計的主軸。
記得11、12點的一個晚上，曾是客戶的上海台商發來訊息，他在找一個計算的設定，很急！當下我們也是無解，馬上到知識+，竟意外找到知識長出來救火。一路走來，感謝知識長、worlon、老年人、大流士等等。
也是三更半夜響起的電話鈴聲，夜班的客戶在操作系統出現問題，沒有系統全部工作停擺，網路連起在遠方的小卒，當然是排除問題，讓驚訝的客戶滿意而嘆。
也有客戶曾經好奇的問，你們寫這麼多CASE，應該有10多位設計師吧；
還曾收到微軟的MAIL，詢問我們的EXCEL，當下第一個反應是，我們是用正版的喔，以為是遇到抓盜版的人。原來對方是微軟的一位項目經理，負責EXCEL的VBA適用於中小企業的範本設計，有網友介紹他看我們的部落格，然後他寫MAIL詢問我們設計等相關事宜。不知道現在若他看到我們將呈現的VBA程式碼，會做如何感想？
行文到此，來看主角。今天我們來介紹客戶資料的建檔，直接以貼圖和程式碼來說話：
Sub 客戶的資料儲存()
Application.ScreenUpdating = False
Dim i, j, k As Long
Dim m0, cif, last As Long
Dim rsf, rc, rs, rt As Long
Dim y, m, d1, d2, n, s, t As Variant
Dim r As Long
Sheets("客戶").Select
ActiveSheet.Unprotect Password:="******"
Cells(1, "N") = "資料儲存"
s = Cells(22, "G")
t = Cells(23, "G")
last = Cells(1, "H")
m0 = Cells(2, "H")
cif = Cells(3, "H")
If s = "" Then
MsgBox "客戶編號須有資料！"
Else
If m0 > 0 Then
MsgBox "已有 ( " & s & " ) 的客戶編號！"
Else
If Cells(23, "G") = ""
Then
MsgBox "客戶名稱須有資料！"
Else
If Cells(5, "H") > 0 Then
s
= Cells(23, "G")
MsgBox "客戶名稱 ( " & s & " ) 資料庫已有記錄！"
Else
If Cells(2, "J") > 0 Then
MsgBox "客戶編號已有 ( " & s & " ) 的編號，兩者不可重複！"
Else
If Cells(5, "J") > 0 Then
s
= Cells(23, "G")
MsgBox "名稱 ( " & s & " ) 客戶資料庫已有記錄！"
Else
Sheets("基本資料").Visible = True
Sheets("客戶").Select
Range("Q1:Q18").Copy
Sheets("基本資料").Select
Cells(last + 1, "A").Select
Selection.PasteSpecial Paste:=xlPasteValues, Transpose:=True
'"客戶資料"內編號排序
Range(Cells(3, "A"), Cells(last + 5, "R")).Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, _
Header:=xlNo
Sheets("基本資料").Visible = xlVeryHidden
'清除畫面，以預設範圍複製貼上
Sheets("客戶").Select
Range("E7:M15").Copy
Range("E22").Select
ActiveSheet.Paste
'使用函數的情形
last = Cells(1, "H")
rs = Cells(2, "C")
rYes = Cells(3, "C")
If rYes < 5 Then
Cells(rs, "C").Copy
Range(Cells(rs + 1, "C"), Cells(rs + 5, "C")).Select
ActiveSheet.Paste
End If
Cells(21, "C") = ""
Cells(2, "N") = "資料儲存"
End If
End If
End If
End If
End If
End If
Sheets("客戶").Select
Application.CutCopyMode = False
ActiveSheet.Protect Password:="******"
Range("A3").Select
End Sub
