【正文】 te　　 = True　　Columns(C:C).Select　　　　Columns(E:E).Select　　 = False　　Columns(f:f).Select　　 = False　　Range(C3).Select　　MsgBox 請修改后,再打印!　　(按鈕 6).Select　　 = 打印分類核算表　　Range(C3).Select　　End Sub ‘執(zhí)行按商品進行分類匯總　　Sub 打印分類核算表() ‘指定給毛利核算表上的打印按鈕　　Columns(C:C).Select　　　　Range(c3).Select　　 Copies:=2　　　　　　　　 = False　　(按鈕 6).Select　　 = 　　Range(A3).Select　　Sheets(mlhs).Protect　　End Sub ‘打印分類匯總結(jié)果　　39。 宏8 Macro　　39?！　heets(mlhs).Unprotect　　 Key1:=Range(C4), Order1:=xlAscending, Header:= _　　xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _　　xlTopToBottom　　 GroupBy:=3, Function:=xlSum, TotalList:=Array(8 _　　, 10, 11), Replace:=True, PageBreaks:=False, SummaryBelowData:= _　　True　　 RowLevels:=2　　Range(a1).Select　　39。　　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 ‘自動輸入公式并自動復(fù)制。 amp?！　≡诿怂惚砩咸砑用畎粹o并給之指定宏。?G10單元格里輸入 =SUM(G7:G9)。　　發(fā)貨單如（圖10）所示：　　發(fā)貨單界面設(shè)計過程如下：　　按圖10格式制表?！　≡趨^(qū)域內(nèi)添加應(yīng)用程序標題和命令按鈕?！　》诸悈R總功能，可按商品和經(jīng)手人代碼進行分類匯總?！　?9。　　39?？旖萱I ctrl+s　　Sub 密碼() ‘指定給主界面上的密碼設(shè)置按鈕　　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 ‘以上代碼是設(shè)置密碼　　Sub 報表查詢() ‘指定給報表查詢按鈕　　Worksheets(查詢檔案).Activate　　　　End Sub ‘以上代碼是激活查詢檔案　　Sub 返回4() ‘指定給返回按鈕　　 ‘解除當前工作表保護　　Worksheets(主界面).Activate　　End Sub　　Sub 報表存檔() ‘指定給主報表上的報表存檔按鈕　　dj = Range($g$278).Value　　uj = Range($h$278).Value　　39。 宏2 Macro　　39。P 頁　　.LeftFooter = 　　.CenterFooter = 　　.RightFooter = 　　.LeftMargin = (.15748031496063)　　.RightMargin = (.15748031496063)　　.TopMargin = (.984251968503937)　　.BottomMargin = (.984251968503937)　　.HeaderMargin = (.511811023622047)　　.FooterMargin = (.511811023622047)　　.PrintHeadings = False　　.PrintGridlines = False　　.PrintNotes = False　　.PrintQuality = Array(360, 180)　　.CenterHorizontally = True　　.CenterVertically = False　　.Orientation = xlPortrait　　.Draft = False　　.PaperSize = xlPaperUser　　.FirstPageNumber = xlAutomatic　　.Order = xlDownThenOver　　.BlackAndWhite = False　　.Zoom = 100　　End With　　End Sub ‘進行打印設(shè)置　　Sub vbb() ‘指定給主界面上的主報表按鈕　　Worksheets(報表).Activate　　　　End Sub ‘激活主報表　　Sub ibda() ‘指定給主界面上的報表查詢按鈕　　Worksheets(檔案).Activate　　　　End Sub ‘激活檔案工作表　　Sub 打印() ‘指定給主報表上的打印按鈕　　d = InputBox(請選擇打印項（“樓房校內(nèi)＝1；樓房校外＝2；平房校內(nèi)＝3；平房校外＝4”）：, 打印選項窗口)　　If d = 1 Then　　　　Range(A5:M331).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange _　　:=Range(c342:c343), Unique:=False　　 Copies:=1　　ElseIf d = 2 Then　　　　Range(A5:M331).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange _　　:=Range(d342:d343), Unique:=False　　 Copies:=1　　ElseIf d = 3 Then　　　　Range(A5:M331).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange _　　:=Range(e342:e343), Unique:=False　　 Copies:=1　　ElseIf d = 4 Then　　　　Range(A5:M331).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange _　　:=Range(f342:f343), Unique:=False　　 Copies:=1　　ElseIf d 1 Or d 2 Or d 3 Or d 4 Then　　MsgBox 打印項選擇有誤，請重選！　　Beep　　Exit Sub　　Else　　End If　　　　　　End Sub ‘進行選項打印　　Sub 退出() ‘指定給主界面上的退出按鈕　　宏2 ‘系統(tǒng)初始化的逆過程　　　　(按鈕 2).Select　　 = ‘撤銷按鈕2的指定宏　　(按鈕 3).Select　　 = ‘撤銷按鈕3的指定宏　　39。(按鈕 5).Select　　39?！　】v向凍結(jié)A列，橫向凍結(jié)13行。　　放置命令按鈕，并給按鈕指定宏?！　?SUMIF($M$6:$M$331,=p校外,C6:C331)+SUMIF($M$6:$M$331,=p校內(nèi),C6:C331)　　工作表保護使用戶不能修改?！　≡贑338單元格輸入下面公式，拖動填充柄復(fù)制公式至L338。　　制表（如上圖所示 ）?！　》胖妹畎粹o，并給按鈕指定宏?！　∮涗泦谓缑嫒纾▓D3）所示?！　∵x定單元格區(qū)域，把區(qū)域顏色設(shè)置成你喜歡的顏色?！　∠到y(tǒng)保護功能：具有口令保護、工作表保護以防非法用戶進入和修改?！　?水電計價系統(tǒng)的功能　　本程序具有如下功能：　　自動計算功能：可完成各戶水費、電費、合計的計算。充分感受到其強大功能和方便性。一般來說,一套MIS主要包括信息輸入、信息處理、信息輸出三大組成部分,用Excel處理這些部分均顯得游刃有余?！　￡P(guān)鍵詞：EXCEL97 VBA 管理信息系統(tǒng)（MIS）　　目前國內(nèi)管理信息系統(tǒng)(MIS)開發(fā)研制一般采用人們熟悉的dBaseX、Foxbase或Foxpro等,本文介紹了如何用Excel開發(fā)MIS。在本文筆者用中文Excel97 for Windows開發(fā)了水電管理系統(tǒng)、銷售管理系統(tǒng)、試卷分析系統(tǒng)。 下面我們以保定農(nóng)校水電計價系統(tǒng)為例講解VBA在水電管理中的應(yīng)用?！　蟊淼拇蛴≥敵龉δ堋！　【唧w設(shè)計如下：　　選定一個工作表并命名為“主界面”?！　」ぷ鞅砑用鼙Ｗo使用戶不能修改?！　∵x定年、月、水表數(shù)、電表數(shù)空白單元格區(qū)域，取消鎖定?！　【唧w設(shè)計過程如下：　　選定一個工作表并命名為“主報表”?！　≥斎牍剑河嬎闵洗伪淼?、本月查表記錄、水電用量、水、電費、水電費合計的校內(nèi)、校外合計、樓房合計、平房合計?！　?SUMIF($M$6:$M$331,=l校外,C6:C331)+SUMIF($M$6:$M$331,=l校內(nèi),C6:C331)　　在C341單元格輸入下面公式，拖動填充柄復(fù)制公式至L341?！　】v向凍結(jié)A、B兩列，橫向凍結(jié)13行?！　≈票恚ㄈ鐖D7所示 ）。　　(3)、水電計價系統(tǒng)的VBA代碼及說明　　Dim s As Variant　　Dim y As Variant　　Dim u As Variant ‘模塊級變量聲明　　Sub shuru() ?指定給主界面輸入按鈕　　s = Worksheets(主界面).Range(v1).Value ‘獲取密碼　　For y2 = 1 To 2　　x = InputBox(請輸入密碼：, 保定農(nóng)校水電計價系統(tǒng))　　If x = s Then　　Worksheets(主界面).Activate　　　　(按鈕 2).Select　　 = vbb　　(按鈕 3).Select　　 = ibda　　39。Worksheets(報表).Activate　　Worksheets(報表).Range(e6).Select　　　　ElseIf m And n = Then　　Worksheets(報表).Activate　　Worksheets(報表).Range(e6).Select　　　　ElseIf m = And n Then　　Worksheets(報表).Activate　　Worksheets(報表).Range(f6).Select　　　　Else　　End If　　Worksheets(檔案).Activate　　y1 = Worksheets(記錄單).Range(c2).Value　　x = 0　　Do Until z = y1　　x = x + 1　　z = Worksheets(檔案).Cells(2, x).Value　　Loop　　If m And n Then　　Worksheets(檔案).Cells(4, x).Select　　　　ElseIf m = And n Then　　Worksheets(檔案).Cells(4, x +