【文章內(nèi)容簡介】 vbNo　　 = False　　　　End Select　　End Sub ‘ 以上是執(zhí)行退出存盤　　Sub 初始化() ‘指定給主界面上的系統(tǒng)初始化按鈕　　定義界面 ‘調(diào)用定義界面宏改變應用程序標題　　Worksheets(記錄單).Activate　　Worksheets(記錄單).Range(c5:d330).Select　　　　Worksheets(報表).Activate　　　　Worksheets(報表).Range(c6:f331).Select　　　　Worksheets(主界面).Activate ‘以上代碼是清除記錄單和報表數(shù)據(jù)　　宏1‘調(diào)用宏1　　End Sub　　Sub 宏1()　　With Toolbars(1)　　.Visible = False　　.Position = xlFloating　　.Left = 89　　.Top = 67　　End With　　With Toolbars(2)　　.Visible = False　　.Position = xlFloating　　.Left = 79　　.Top = 78　　End With　　 = False　　End Sub　　39。 宏2 Macro　　39。 ykq記錄宏1997/1/10　　39?！　?9。 快捷鍵: Ctrl+e　　Sub 宏2()　　 = True　　Toolbars(1).Visible = True　　Toolbars(2).Visible = False　　With Application　　.ShowToolTips = True　　.LargeButtons = False　　.ColorButtons = True　　End With　　Toolbars(1).Visible = True　　With Toolbars(2)　　.Visible = True　　.Position = xlTop　　End With　　With Application　　.ShowToolTips = True　　.LargeButtons = False　　.ColorButtons = True　　End With　　Toolbars(1).Position = xlTop　　Worksheets(主界面).Activate　　End Sub　　Sub 定義界面()　　 = 保定農(nóng)校水電計價系統(tǒng)　　 = 　　End Sub　　39?？旖萱I ctrl+s　　Sub 密碼() ‘指定給主界面上的密碼設置按鈕　　d = InputBox(請輸入舊密碼：, 保定農(nóng)校水電計價系統(tǒng))　　If d = Worksheets(主界面).Range(v1).Value Then　　For x = 1 To 2　　a = InputBox(請輸入自定義密碼：, 保定農(nóng)校水電計價系統(tǒng))　　b = InputBox(請重新輸入自定義密碼：, 保定農(nóng)校水電計價系統(tǒng))　　If a = b And a Then　　c = a　　Worksheets(主界面).Range(v1).Value = c　　Exit For　　Else　　MsgBox 密碼輸入不正確　　End If　　Next x　　Else Exit Sub　　End If　　End Sub ‘以上代碼是設置密碼　　Sub 報表查詢() ‘指定給報表查詢按鈕　　Worksheets(查詢檔案).Activate　　　　End Sub ‘以上代碼是激活查詢檔案　　Sub 返回4() ‘指定給返回按鈕　　 ‘解除當前工作表保護　　Worksheets(主界面).Activate　　End Sub　　Sub 報表存檔() ‘指定給主報表上的報表存檔按鈕　　dj = Range($g$278).Value　　uj = Range($h$278).Value　　39。zj = Range($h$332).Value　　da = Range($g$277).Value　　ub = Range($h$277).Value　　If dj 0 Or uj 0 Or da 0 Or ub 0 Then　　　　Range(g5:h331,j5:l331).Select　　　　Worksheets(查詢檔案).Activate　　x = 1　　Do While Not (IsEmpty(Worksheets(查詢檔案).Cells(3, x).Value))　　x = x + 1　　Loop　　(3, x).Select　　 Paste:=xlValues, Operation:=xlNone, _　　SkipBlanks:=False, Transpose:=False　　Worksheets(查詢檔案).Cells(2, x).Value = y　　Worksheets(查詢檔案).Cells(2, x).Value = Worksheets(記錄單).Range($c$2)　　Worksheets(查詢檔案).Cells(2, x + 1).Value = 月　　Worksheets(主界面).Activate　　bsy ‘調(diào)用bsy宏　　Else　　MsgBox 不是正式 報表，不予存檔！　　Exit Sub　　End If　　End Sub ‘以上代碼是把報表數(shù)據(jù)存入查詢檔案　　39。 查詢檔案清理　　39。 快捷鍵: Ctrl+h　　Sub 宏3() ‘清理查詢檔案　　Worksheets(查詢檔案).Activate　　Range(B2:AN329).Select　　　　Range(a1).Select　　Worksheets(主界面).Activate　　End Sub　　39。　　39。 宏4 Macro　　39。 ykq記錄宏1997/1/10　　39。 檔案庫清理　　39?！　?9。 快捷鍵: Ctrl+j　　Sub 宏4() ‘清理查表檔案　　Worksheets(檔案).Activate　　Range(C4:AB329).Select　　　　Range(a1).Select　　Worksheets(主界面).Activate　　End Sub　　應用程序二：銷售管理系統(tǒng)　　在商業(yè)企業(yè)的經(jīng)營活動中，主要業(yè)務活動是進銷存。本程序主要解決銷售的問題，關于進貨和庫存留給讀者自己在原來程序的基礎上進一步開發(fā)?！　?銷售管理系統(tǒng)的功能　　自動計算進貨金額、銷貨金額和毛利?！　》诸悈R總功能，可按商品和經(jīng)手人代碼進行分類匯總?！　〈蛴」δ堋　〔樵児δ埽砂瓷唐泛徒?jīng)手人代碼進行查詢）。　　 銷售管理系統(tǒng)的程序設計　　銷售管理系統(tǒng)總體設計　　界面設計：（圖8）　　主界面如（圖9）所示：　　界面具體設計過程：　　選定一工作表，重命名為“主界面”。　　選定工作表區(qū)域，設置區(qū)域顏色。　　在區(qū)域內(nèi)添加應用程序標題和命令按鈕?！　〗o按鈕指定宏 ?！　χ鹘缑孢M行口令保護?！　》指罟ぷ鞅韰^(qū)域并凍結(jié)，以防屏幕滾動?！　“l(fā)貨單如（圖10）所示：　　發(fā)貨單界面設計過程如下：　　按圖10格式制表?！　》胖妹畎粹o?！　∵x定A5,C5,E5,E10,A7:F9解鎖定?！　≡贕7,G8,G9單元格里依次輸入公式＝E7*F7,=E8*F8,=E9*F9,??G10單元格里輸入 =SUM(G7:G9)。　　保護工作表?！　∶怂惚砣纾▓D11）所示：　　界面具體設計過程：　　選定一工作表重命名為“毛利核算”?！　“磮D11所示制表?！　≡诿怂惚砩咸砑用畎粹o并給之指定宏?！　】v向凍結(jié)A、B兩列，橫向凍結(jié)1－3行?！　ぷ鞅磉M行保護?！　?銷售管理系統(tǒng)的VBA代碼及說明　　Sub fhd() ‘指定給主界面上的發(fā)貨單按鈕　　Dim x, y As String ‘聲明過程級變量　　Sheets(fhd).Activate　　x = Sheets(fhd).Range(a7).Value　　y = Sheets(fhd).Range(e10).Value　　If x And y Then　　Worksheets(mlhs).Activate　　z = 4　　Do While Not IsEmpty(Sheets(mlhs).Cells(z, 1).Value)　　z = z + 1　　Loop　　If z 1 50 Then　　MsgBox$ 試用版限處理50筆業(yè)務！　　End　　Else　　z1 = 7　　Do While Not IsEmpty(Sheets(fhd).Cells(z1, 1).Value)　　z1 = z1 + 1　　Loop　　For z2 = 7 To z1 1　　Cells(z, 1) = Sheets(fhd).Cells(10, 5)　　Cells(z, 2) = Sheets(fhd).Cells(5, 1) amp。 amp。 Sheets(fhd).Cells(5, 3) amp。 amp。 Sheets(fhd).Cells(5, 5)　　Cells(z, 3) = Sheets(fhd).Cells(z2, 1)　　Cells(z, 4) = Sheets(fhd).Cells(z2, 2)　　Cells(z, 5) = Sheets(fhd).Cells(z2, 3)　　Cells(z, 6) = Sheets(fhd).Cells(z2, 6)　　Cells(z, 7) = Sheets(fhd).Cells(z2, 4)　　Cells(z, 9) = Sheets(fhd).Cells(z2, 5)　　z = z + 1　　Next z2　　End If　　Else　　MsgBox 發(fā)貨單記錄不完整，請檢查！　　End　　End If　　Sheets(fhd).Activate　　Range(a7:f9).Select　　　　Range(a7).Select　　End Sub ‘以上代碼把發(fā)貨單數(shù)據(jù)復制到毛利核算表并進行錯誤自檢。　　Sub 計算毛利() ‘指定給毛利核算表上的計算毛利按鈕　　Sheets(mlhs).Unprotect　　Range(h4).Select　　 = =RC[2]*RC[1]　　 Destination:=Range(H4:H500), Type:=xlFillDefault　　Range(j4).Select　　 = =RC[4]*RC[1]　　 Destination:=Range(j4:j500), Type:=xlFillDefault　　Range(k4).Select　　 = =RC[1]RC[3]　　 Destination:=Range(k4:k500), Type:=xlFillDefault　　Range(a1).Select　　 ToRight:=4　　Sheets(mlhs).Protect　　End Sub ‘自動輸入公式并自動復制?！　ub dy() ‘指定給毛利核算表上的打印按鈕　　Sheets(mlhs).Activate　　x = 4　　Do While Not IsEmpty(Sheets(mlhs).Cells(x, 1).Value)　　x = x + 1　　Loop　　Range(Cells(1, 1), Cells(x, 11)).Select　　　　Range(a1).Select　　Sheets(vjm).Activate　　End Sub ‘以上代碼是先自動檢測報表區(qū)域并選定，然后打印輸出。　　Sub jrfhd()　　Sheets(fhd).Activate　　Range(a1).Select　　End Sub　　Sub fhvjm()　　Sheets(vjm).Activate　　Range(a1000).Select　　End Sub　　Sub jrmlhs()　　Sheets(mlhs).Activate　　Range(a1).Select　　End Sub　　Sub iax() ‘指定給主界面和毛利核算表上的查詢按鈕　　Dim d As String　　d = InputBox(請選擇查詢項（按人查詢＝1；按商品查詢＝2）：, 查詢選擇