小卒程式設計工作室http://oliverkong358.blogspot.tw/

自己的軟體，自己做主！

• 
  
  
  
  • 終於可以有自己的工作軟體。
  
  
  • 終於不必再為不需要的功能付款。
  
  
  • 終於可以有簡單操作，輕鬆查詢、取得所需資料和報表的方式。
  
  
  
  

  終於終於，您只需告訴我們需求，就可以得到一個好用的，經量身訂製，專屬的進銷存/客戶/供應商/會計/名片...管理軟體。

  
  

  也終於終於，可以不必再為價格煩惱，先不談有提供免費的軟體，因為量身訂製，會讓每一分錢都“名符其實”，當然也讓“物超所值”不再是夢想。簡單、好用，輕鬆管理

  
  

  自己的軟體，當然是自己做主！

  
  

  聯絡我們:     郵          箱: oli577@yahoo.com

  
  

                     MSN: oliver_358@hotmail.com

  
  

                     即時通: oli577

  
  

                     SKYPE號碼 :  oli577_ 358

  
  

說到管理系統，直接的反應是複雜，應該是要涵蓋到N多項的功能。實際上真正實用的地方，而且是可以簡單操作就完成的，可能才是最需要的管理系統，或者是說，一沙一世界，可以解決一個問題的管理系統。
常常幫客戶設計的管理系統，有時過很久，再看到客戶的檔案，會發現幾乎都有已出貨，但沒有收款的情形，有的說是收了款，忘記做帳，有的是款項不多，所以等下次一起收，應該不多錢，結果我們將明細列給客戶，整個"哇，這麼多筆嗎?"，更有的是感覺好像已收過，等等的狀況。

少子化是趨勢，越來越強的競爭環境也是不爭的事實。各式各樣的補習班如雨後春筍，強大的師資+有效的管理，成為補習班可以永續經營不可缺少的利器。
學生來報名，姓名、年齡、身分證號碼、家庭住址、連絡方式等基本資料必不可少；
接下來注冊費、安親月費、晚餐代訂費等七費八費；
重頭戲的數學、國文、英文、物理、化學等上課費用、課程時間表、各課的負責老師；
孩子要全面發展，不能輸在起跑線上，所以無論如何都要再擠出時間，培養多元的興趣：鋼琴、小提琴、烏克麗麗、跆拳道、直排輪、網球、游泳等才藝課選一或選多，都考驗著為人長輩的智慧和荷包，當然最關鍵的是測試莘莘學子的最大極限。

接上月的內容，管理系統內，如果發現輸入的資料有問題，除了做必要的資料修改，另一個方式是做資料刪除。同樣的操作介面，我們今天來做資料刪除的程式。在刪除程式設計時，設計者需考慮到一個方面，若此客戶在系統內已建立了後續的操作資料，比如已有消費資料或相關工程記錄等，那此客戶的基本資料就不可再做資料刪除，以保持原始資料的完整性。
系統程式放上網後，陸續都會有網友提出討論，若有問題，我們持續做進一步的探討，還是一樣，可以私訊、文章下留言、MAIL或SKYPE等，希望更多有興趣的朋友加入：

接上月的內容，管理系統最主要的功能是可以做各種需要的資料查詢，這個月我們來做資料
查詢的功能，同樣的操作介面，我們先來做單筆資料的資料查詢，上個月有網友私訊討論，
若有問題，我們持續做討論，可以私訊、文章下留言、MAIL或SKYPE等，希望更多有興趣的朋友加入：

接上月的內容，管理系統最主要的功能是可以做各種需要的資料查詢，這個月我們來做資料查詢的功能，同樣的操作介面，我們先來做單筆資料的資料查詢，上個月有網友私訊討論，若有問題，我們持續做討論，可以私訊、文章下留言、MAIL或SKYPE等，希望更多有興趣的朋友加入：
Sub 客戶的資料查詢()
Application.ScreenUpdating = False
Dim i, j, k, ir, ic 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 d As Date
Dim r As Long
Sheets("客戶").Select
ActiveSheet.Unprotect Password:="*****"
Cells(1, "N") = "資料查詢"
If ActiveCell = "" Then
    MsgBox "選取的是空的資料，請選取客戶名稱下的項目進行操作！"
     Range("C19").Select
