怎样用EXCEL开发管理信息系统

1、怎样用EXCEL开发管理信息系统LEKIBM standardization office IBM5AB- LEKIBMK08- LEKIBM2C用EXCEL开发管理信息系统摘要：Excel97是Windows95环境下的一种电子表格软件,可向用户提供史无前例的超强功能和易用性，内嵌有一 种Visual Basic for Applicalion(简称VBA)超级宏语言，读者在熟练应用Excel的基础上，可按用户的需求用VBA建 立适用的信息系统。关键词：EXCEL97VBA管理信息系统(MIS)目前国内管理信息系统(MIS)开发研制一般采用人们熟悉的dBaseX. Foxbase或Foxpr

2、o等.本文介绍了如何用 Excel开发MIS。一股来说.一套MIS主要包括信息输入、信息处理、信息输出三大组成部分,用Excel处理这些部分 均显得游刃有余。Excel是Windows环境下的一种电子表格软件,可向用户提供史无前例的超强功能和易用性c它同 时具有电子数据表、图表和数据库的功能.具有极强的分析性能、报表制作工具和丰富的统计图表。在本文笔者用 中文Excel97 for Windows开发了水电管理系统、销售管理系统、试卷分析系统。充分感受到其强大功能和方便 性，下面详细阐述水电管理系统、销售管理系统、试卷分析系统的开发过程，应用程序一:水电计价系统水电管理是粤一个单位每月都要进行

3、的工作。下面我们以保定农校水电计价系统为例讲解VBA在水电管理中 的应用。1、水电计价系统的功能本程序具有如下功能：自动计算功能：可完成各户水费、电费、合计的计算。自动汇总功能：自动汇总全校教职工楼的用电量、用水量及分类汇总。查询功能：可查询各户的电表数、水表数、电费数、水费数。报表的打印输出功能:.系统保护功能：具有口令保护、工作表保护以防非法用户进入和修改。2、程序设计过程(1)程序总体设计()系统初始化打印返回主界面存档报表存档(2)界面设计水电计价系统主界面如图2所示。()x保定农校水电计价系统电I |明福叫阳星回回|©£圈I圈耳21Z叵叵S视图口14潮开始|跟阳馍

4、收出 “a - g11|宓健农校tK电计储统由国 22:25主界面是以EXCEL工作表作为输入输出界面。具体设计如下：选定一个工作表并命名为“主界面”。选定单元格区域，把区域颜色设登成你喜欢的颜色。放置命令按钮，并给按钮指定宏。分割区域并冻结，锁定界面使之不能滚动。工作表加密保护使用户不能修改。记录单界面如0所示。X保定农校水电计价系统1电1幽信叫回刮到g臼圜t麴回&izi巫力视困,|g|x|具体设计过程如下：选定一个工作表并命名为“记录单”。制表（如上图所示）。选定年、月、水表数、电表数空白单元格区域，取消锁定。放置命令按钮，并给按钮指定宏。工作表保护使用户不能修改。主报表如（、）所

5、示。X Microsoft Exce视图也C340 V二SUMIF（$M$6:$M$331二 1 校外工 C6:C331）+SUMIF（$M$6:$M$33,""二1 校内C6:C331）!=0屯l徭展叫吵阳回到dm摩侬网建 mm保定农校水电计系统1电1新双拼幽瞪陟庭回1到口同阐圈司切视图W,|g|x|ABCDEFGH.1返回主界面查表档案97 年2代码姓名yO上年1月1月2月3电水水电水411101王福喜511102张斌611201陈瑞修7112Q2刘红811301袁佩祥911302王彬1011401张明成1111402张艳梅12115Q1曹凤霞1311502田建国141

6、1601李永文1511602杜金玉田二Jte2r 丽日左演开阑 例"。S。以 2 - 姐1 | 密保定农校水电用纵向冻结A、B两列，横向冻结13行。放置命令按钮，并给按钮指定宏。工作表保护使用户不能修改。查询档案如（下）所示：具体设计过程如下：选定一个工作表并命名为.查询”。制表（如所示）。I A1 BCDE FGH12返回主界面计费查询库13姓名6陈瑞修7刘继红8袁佩祥9王彬10张明成11张艳梅12曹凤霞13田建国14李永文|15杜金玉16侯文华17齐红恩18杨庆华X保定农校水电计价系统EisriI同3电I新双拼囹览叫网沟到到阐知训参洲开始|河桁”。，由Word -用1 |雀保定农

