【文章內容簡介】 vbNo　　 = False　　　　End Select　　End Sub ‘ 以上是執(zhí)行退出存盤　　Sub 初始化() ‘指定給主界面上的系統(tǒng)初始化按鈕　　定義界面 ‘調用定義界面宏改變應用程序標題　　Worksheets(記錄單).Activate　　Worksheets(記錄單).Range(c5:d330).Select　　　　Worksheets(報表).Activate　　　　Worksheets(報表).Range(c6:f331).Select　　　　Worksheets(主界面).Activate ‘以上代碼是清除記錄單和報表數(shù)據　　宏1‘調用宏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 定義界面()　　 = 保定農校水電計價系統(tǒng)　　 = 　　End Sub　　39。快捷鍵 ctrl+s　　Sub 密碼() ‘指定給主界面上的密碼設置按鈕　　d = InputBox(請輸入舊密碼：, 保定農校水電計價系統(tǒng))　　If d = Worksheets(主界面).Range(v1).Value Then　　For x = 1 To 2　　a = InputBox(請輸入自定義密碼：, 保定農校水電計價系統(tǒng))　　b = InputBox(請重新輸入自定義密碼：, 保定農校水電計價系統(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 ‘調用bsy宏　　Else　　MsgBox 不是正式 報表，不予存檔！　　Exit Sub　　End If　　End Sub ‘以上代碼是把報表數(shù)據存入查詢檔案　　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è)的經營活動中，主要業(yè)務活動是進銷存。本程序主要解決銷售的問題，關于進貨和庫存留給讀者自己在原來程序的基礎上進一步開發(fā)。　　 銷售管理系統(tǒng)的功能　　自動計算進貨金額、銷貨金額和毛利?！　》诸悈R總功能，可按商品和經手人代碼進行分類匯總?！　〈蛴」δ堋　〔樵児δ埽砂瓷唐泛徒浭秩舜a進行查詢）?！　?銷售管理系統(tǒng)的程序設計　　銷售管理系統(tǒng)總體設計　　界面設計：（圖8）　　主界面如（圖9）所示：　　界面具體設計過程：　　選定一工作表，重命名為“主界面”?！　∵x定工作表區(qū)域，設置區(qū)域顏色?！　≡趨^(qū)域內添加應用程序標題和命令按鈕?！　〗o按鈕指定宏 ?！　χ鹘缑孢M行口令保護?！　》指罟ぷ鞅韰^(qū)域并凍結，以防屏幕滾動?！　“l(fā)貨單如（圖10）所示：　　發(fā)貨單界面設計過程如下：　　按圖10格式制表。　　放置命令按鈕?！　∵x定A5,C5,E5,E10,A7:F9解鎖定?！　≡贕7,G8,G9單元格里依次輸入公式＝E7*F7,=E8*F8,=E9*F9,??G10單元格里輸入 =SUM(G7:G9)。　　保護工作表?！　∶怂惚砣纾▓D11）所示：　　界面具體設計過程：　　選定一工作表重命名為“毛利核算”?！　“磮D11所示制表。　　在毛利核算表上添加命令按鈕并給之指定宏?！　】v向凍結A、B兩列，橫向凍結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ù)據復制到毛利核算表并進行錯誤自檢?！　ub 計算毛利() ‘指定給毛利核算表上的計算毛利按鈕　　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 ‘自動輸入公式并自動復制。　　Sub 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ū)域并選定，然后打印輸出?！　ub 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）：, 查詢選擇