Else
    Sheets("客戶").Select
    ir = ActiveCell.Row
    ic = ActiveCell.Column
  If ic = 3 And ir > 20 Then
    'Cells(22, "G") = ActiveCell
    s = ActiveCell
    Range("E7:M15").Copy
    Range("E22").Select
    ActiveSheet.Paste
    Cells(16, "C") = s
    Cells(22, "G") = Cells(17, "C")
    'Cells(22, "G") = Cells(1, "R")      '客戶編號
    If Cells(2, "R") <> "" Then Cells(23, "G") = Cells(2, "R")   '客戶名稱
    If Cells(3, "R") <> "" Then Cells(22, "J") = Cells(3, "R")     
    If Cells(4, "R") <> "" Then Cells(24, "G") = Cells(4, "R")     
    If Cells(5, "R") <> "" Then Cells(25, "G") = Cells(5, "R")     
    If Cells(6, "R") <> "" Then Cells(26, "H") = Cells(6, "R")     
    If Cells(7, "R") <> "" Then Cells(27, "H") = Cells(7, "R")     
    If Cells(8, "R") <> "" Then Cells(28, "H") = Cells(8, "R")     
    If Cells(9, "R") <> "" Then Cells(29, "H") = Cells(9, "R")     
    If Cells(10, "R") <> "" Then Cells(22, "L") = Cells(10, "R")     
    If Cells(11, "R") <> "" Then Cells(23, "L") = Cells(11, "R")     
    If Cells(12, "R") <> "" Then Cells(24, "L") = Cells(12, "R")     
    If Cells(13, "R") <> "" Then Cells(25, "L") = Cells(13, "R")     
    If Cells(14, "R") <> "" Then Cells(26, "L") = Cells(14, "R")     
    If Cells(15, "R") <> "" Then Cells(27, "L") = Cells(15, "R")     
    If Cells(16, "R") <> "" Then Cells(28, "L") = Cells(16, "R")     
    If Cells(17, "R") <> "" Then Cells(29, "L") = Cells(17, "R")     
    If Cells(18, "R") <> "" Then Cells(30, "H") = Cells(18, "R")     
 '另一個方式，程式碼較簡單
    Cells(21, "C") = ""
    Cells(ir + 1, ic).Select
    Cells(2, "N") = "資料查詢"
  Else
    MsgBox "選取無效的儲存格，請選取客戶名稱下的項目進行操作！"
     Range("C19").Select
  End If
End If
Sheets("客戶").Select
Application.CutCopyMode = False
ActiveSheet.Protect Password:="*****"
End Sub

接上月的內容，管理系統最主要的功能是可以做各種需要的資料查詢，這個月我們來做資料查詢的功能，同樣的操作介面，我們先來做單筆資料的資料查詢，上個月有網友私訊討論，若有問題，我們持續做討論，可以私訊、文章下留言、MAIL或SKYPE等，希望更多有興趣的朋友加入：
Sub 客戶的資料查詢()
Application.ScreenUpdating = False
Dim i, j, k, ir, ic 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 d As Date
Dim r As Long
Sheets("客戶").Select
ActiveSheet.Unprotect Password:="*****"
Cells(1, "N") = "資料查詢"
If ActiveCell = "" Then
    MsgBox "選取的是空的資料，請選取客戶名稱下的項目進行操作！"
     Range("C19").Select