7、校水电出纵向冻结A列，横向冻结1-3行。放置命令按钮，并给按钮指定宏。工作表保护使用户不能修改。（3）、水电计价系统的VBA代码及说明Dim s As VariantDim y As VariantDim u As Variant，模块级变量声明Sub shuni（）指定给主界面输入按钮s = Worksheets（“主界面”）.Range（'1"）.Value '获取宓码 For y2 = 1 To2x = Inpu【Box（"请输入密码：”，“保定农校水电计价系统”）Ifx = s ThenWorksheets（"主界面”）.Aclivale（

8、“按钮 2M）.Select="vbb”（“按钮 3"）. Select="ibda”'（"按钮 5'（）.Select、“退出"（“按钮.Select="报表查询"Worksheels（"记录单"）.ActivateExit SubElseIfx = 'M, ThenMsgBox .'请输入密码”ElseExit SubEnd IfNext y2End Sub '以上是根据密码正瑞与否选择执行代码段Sub返回1（）'指定给返回按钮Worksheets（&q

9、uot;主界面”）.ActivateEnd SubSub存档（）指定给记录单上的存档按钮thecode = vbYesNo + vbDefaultButton2 + vbExclamation + vbapplicationmodel,MsgBox ”请对输入进行检查，是否正确？ thecodethereply = MsgBox（prompt:="请对输入进行检查,是否正确? ”, Buttons:=thecode）Select Case thereplyCase vbYesm = Worksheets（"记录单）Range（“c5"）n = Worksheets

10、（"记录单）Range（”d5"）If mo” And no" ThenWorksheet（“记录单”）.Range（"c5:d33（F）.SeleclElself m <> And n = ThenWorksheets（”记录单”）.Range（"c5:c330）SetectElself m = ,M And n o,h ThenWorksheets（“记录单”）.Range（"d5:d33O"）.SelectElself m = ,M And n = ,M, ThenExit SubElseEnd IfWor

11、ksheets（“报表”）.ActivateIf mo"” And no" Then'Worksheels（"报表”）.AclivateWorksheets（"报表”）.Range（"e6"）,S6eciElself m <> And n = OM ThenWorksheets（“报表"）.Acliva【eWorksheets（"报表）Range（"e6"）,Seleci臼 self mJ And n <>ThenWorksheets（"报表"

12、）.ActivateWorksheets（”报表”）.Rangerfg.SelectElseEnd IfWorksheets（"档案"）,Acli valeyl = Worksheets（"记录单）Range（"c2） Valuex = 0Do Until z = ylx = x+ 1z = Worksheels（“档案”）.Cells（2, x）.ValueLoopIf mo”“ And no" ThenWorksheets（"档案"）,Cells（4, x）.SelectElself m = HH And n <&

13、gt;,H,ThenWorksheets（"档案”）,Cells（4, x + 1 ）.SelectElself m <>"“ And n =,H, ThenWorksheels（"档案）Cells（4, x）. SelectElseEnd IfWorksheets（“主界面”）. Acli valeCase vbNoEnd SelectExit SubEnd Sub '以上代码是把录入数据存入主报表和查表档案Sub返回2（1指定给主报表上的返回主界面按钮Worksheels（"主界面"）. ActivateEnd SubS

14、ub取电表底0 '指定给主报表上的取电表底按钮y = InpuBox（"请输入电表底（>-2）:"，“保定农校水电计价系统”）If y = n0" TlienWorksheets（"档案”）.ActivateRange（Mc4:c329H）.SelectWorksheets（"报表”）.AclivaieRange（Mc6"）.SelectElseIfy = ,T, Then Worksheets（"档案）Ac【i valeRange（Me4:e329°）,SelectWorksheets

