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

渡假飯店管理系統

即將到來的四天連假，大家的出游計劃應該早早就準備妥當，渡假勝地、旅遊景點的飯店、住宿等更是磨拳擦掌，一套簡單、實用的營收管理系統自然不會缺席這場盛宴。
說簡單是因為館內的消費內容相對固定，所以事先將資料建入系統的基本資料庫，以備隨時方便取用；簡單之二是收銀或櫃台人員及時將單一散客或旅行社的整體消費資訊逐項輸入電腦系統內，包括客戶名稱、消費日期、消費項目、數量、單價，也可輸入預付定金的款項和其他預定事項或客人指定要求等。
再來表現實用的功能，
1. 客人消費期間或下次來店之前，清楚掌握客戶的消費習慣，並佐以適合的服務方式，以此提升店內的服務品質和客人對商館的黏著度
2. 客人消費結束，隨時可列印、查詢消費明細和帳單金額
3. 日、月、季、年度的營收明細一目了然
如果增加輸入各分館的營運資料，總公司的營運分析能力會得到更進一步的強力整合。
‧‧‧‧‧‧
隨時簡單的建立各基本資料，隨時都可以輕鬆簡單的查詢需要的數據和報表，而且是可以依各人、各公司的實際需求，做相應的功能擴充或修改等設計，量身訂製出真正完全適合的專屬管理系統。簡單、好用，輕鬆管理，請隨時連絡：
         SKYPE：   oli577_358
        E-mail ：   oli577@yahoo.com(沒有TW喔)

泥做工程管理系統

基礎建設中的水泥工程是必不可少的項目，專業的師傅加上簡單、有效率的記帳管理系統，理所當然的推升事業的步步高升：
1. 建立客戶基本資料
2. 建立承包商的基本資料
3. 輸入每次客戶的工程合約資料，可以同時進行很多不同的工程記綠
4. 依工程合約資料，點選客戶當次的請款單明細，不必重覆輸入相同的資料或多次複製--貼上等操作
5. 依工程合約資料，點選承包商當次付款單明細，不必重覆輸入相同的資料或多次複製--貼上等操作
6. 依客戶請款單金額，簡單記錄每次的收款明細，包括稅率的自行選取
7. 依承包商付款單金額，簡單記錄每次的付款明細
8. 依工程合約查詢客戶應收帳款、已收帳款、未收帳款(總帳)
9. 依工程合約查詢客戶請款和收款明細
10. 依工程合約查詢承包商應付帳款、已付帳款、未付帳款(總帳)
11. 依工程合約查詢承包商付款明細
‧‧‧‧‧‧
隨時簡單的建立各基本資料，隨時都可以輕鬆簡單的查詢需要的數據和報表，而且是可以依各人、各公司的實際需求，做相應的功能擴充或修改等設計，量身訂製出真正完全適合的專屬管理系統。簡單、好用，輕鬆管理，請隨時連絡：
         SKYPE：   oli577_358
        E-mail ：  oli577@yahoo.com(沒有TW喔)