收據未銷帳查詢管理系統

說到管理系統，直接的反應是複雜，應該是要涵蓋到N多項的功能。實際上真正實用的地方，而且是可以簡單操作就完成的，可能才是最需要的管理系統，或者是說，一沙一世界，可以解決一個問題的管理系統。

常常幫客戶設計的管理系統，有時過很久，再看到客戶的檔案，會發現幾乎都有已出貨，但沒有收款的情形，有的說是收了款，忘記做帳，有的是款項不多，所以等下次一起收，應該不多錢，結果我們將明細列給客戶，整個"哇，這麼多筆嗎?"，更有的是感覺好像已收過，等等的狀況。

這個月遇到僅做這個查詢功能的設計要求，家里的小小店，敦親睦鄰，但生意還是生意，"等等給錢"、"下次一起算"、"阿嬤來付錢"、"喔，上次沒給錢嗎? 會不會記錯了?......，久了，自然會想辦法去解決，所以僅做一個收據未銷帳查詢，單純的操作畫面，各人帳目清清楚楚，有圖有真相，咖好收款。

‧‧‧‧‧
隨時簡單的建立各基本資料，隨時都可以輕鬆簡單的查詢需要的數據和報表，而且是可以依各人、各公司的實際需求，做相應的功能擴充或修改等設計，量身訂製出真正完全適合的專屬管理系統。簡單、好用，輕鬆管理，請隨時連絡：
         SKYPE：   oli577_358
        E-mail ：   oli577@yahoo.com(沒有TW喔)

文理補習班管理系統

少子化是趨勢，越來越強的競爭環境也是不爭的事實。各式各樣的補習班如雨後春筍，強大的師資+有效的管理，成為補習班可以永續經營不可缺少的利器。

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

最後需先列印關鍵的這一張：

當然各項收費查詢、老師課表、補習班的收益等等，系統自會有條不紊的讓您隨時取用。

‧‧‧‧‧
隨時簡單的建立各基本資料，隨時都可以輕鬆簡單的查詢需要的數據和報表，而且是可以依各人、各公司的實際需求，做相應的功能擴充或修改等設計，量身訂製出真正完全適合的專屬管理系統。簡單、好用，輕鬆管理，請隨時連絡：
         SKYPE：   oli577_358
        E-mail ：   oli577@yahoo.com(沒有TW喔)

VBA在管理系統的運用實例(四)

接上月的內容，管理系統內，如果發現輸入的資料有問題，除了做必要的資料修改，另一個方式是做資料刪除。同樣的操作介面，我們今天來做資料刪除的程式。在刪除程式設計時，設計者需考慮到一個方面，若此客戶在系統內已建立了後續的操作資料，比如已有消費資料或相關工程記錄等，那此客戶的基本資料就不可再做資料刪除，以保持原始資料的完整性。

系統程式放上網後，陸續都會有網友提出討論，若有問題，我們持續做進一步的探討，還是一樣，可以私訊、文章下留言、MAIL或SKYPE等，希望更多有興趣的朋友加入：

Sub 客戶的資料刪除()
Application.ScreenUpdating = False
Dim Message, Title, Default, CheckSame
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") = "資料刪除"
s = Cells(22, "G")
last = Cells(1, "H")
m0 = Cells(2, "H")
cif = Cells(3, "H")
If s = "" Then
    MsgBox "請先查詢資料！"
Else
If m0 < 1 Then       '沒有Match到資料
    MsgBox "資料庫內無 ( " & s & " ) 的資料！"
Else
If Cells(3, "H") > 0 Then
        MsgBox "壓送資料已有 ( " & s & "  ) 的記錄，不可刪除！"