15、（"报表"）.AciivaieRange（Kc6"）.SeleclElseIfy = ',2M Then Worksheets（"档案”）.AclivaieRange（ Mg4:g329M ）.SelectWorksheets（"报表"）.ActivaieRange（wc6,）.SelectElseIfy = '3M ThenWorksheets（"档案"）.ActivateRange（Mi4:i329M）.SelectWorksheets（"报表”）.AclivaieRange（Hc6H

16、）.SelectElseIfy = ',4M Then Worksheets（"档案”）.AclivateRange（Mk4:k329M）.SeleclWorksheets（"报表"）.AclivateRange（Mc6H）.SelectElseIfy = M5M ThenWorksheets（"档案"）.ActivateRange（Mm4:m329"）.SelectWorksheets（"报表"）.AclivateRange（Mc6"）.SelectElseIfy = ',6M Then

17、Worksheets（"档案”）.AclivaieRange（Ho4:o329R）.SeIectWorksheets（"报表'）.AclivateRange（Mc6H）.SeleclElseIfy = M7M ThenWorksheets（"档案"）.ActivateRange( Mq4:q329M ).SelectWorksheels(“报表”).ActivateRange(Mc6").SelectElseIfy = M8M Then Worksheets("档案”).AclivaieRange(Ms4:s329H).Sel

18、eclWorksheets(“报表”).ActivateRange(Mc6").SelectElseIfy = M9M ThenWorksheets("档案”).AclivateRange(Mu4:u329M).SeleclWorksheets("报表”).ActivateRange(Hc6").SeleclElseIfy = H10M ThenWorksheets("档案)Acli valeRange(Mw4:w329M).SeleclWorksheets(“报表”).ActivateRange(Mc6").SelectElseIf