Else
    Sheets("客戶").Select
    ir = ActiveCell.Row
    ic = ActiveCell.Column
  If ic = 3 And ir > 20 Then
    'Cells(22, "G") = ActiveCell
    s = ActiveCell
    Range("E7:M15").Copy
    Range("E22").Select
    ActiveSheet.Paste
    Cells(16, "C") = s
    Cells(22, "G") = Cells(17, "C")
    'Cells(22, "G") = Cells(1, "R")      '客戶編號
    If Cells(2, "R") <> "" Then Cells(23, "G") = Cells(2, "R")   '客戶名稱
    If Cells(3, "R") <> "" Then Cells(22, "J") = Cells(3, "R")     
    If Cells(4, "R") <> "" Then Cells(24, "G") = Cells(4, "R")     
    If Cells(5, "R") <> "" Then Cells(25, "G") = Cells(5, "R")     
    If Cells(6, "R") <> "" Then Cells(26, "H") = Cells(6, "R")     
    If Cells(7, "R") <> "" Then Cells(27, "H") = Cells(7, "R")     
    If Cells(8, "R") <> "" Then Cells(28, "H") = Cells(8, "R")     
    If Cells(9, "R") <> "" Then Cells(29, "H") = Cells(9, "R")     
    If Cells(10, "R") <> "" Then Cells(22, "L") = Cells(10, "R")     
    If Cells(11, "R") <> "" Then Cells(23, "L") = Cells(11, "R")     
    If Cells(12, "R") <> "" Then Cells(24, "L") = Cells(12, "R")     
    If Cells(13, "R") <> "" Then Cells(25, "L") = Cells(13, "R")     
    If Cells(14, "R") <> "" Then Cells(26, "L") = Cells(14, "R")     
    If Cells(15, "R") <> "" Then Cells(27, "L") = Cells(15, "R")     
    If Cells(16, "R") <> "" Then Cells(28, "L") = Cells(16, "R")     
    If Cells(17, "R") <> "" Then Cells(29, "L") = Cells(17, "R")     
    If Cells(18, "R") <> "" Then Cells(30, "H") = Cells(18, "R")     
 '另一個方式，程式碼較簡單
    Cells(21, "C") = ""
    Cells(ir + 1, ic).Select
    Cells(2, "N") = "資料查詢"
  Else
    MsgBox "選取無效的儲存格，請選取客戶名稱下的項目進行操作！"
     Range("C19").Select
  End If
End If
Sheets("客戶").Select
Application.CutCopyMode = False
ActiveSheet.Protect Password:="*****"
End Sub

這個月過年，新年初始，小卒也順應一下新年新氣象，以小卒的程式碼呈現EXCEL VBA在管理系統的運用。一直以來，都有客戶或網友詢問系統的程式碼，VBA高手在民間，但我們別緻之處在於系統中的架構設計，再輔以對應的VBA程式。值得很驕傲的對設計師說，辛苦了！憑著對產業的基本了解，靠著與客戶的耐心溝通，利用對程式設計的扎實功底，小卒工作室真的是做了很多行業的管理系統，傳統的製造業、新興的電子業、餐飲業、蓄牧業，從菜市場到日常百貨商品，還涉獵到監獄，也走進慈善團體，不可思義。所以這次開始關於程式的貼文，其一是對客戶要求的回應；其二，希望有同好交流，對VBA程式有興趣者，可將小卒程式碼擴展、發揮到更多的用途。

需要找南部的幼保系資料?
需要找全台灣幼兒保育科的各主任的聯絡資料?
需要找屏東縣國立內埔農工的家政科的詳細人員資料?
查詢幼兒教育學系學生高中、高職業的來源?
查詢南部105年度畢業學校資料?
查詢...查詢...查詢...
所需的內容都可以很清楚、有效率的在小卒工作室設計的幼教系招生登錄管理系統內找到報表，並隨時列印出來.
平時花少少的時間，依以下表格的設計與操作方式，逐一建立基本資料就可：

越來越頻繁的網路購物，購買當下看不到真正的實物，收到貨後才會發現有需要更多思考的地方；有些時候是買的很滿意，但拿到貨後新鮮感或購物衝動勁頭過了，就會想反悔，如此等等的狀況。對於商家，過規定的鑑賞期，若沒有收到客戶的退貨信息，應收帳款才會轉成真正的已收帳款。如果有個系統操作介面可以每天列出將到鑑賞期的貨品和客戶資訊等資料，確定對於商家的管理上會有一定的助力。
此為一客戶量身設計的進銷存管理系統，如上圖所示，這是在小卒的管理系統內每次簡單的輸入進銷存管理系統，包括銷貨日期和客戶與商品資訊就可，在這個鑑賞期查詢介面上，會依業者設定的鑑賞期的查詢天數，自動顯示出對應的銷售明細，查詢出的銷售若是客戶真的退貨，可選此單筆資料，做銷貨的確認取消。