Else
        r = MsgBox("要刪除 ( " & s & " ) 的資料？", _
            vbQuestion + vbOKCancel, "確認進行刪除")
  If r = vbOK Then
    Sheets("客戶").Select
    Sheets("基本資料").Visible = True
    Sheets("基本資料").Select
    Range(Cells(m0 + 1, "A"), Cells(last + 3, "R")).Copy
    Cells(m0, "A").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Sheets("基本資料").Visible = xlVeryHidden
 '以預設範圍複製貼上，使用者可能從別處貼過來，復原
    Sheets("客戶").Select
    Range("E7:M15").Copy
    Range("E22").Select
    ActiveSheet.Paste
    Cells(21, "C") = ""
    Cells(2, "N") = "資料刪除"
     MsgBox "選取的資料已刪除！"
  Else
            MsgBox "刪除取消", _
                vbInformation + vbOKOnly, "使用者取消刪除動作"
  End If
End If
End If
End If
Sheets("客戶").Select
Application.CutCopyMode = False
ActiveSheet.Protect Password:="*****"
Range("A3").Select
End Sub

VBA在管理系統的運用實例(三)

接上月的內容，管理系統最主要的功能是可以做各種需要的資料查詢，如果發現輸入的資料有問題，就會需要做資料修改。同樣的操作介面，我們今天來做資料修改的程式，近期都會有網友提出討論，若有問題，我們持續做進一步的探討，還是一樣，可以私訊、文章下留言、MAIL或SKYPE等，希望更多有興趣的朋友加入：

Sub 工程的資料修改()
Application.ScreenUpdating = False
Dim Message, Title, Default, CheckSame
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") = "資料修改"
s = Cells(22, "G")
m0 = Cells(2, "G")
If s = "" Then
    MsgBox "請先查詢資料！"
Else
If m0 < 1 Then
    MsgBox "資料庫無 ( " & s & " ) 的工程單號資料！"
Else
If Cells(23, "G") <> Cells(2, "R") Then
    MsgBox "工程名稱不可修改！"
Else
If Cells(23, "I") = "" Then
    MsgBox "客戶編號須有資料！"
Else
    r = MsgBox("要修改 ( " & s & " ) 的資料？", _
        vbQuestion + vbOKCancel, "確認進行修改")
      If r = vbOK Then
        Sheets("工程資料").Visible = True
        Sheets("工程").Select
     '如果使用函數導至K欄
        Range("Q1:Q6").Copy
        Sheets("工程資料").Select
        Cells(m0, "A").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Transpose:=True
        Sheets("工程資料").Visible = xlVeryHidden
 '以預設範圍複製貼上，使用者可能從別處貼過來，復原
        Sheets("工程").Select
        Range("E7:J10").Copy
        Range("E22").Select
        ActiveSheet.Paste
        Cells(2, "N") = "資料修改"
            MsgBox s & " 資料已修改！"
      Else
        MsgBox "修改取消", _
            vbInformation + vbOKOnly, "使用者取消修改動作"
      End If
End If
End If
End If
End If
Sheets("工程").Select
Application.CutCopyMode = False
ActiveSheet.Protect Password:="*****"
Range("A3").Select
End Sub

VBA在管理系統的運用實例(二)

接上月的內容，管理系統最主要的功能是可以做各種需要的資料查詢，這個月我們來做資料查詢的功能，同樣的操作介面，我們先來做單筆資料的資料查詢，上個月有網友私訊討論，若有問題，我們持續做討論，可以私訊、文章下留言、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

VBA在管理系統的運用實例(一)

這個月過年，新年初始，小卒也順應一下新年新氣象，以小卒的程式碼呈現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

幼教系招生登錄管理系統

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

‧‧‧‧‧
隨時簡單的建立各基本資料，隨時都可以輕鬆簡單的查詢需要的數據和報表，而且是可以依各人、各公司的實際需求，做相應的功能擴充或修改等設計，量身訂製出真正完全適合的專屬管理系統。簡單、好用，輕鬆管理，請隨時連絡：
         SKYPE：   oli577_358
        E-mail ：   oli577@yahoo.com(沒有TW喔)