19、y = MirThen Worksheets("档案)AclivateRange(My4:y329H).SelectWorksheets("报表。.AclivaleRange(Mc6H).SelectElseIfy = M12M Then Worksheets档案)AclivaieRange(Maa4:aa329'*).SelectWorksheets(“报表”).ActivateRange(Mc6").SeleclElseIfy = HM TlienExit SubElseEnd IfWith Application.Calculation = xlAu

20、tomatic.MaxChange = .001End With=FalseEnd Sub '以上代码是使用选择语句从查表档案中取电表底Sub取水表底()'指定给主报表上的取电表底按钮u = Inpu【Box("请输入水表底(yOJ.2.12):”，“保定农校水电计价系统，Ifu = ”yO” TlienWorksheets("档案").AclivateRange(Md4:d329M).SelectWorksheets("报表”).AclivaieRange(Md6M).SelectElseIfu = wlHThenWorksheets(

21、"档案”).Act i valeRange(Mf4:f329H).SelectWorksheets("报表"),Acliva【eRangeCdb,XSelectElseIfu = ',2M ThenWorksheets/档案”), ActivateRange(Mh4:h329M).SelectWorksheets("报表)AclivaieRange(Md6M).SelectElseIfu = '3M ThenWorksheets("档案”).Acli valeRange(Mj4:j329M).SelectWorksheels(&

22、quot;报表").AclivaieRange(Md6M).SelectElseIfu = H4H ThenWorksheets("档案”).AclivateRangel M14:1329M).SeleclWorksheets("报表”).AclivaieRange(Hd6H).SelectElseIfu = ',5H ThenWorksheets("档案”).AclivaieRange(Hn4:n329M).SelectWorksheets("报表”).AclivateRange(Md6M).SeleclElseIfu = '

23、*6M ThenWorksheets("档案”),AclivaieRange(Hp4:p329H).SelectWorksheets("报表”).AclivateRange(Md6M).SeleclElseIfu = H7M ThenWorksheets("档案)Ac【i valeRange(Mr4:r329u).SelectWorksheets("报表").AciivaieRange(Md6M).SelectElseIfu = ',8M ThenWorksheelsC档案)AclivateRange(Mt4:t329H).Select

24、Worksheets("报表").ActivaieRange(Md6M).SeleclElseIfu = 'V ThenWorksheets("档案").ActivateRange(Hv4:v329M).SeleclWorksheets("报表”).AclivateRange( Md6M).SelectElseIfu = H10M Then Worksheets(”档案”).AclivaieRange(Mx4:x329M).SelectWorksheets("报表”).AclivateRange(Md6M).SeleclEls

25、eIfu = Hir, Then Worksheets("档案").ActivateRange(Mz4:z329H).SelectWorksheets("报表”).AclivaieRange(Hd6H).SelectElseIfu = H12M ThenWorksheets("档案”).Act i valeRange(Mab4:ab329M).SeleclWorksheets("报表"),Acliva【eRange(Md6M).SelectElseIfu = HM ThenExit SubElseEnd IfWith Applicat

26、ion.Calculation = xlAutomalic.MaxChange = .001End With =FalseEnd Sub '以上代码是使用选择语句从查表档案中取水表底Sub bsyO '由报表存档过程调用Worksheets(“主界面”).Activate x = 3Do While Not (IsEmply(Worksheels("主界面”).Cell* 1 L x).Value) x = x+ 1LoopWorksheets(”主界面)CeHs(U, x).Vahie = Worksheets("记录单)Rangec2”)Workshee

27、ts(“主界面，Cells(l 1, x + 1 ).Value = "月”Worksheets(“主界面”)Cells( 12. x).Value = uWorksheets(“主界面”)Cells( 13. x).Value = yWorksheets(“主界面”)Cells( 12. x + 1). Value = "月”Worksheets(”主界面)Cells( 13, x + 1). Value = "月” Worksheels("报表").Aclivaie Range(Hc3:f5M).SelectRange(Hc334:f336

28、H).SelectRangel Mal").Select =6End Sub '以上代码是把报表月份和表底月份放入主界面上的表格里Sub返回3()指定给返回主界面按钮Worksheets("主界面").ActivateEnd SubSub打印设置0 '指定给主界面上的打印设置按钮With.PrintTilleRows = M$l:$5H.PrintTitleColumns =""End With_ HHWith.LeftHeader =CemerHeader= "水电计价系统“.RighlHeader = MM &am

29、p;P 页”.LeftFooter = *m.CenterFooter =.RightFooter = MM.LeftMargin =.RighlMargin = (.96063).TopM.HeaderMargin = (.5118110.PrintHeadings = False.PrintGridlines = False.PrintNotes = False.PrintQuality = Array(360,180).CenterHorizontally = True.CenterVertically = False.Orientation = xlPorlrait.Draft = F

30、alse.PaperSize = xlPaperUser.FirstPageNumber = xlAutomalic.Order = xlDownThenOver.BlackAndWhite = False.Zoom = 100End WithEnd Sub，进行打印设置Sub vbb() ,指定给主界面上的主报表按钮Worksheets("报表").ActivateEnd Sub，激活主报表Sub ibda() ,指定给主界面上的报表查询按钮Worksheets("档案”).AclivaieEnd Sub，激活档案工作表Sub打印0 '指定给主报表上的打

31、印按钮d = InpuiBox("请选择打印项(“楼房校内=1 ；楼房校外=2 ；平房校内=3 ；平房校外= 4”)： :'打印选项窗Ifd = "lH ThenRange(HA5:M331 M).AdvancedFilter Action:=xlFiIterInPlace, CriteriaRaiige _:=Range("c342:c343"), Unique:=FalseCopies:=lElseIfd = H2M ThenRange(MA5:M331 1).AdvaiicedFilter Action:=xlFilterInPlace,

32、CriteriaRange _:=Range(”d342:d343) Unique:=FalseCopies:=lElseIfd = H3M ThenRange(MA5:M33r*).AdvancedFilter Action:=xlFilterInPlace. CriteriaRange _:=Range("e342:e343H), Unique:=FalseCopies:=lElseIfd = '14M ThenRange(HA5:M331 M).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange _:=Range(

33、nf342:f343H), UniquoFalseCopies:=lElself do T* Or do ”2" Ord <> "3H Or do "ThenMsgBox ”打印项选择有误，请重选！ ”BeepExit SubElseEnd IfEnd Sub，进行选项打印Sub退出0 指定给主界面上的退出按钮 宏2,系统初始化的逆过程（“按钮 2M）.Select="撤销按钮2的指定宏（“按钮 3M）.Select="撤销按钮3的指定宏按钮 5',）.Select（"按钮 4M）.Selectfi撤销按钮4的指定

34、宏thecode = vbYesNo + vbDefauliBulton2 + vbExclamalion + vbapplicalionmodel thereply = MsgBox(prompl:=”是否存盘?(如果不是正式报表请选否!)Butions:=thecode) Select Case thereplyCase vbYesdj = Worksheet(“报表").Range(”Sg$278").Valueuj = Worksheet(“报表").Range(”Sh$278").Value*zj = worksheetsC 报表)Range$

35、h$332").Valueda = Worksheets("报表。.Range("$g$277"),Valueub = Worksheets("报表").RangeSh$277"). ValueIf dj <> 0 Or uj <> 0 Or da o 0 Or ub <> 0 TlienChDrive Ma:VFilename:=M, FileFormat:=xlNormal,Password:=M,VrileResPassword:=H".ReadOnlyRecommende

36、d:= False, CreateBackup:=FalseElseMsgBox”不是正式报表，不予存叁！” =FalseEnd IfCase vbNo=FalseEnd SelectEnd Sub'以上是执行退出存盘Sub初始化0 '指定给主界面上的系统初始化按钮定义界面调用定义界面宏改变应用程序标题Worksheets("记录单").ActivaleWorksheets(“记录单”).Range("c5:d33(n.SeleclWorksheets("报表").ActivateWorksheets(“报表”).Range(”

37、c6心31 0.SelectWorksheels(“主界面”).Activate'以上代码是清除记录单和报表数据 宏1'调用宏1End SubSub 宏 1()With Toolbars( 1).Visible = False.Position = xlFloating.Left = 89.Top = 67End WithWith Toolbars(2).Visible = False.Position = xlFloating.Left = 79.Top = 78End With=FalseEnd Sub,宏 2 Macro'ykq 记录宏 1997/1/10*

38、9;快捷键:Ctrl+eSub 宏 2()= TrueToolbars( D.Visible = TrueToolbars(2). Visible = FalseWith Application.ShowToolTips = True.LargeButtons = False.ColorButtons = TrueEnd WithToolbars( D.Visible = TrueWith Toolbars(2).Visible = True.Position = xlTopEnd WithWith Application.ShowToolTips = True.LargeButtons =

39、False.ColorButtons = TrueEnd WithToolbars( 1 ).Posilion = xlTopWorksheets("主界面").ActivateEnd SubSub定义界面()="保定农校水电计价系统”End Sub'快捷键ctrl+sSub密码()'指定给主界面上的密码设置按钮d = InpuiBox(”请输入旧密码：丁,保定农校水电计价系统“)Ifd = Worksheets(“主界面)RangefvlTValue TlienFor x = 1 To 2a = InpuiBox请输入自定义密码：二”保定农校水电

40、计价系统”)b = InputBox("请重新输入自定义密码：“，”保定农校水电计价系统”)If a = b And a o " ThenWorksheets("主界面").Range("vl"),Vahie = cExit ForElseMsgBox ”密码输入不正确”End IfNext xElse Exit SubEnd IfEnd Sub '以上代码是设霞密码Sub报表查询0 指定给报表查询按钮Worksheets("查询档案”).ActivateEnd Sub '以上代码是激活查询档案Sub返回4(

41、”指定给返回按钮'解除当前工作表保护Worksheets("主界面”).ActivaleEnd SubSub报表存档()指定给主报表上的报表存档按钮dj = Range(MSg$278H).Valueuj = Range(MSh$278M).Value'zj = Range("$h$332"). Valueda = Range( MSg$277H). Valueub = Range(MShS277M).ValueIf dj <> 0 Or uj <> 0 Or da o 0 Or ub o 0 ThenRange(Mg5:h

42、33Lj5:133r').SelectWorksheets("查询档案”).Activatex= 1Do While Not (IsEmply(Worksheels("查询档案”).Cells(3, x).Value)x = x+ 1Loop(3. x).SelectPaste:=xlValues. Operation:=xlNone, _SkipBlanks:=False. Transpose:=FalseWorksheets("查询档案”).Cell$(2. x).Value = yWorksheets("查询档案”).Cens(2. x).

43、Value = Worksheets(“记录单”).Range(节c$2")Worksheets("查询档案”).Cells(2. x + 1).Value = “月”Worksheels("主界面”).Aciivalebsy'调用bsy宏ElseMsgBox”不是正式报表，不予存档！”Exit SubEnd IfEnd Sub '以上代码是把报表数据存入查询档案,查询档案清理'快捷键:Ctrl+hSub宏3(厂清理查德询档案Worksheets("查询档案”).ActivateRange(MB2:AN329M).SeleclRa

44、nge(Mal").SeleclWorksheets("主界面界 ActivateEnd Sub, 宏 4 Macro'ykq 记录宏 1997/1/10'档案库清理,快捷键:Ctrl+jSub宏4(1清理查德表档案Worksheets(“档案”).Acliva【eRange(HC4:AB329M).SelectRange(Mal").SeleclWorksheets("主界面界 ActivateEnd Sub应用程序二：销售管理系统在商业企业的经营活动中，主要业务活动是进销存。本程序主要解决销售的问题，关于进货和库存留给读者自 己在原来

45、程序的基础上进一步开发,I、销售管理系统的功能自动计算进货金额、销货金额和毛利。分类汇总功能，可按商品和经手人代码进行分类汇总。打印功能查询功能(可按商品和经手人代码进行查询)。2、销售管理系统的程序设计销售管理系统总体设计界面设计：()系统初始化返回主界面发货单销售管理系统查询毛利核算返回主界面计算毛利退出查询（移去查询）主界面如0所示：界面具体设计过程：选定一工作表，重命名为“主界面”。选定工作表区域，设置区域颜色。在区域内添加应用程序标题和命令按钮。给按钮指定宏0对主界面进行口令保护。分割工作表区域并冻结，以防扉常滚动。发货单如0所示：发货单界面设计过程如下:按格式制表。放置命令按钮。选

46、定A5.C5.E5.E10.A7:F9解锁定，在G7.G8,G9单元格里依次输入公式”=E7什、E8 WE9 W ii?G10 单元格里输入 M=SUM（G7:G9r0保护工作表。毛利核算表如（）所示：界面具体设计过程：选定一工作表重命名为“毛利核算”。按所示制表，x逋肖存每募统|朝等日,|g|X_1AB cDE FGH111返回主界面清库计算毛利查询打2商品销售成本核算定w印3经手号年月日商品名称 规格单位销售数量进价进货金额售价销售金：4a0297-11-23cr5000. 231150. 3615a0297-11-23df.J5000.14701.576aOl97-11-23ddfg50

47、00. 231150. 3617a0297-11-24ddfs5000. 2350. 3618a0397-11-25ddfg5000. 231150. 3619a0497-11-26ddfw5000. 231150. 36110a0597-11-27ddfg5000. 231150. 36111a0697-11-28eefg5000. 231150. 36112a0797-11-29eefs5000. 2350. 36113a0297-11-23ssdV5000. 231150. 36114a0297-11-23ssfh5000. 98490L2615a029741-23wef5000. 23

48、1150. 36116a0297-11-23ymrry5000. 653250.9417a0297-11-23w018a0297-11-23w0i|Jr所日H内左洲开始|即Hw£t Word - *. 思进锄融理系线在毛利核算表上添加命令按钮并给之指定宏3纵向冻结A、B两列，横向冻结1-3行。对工作表进行保护。3、销售管理系统的VBA代码及说明Sub fhd(厂指定给主界面上的发货单按钮Dim x, y As String '声明过程级变量Sheets(MfhdM).Activatex = Sheets(Mflid',).Range(Ha7M).Valuey = Sh

49、eels(“fhd”).Range(”elO"),ValueIfxom, Andyo,M, ThenWorksheets(HinlhsH).Activatez = 4Do While Not IsE!npiy(Sheets(Hmlhs',).Cells(z, D.Value)z = z+ 1LoopIf z - I > 50 ThenMsgBoxS ”试用版限处理50笔业务！ ”EndElsezl =7Do While Not IsEmpty(Sheets(HfhdM).Cells(zl, 1 ).Value)zl =zl + ILoopFor z2 = 7 To zl

50、 -1Cells(z, 1) = SheetsC'flid.CellsdO. 5)Cells(z, 2) = Sheets(°fhdH).Cells(5, I) && SheelsC fhd',).Cells(5, 3) & ”-” & Sheets(Mfhd,r).Cells(5, 5)Cells(乙 3) = Sheets("lhdH).Cells(z2. 1)Cells(z, 4) = Sheets("fhdM).Cells(z2. 2)Cells(乙 5) = Sheets("nidM).Cells

51、(z2. 3)Cells(乙 6) = Sheets("fhdK).Cells(z2. 6)Cells(z, 7) = Sheets("fhdM).Cells(z2.4)Cells(乙 9) = Sheets("flidH).Cells(z2. 5) z = z+ 1Next z2End IfElseMsgBox”发货单记录不完整，请检查！“EndEnd IfSheets(Mfhd,).ActivateRange(Ma7:19M).SelectRange(Ha7H).SelectEnd Sub，以上代码把发货单数据复制到毛利核算表并进行错误自检。Sub计算毛利0

52、'指定给毛利核算表上的计算毛利按钮Sheels(Mmlhs").UnprotectRange(Mh4M).Select = "=RC-2*RC-irDestinalion:=Range(MH4:II500M), Type:=xlFillDefaultRange(Mj4M).SeIecl = H=RC-4*RC-irDestinalion:=Range(Mj4:j500M), Type:=xlFillDefaultRange(Mk4M).Selecl= n=RC-l|-RC|-3HDestination:=Range(Mk4:k500H), Type:=xlFillD

53、efaultRange(Malu).SelectToRight:=-4Sheets(Mmlhsu).ProtectEnd Sub '自动输入公式并自动复制。Sub dy() ,指定给毛利核算表上的打印按钮Sheets(Mmlhs°). Activate x = 4Do While Not IsEinpiy(Sheels(Kmlhs*,).Cells(x, 1 ).Value) x = x+ 1LoopRange(Cells(L 1), Cells(x, 1 l).SelectRange(Mal").SeleclSheets(Mvjm*).ActivaleEnd Su

54、b'以上代码是先自动检测报表区域并选定，然后打印输出。SubjrflidOSheets(Mfhd,).ActivateRange(Mal").SeleclEnd SubSub fhvjmOSheets(MvjmM).ActivateRange(MalOOOM).SelectEnd SubSub jnnlhsOSheets(Mmlhs°). Acli valeRange(Har,).SelectEnd SubSub iax(”指定给主界面和毛利核算表上的查询按钮Dim d As Stringd = InpuiBoxd请选择查询项(按人查询=1 ；按商品查询=2):“，

55、”查询选择窗”) Ifd = ,lo ThenSheels(Mmlhsu).SelectRange(MA4M).SelectKeyl:=Range(MA4M), Orderl:=xlAscending. Headers _ xlGuess. OrderCustom:=k MatchCase:=False, Onentalion:=_ xlTopToBottomGroupBy:=l, Function:=xlSum, TotalList:=Array(8 _,10. 11). Replace:=True. PageBreaks:=False. SunmwyBelowData:= _ TrueSheels("mlhs"),SelectRowLevels:=2Range(Hal M).Select 宏5 ,调用宏5过程=3Sheets(Mmlhs'*) .ProtectElseIfd = ',2M ThenSheets(Mmlhsu).Select ISheels(MmlhsH).UnprotectKeyl:=Range(HC4M), Order 1 :=xlAscending. I Ieader:= _ xlGuess. OrderCustom:=k Ma