汽车零部件查询系统设计

计算机应用基础课程设计49- PAGE交通与汽车工程学院课程设计说明书课程名称:计算机应用基础课程设计课程代码:6011339题目:汽车零部件查询系统设计年级/专业/班:学生姓名:学号:开始时间:2012年4月1日完成时间:2012年4月12日课程设计成绩：学习态度及平时成绩（30）技术水平与实际能力（20）创新（5）说明书（计算书、图纸、分析报告）撰写质量（45）总分（100）指导教师签名：年月日目录摘要…………………21引言…………………32本程序主要功能…………………33本程序结构设计…………………44程序设计界面…………………45程序代码……………………10结论………………………30致谢………………………31参考文献…………………32摘要随着计算机的普及程序的应用也越来越受到重视，本次课程设计使用VisualBasic作为开发工具，进行了汽车零部件查询系统设计的程序设计，本系统主要完成对汽车零部件的管理，包括库存的添加、删除等。系统可以完成对各类信息的追加、浏览、修改、查询和计算等功能。汽车零部件查询系统广泛应用于4S店汽车零部件的库存与销售管理工作中，要求其具有实用性强、使用方便、效率高和安全可靠等特点。本管理系统正是围绕以上几个方面进行开发的，在开发过程中充分考虑到本系统的应用特点，并进行了大量的检验，证明其的确达到了设计的要求，是一个已具备了实际应用能力的软件。关键词：汽车零部件销售库存销售

1引言1.1问题的提出为适合现代企业发展的需要,汽车零部件管理已经成为困扰销售的一个难题,由于其费时和繁琐性，企业迫切需要一种专门为零部件管理而服务的工具。为此,简单的汽车零部件管理系统为此而制造出来。本简单程序是为汽车零部件管理而设计的,内容简单，使用方便。程序稍加变更可以适合对资源分配方面的杂事加以处理。作为当代大学生，熟练的操作计算机是一种必备的素质。本次设计会让我们更加熟悉VB编程，把以前学过的一些东西又重新复习了一遍，并与实际结合起来，对我们能力的提升有了很大的帮助，还能促使我们在以后的实际应用中更好的应用VB编程来设计一些数据库管理系统。2本程序主要功能汽车零部件管理系统是典型的信息管理系统，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点.本系统主要完成对汽车零部件信息的管理，包括数据库中零件的入库和出库等。系统可以完成对各类信息的浏览、修改、查询对零件销售价格进行计算等功能。系统的核心是数据库中零件的余量，每一个零件的修改都将联动的影响其它的各项信息，当完成对数据的操作时系统会自动地完成数据库的修改。查询功能也是系统的核心之一，在系统中即有单条件查询和多条件查询，也有精确查询和模糊查询，系统不仅有静态的条件查询，也有动态生成的条件查询，其目的都是为了方便用户使用。本系统有完整的报价查询，库存剩余量，零件名称，销售型号，匹配车型查询等等。3本程序结构设计汽车零部件管理系统是典型的信息管理系统，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点.其中利用函数调用，查询功能，库存检索等完成此次设计。4程序设计界面Form1：Form2：Form3:Form4:Form5:Form6:Form7:Form8:Form9:Form10:Form11:Form12:5程序代码（1）Form1:PrivateSubForm_Click()Form2.ShowUnloadMeEndSubPrivateSubForm_KeyPress(KeyAsciiAsInteger)Form2.ShowUnloadMeEndSubPrivateSubImage1_Click()EndSub（2）Form2:DoWhileNotEOF(1)Get#1,,persIfTrim(Text2.Text)=Trim(pers.bh)Thenf=TrueForm3.ShowUnloadForm2ExitDoEndIfLoopCloseIff=FalseThent=t+1Ift<3ThenMsgBox"用户不存在,请重新输入！",vbOKOnly+vbInformation,"用户名错误"ElseMsgBox"重试次数已到，即将退出本系统!",vbOKOnly+vbExclamation,"用户名错误"EndExitSubEndIfEndIfEndIfEndSubPrivateSubCommand2_Click()EndEndSub（3）Form3:DimcarsAsqicheDima(5)PrivateSubbz_Click()Form9.ShowEndSubPrivateSubCommand1_Click()Fori=0To4IfCombo1(i).Text=""ThenForj=0ToForm12.List1(i).ListCount-1List3(i).AddItemForm12.List1(i).List(j)NextjElset=iCallhunt(t)EndIfNextiIfText1<>""AndText2<>""ThenCallhunt2ElseIfText1=""AndText2<>""ThenText1=0:Callhunt2ElseIfText1<>""AndText2=""ThenText2=10^10:Callhunt2ElseForj=0ToForm12.List1(5).ListCount-1List3(5).AddItemForm12.List1(5).List(j)NextjEndIfFork=0To5m=List3(k).ListCountForj=0TomIfList3(k).List(j)<>""Thena(k)=a(k)+1EndIfNextjNextkMax=a(0)Fori=1To5Ifa(i)>MaxThenMax=a(i)EndIfNextiFork=0ToVal(Max)IfList3(0).List(k)<>""AndList3(1).List(k)<>""AndList3(2).List(k)<>""AndList3(3).List(k)<>""AndList3(4).List(k)<>""AndList3(5).List(k)<>""Then'List2.AddItemList3(0).List(k)&List3(1).List(k)&List3(2).List(k)&List3(3).List(k)&List3(4).List(k)&List3(5).List(k)EndIfNextkFrame1.Visible=False'List2.Visible=TrueEndSubPrivateSubCommand2_Click()Frame1.Visible=FalseEndSubPrivateSubForm_Load()Frame1.Visible=False'List2.Visible=FalseEndSubPrivateSubglsj_Click()Form4.ShowEndSubPrivateSubbk_Click()Form10.ShowForm10.Frame1.Visible=TrueEndSubPrivateSubkp_Click()Form10.ShowForm10.Frame2.Visible=TrueEndSubPrivateSubljgl_Click()Form12.ShowEndSubPrivateSubss_Click()'List2.Visible=TrueFrame1.Visible=True'List2.Visible=NotList2.Visible'List2.ClearEndSubSubhunt(t)Fori=0ToForm12.List1(t).ListCount-1IfTrim(Combo1(t).Text)=Trim(Form12.List1(t).List(i))ThenList3(t).AddItemForm12.List1(t).List(i),iElseList3(t).AddItem"",iEndIfNextiEndSubSubhunt2()Fori=0ToList1(5).ListCount-1IfVal(Text1)<Val(List1(5).List(i))AndVal(Text2)>Val(List1(5).List(i))ThenList3(5).AddItemList1(5).List(i),iElseList3(5).AddItem"",iEndIfNextiEndSubPrivateSubtc_Click()EndEndSubForm4：DimpersAsmanagerPrivateSubCommand1_Click()Form5.ShowEndSubPrivateSubCommand2_Click()List1.RemoveItemList1.ListIndexList2.RemoveItemList2.ListIndexList3.RemoveItemList3.ListIndexList4.RemoveItemList4.ListIndexCallsaveEndSubPrivateSubCommand3_Click()IfList1.Text=""ThenMsgBox"请选择修改对象"ElseForm6.ShowForm6.Text1=List1.TextForm6.Text2=List3.TextForm6.Combo1.Text=List2.TextList1.RemoveItemList1.ListIndexList2.RemoveItemList2.ListIndexList3.RemoveItemList3.ListIndexList4.RemoveItemList4.ListIndexEndIfEndSubPrivateSubCommand4_Click()Form3.ShowUnloadMeEndSubPrivateSubForm_Load()i=0OpenApp.Path+"\mag.dat"ForRandomAs#1DoWhileNotEOF(1)i=i+1Get#1,i,persList1.AddItempers.bh,i-1List2.AddItempers.xb,i-1List3.AddItempers.xm,i-1List4.AddItempers.mm,i-1LoopCloseEndSubPrivateSubList1_Click()List2.ListIndex=List1.ListIndexList3.ListIndex=List1.ListIndexList4.ListIndex=List1.ListIndexEndSubPrivateSubList2_Click()List1.ListIndex=List2.ListIndexList3.ListIndex=List2.ListIndexList4.ListIndex=List2.ListIndexEndSubPrivateSubList3_Click()List1.ListIndex=List3.ListIndexList2.ListIndex=List3.ListIndexList4.ListIndex=List3.ListIndexEndSubPrivateSubList4_Click()List1.ListIndex=List4.ListIndexList2.ListIndex=List4.ListIndexList3.ListIndex=List4.ListIndexEndSubForm5：DimpersAsmanagerPrivateSubCommand1_Click()IfText1=""OrText2=""OrText3=""OrCombo1.Text=""ThenMsgBox"请输入完整的信息"Text1.SetFocusExitSubEndIfIfText1<>""AndText2<>""AndText3<>""AndCombo1.Text<>""ThenForm4.List1.AddItemText1Form4.List2.AddItemCombo1.TextForm4.List3.AddItemText2Form4.List4.AddItemText3CallsaveEndIfForm4.ShowUnloadMeEndSubPrivateSubCommand2_Click()Form4.ShowUnloadMeEndSubPrivateSubForm_Load()Text3=""EndSubForm6：PrivateSubCommand1_Click()Form4.List1.AddItemText1,0Form4.List2.AddItemCombo1.Text,0Form4.List3.AddItemText2,0Form4.List4.AddItemText4,0CallsaveForm3.ShowUnloadMeEndSubPrivateSubForm_Load()EndSubForm7:PrivateSubCommand1_Click()Form12.List1(0).AddItemText1,0Form12.List1(1).AddItemText2,0Form12.List1(2).AddItemText3,0Form12.List1(3).AddItemText4,0Form12.List1(4).AddItemText5,0Form12.List1(5).AddItemText6,0Form3.ShowUnloadMeEndSubPrivateSubCommand2_Click()Form3.List1(0).AddItemText1,0Form3.List1(1).AddItemText2,0Form3.List1(2).AddItemText3,0Form3.List1(3).AddItemText4,0Form3.List1(4).AddItemText5,0Form3.List1(5).AddItemText6,0Callsave2Form3.ShowUnloadMeEndSubPrivateSubForm_Load()EndSubForm8:PrivateSubCommand1_Click()IfCombo1(0).Text<>""AndCombo1(1).Text<>""AndCombo1(2).Text<>""AndCombo1(3).Text<>""AndCombo1(4).Text<>""AndText1<>""ThenForm12.List1(0).AddItemCombo1(0).TextForm12.List1(1).AddItemCombo1(1).TextForm12.List1(2).AddItemCombo1(2).TextForm12.List1(3).AddItemCombo1(3).TextForm12.List1(4).AddItemCombo1(4).TextForm12.List1(5).AddItemText1Form3.ShowUnloadMeElseMsgBox"请写入完整的信息！"EndIfEndSubPrivateSubCommand2_Click()Form3.ShowUnloadMeEndSubPrivateSubForm_Load()EndSubForm9:PrivateSubText2_Change()EndSubPrivateSubText1_Change()EndSubPrivateSubTimer1_Timer()Text2=TimeEndSubForm10:DimqPrivateSubCommand1_Click()StaticqAsIntegerIfq=-1Thenq=List2.ListCount-1p=Val(List2.List(q))Callxishi(p)q=q-1EndSubPrivateSubCommand2_Click()StaticqAsIntegerIfq>List2.ListCount-1Thenq=0p=Val(List2.List(q))Callxishi(p)q=q+1Command1.Enabled=TrueEndSubPrivateSubCommand3_Click()Form3.ShowUnloadMeEndSubPrivateSubCommand4_Click()p=Val(List2.List(0))Callxishi(p)EndSubPrivateSubCommand5_Click()p=Val(List2.List(List2.ListCount-1))Callxishi(p)EndSubPrivateSubForm_Load()EndSubPrivateSubText3_Change()List2.ClearFori=0ToForm12.List1(0).ListCount-1IfText3<>""AndText4=""ThenIfTrim(Text3)=Trim(Form12.List1(0).List(i))ThenList2.AddItemiEndIfEndIfIfText3<>""AndText4<>""ThenIfTrim(Form12.List1(0).List(i))=Trim(Text3)AndTrim(Form12.List1(1).List(i))=Trim(Text4)ThenList2.AddItemiEndIfEndIfNextiIfList2.ListCount>0ThenList2.ListIndex=0p=Val(List2.Text)Callxishi(p)ElseText5(0)=""Text5(1)=""Text5(2)=""Text5(3)=""Text5(4)=""Text5(5)=""EndIfIfList2.ListCount>1ThenCommand2.Enabled=TrueEndSubPrivateSubText4_Change()List2.ClearFori=0ToForm12.List1(0).ListCount-1IfText4<>""AndText3=""ThenIfTrim(Text4)=Trim(Form12.List1(1).List(i))ThenList2.AddItemiEndIfEndIfIfText3<>""AndText4<>""ThenIfTrim(Form12.List1(0).List(i))=Trim(Text3)AndTrim(Form12.List1(1).List(i))=Trim(Text4)ThenList2.AddItemiEndIfEndIfNextiIfList2.ListCount>0ThenList2.ListIndex=0p=Val(List2.Text)Callxishi(p)ElseText5(0)=""Text5(1)=""Text5(2)=""Text5(3)=""Text5(4)=""Text5(5)=""EndIfIfList2.ListCount>1ThenCommand2.Enabled=TrueEndSubPrivateSubText1_Change()List1.ClearList1.AddItem"配件"&""&""&"零件型号"&""&""&"适用车型"&""&""&""&""&"发布日期"&""&""&""&"单位"&""&""&""&""&""&"价格"Fori=0ToForm12.List1(0).ListCount-1IfText1<>""AndText2=""ThenIfTrim(Form12.List1(0).List(i))=Trim(Text1)ThenList1.AddItemForm12.List1(0).List(i)&Form12.List1(1).List(i)&Form12.List1(2).List(i)&Form12.List1(3).List(i)&Form12.List1(4).List(i)&Form12.List1(5).List(i)EndIfEndIfIfText1<>""AndText2<>""ThenIfTrim(Form12.List1(0).List(i))=Trim(Text1)AndTrim(Form12.List1(1).List(i))=Trim(Text2)ThenList1.AddItemForm12.List1(0).List(i)&Form12.List1(1).List(i)&Form12.List1(2).List(i)&Form12.List1(3).List(i)&Form12.List1(4).List(i)&Form12.List1(5).List(i)EndIfEndIfNextiEndSubPrivateSubText2_Change()List1.ClearList1.AddItem"配件"&""&""&"零件型号"&""&""&"适用车型"&""&""&""&""&"发布日期"&""&""&""&"单位"&""&""&""&""&""&"价格"Fori=0ToForm12.List1(0).ListCount-1IfText1=""AndText2<>""ThenIfTrim(Form12.List1(1).List(i))=Trim(Text2)ThenList1.AddItemForm12.List1(0).List(i)&Form12.List1(1).List(i)&Form12.List1(2).List(i)&Form12.List1(3).List(i)&Form12.List1(4).List(i)&Form12.List1(5).List(i)EndIfEndIfIfText1<>""AndText2<>""ThenIfTrim(Form12.List1(0).List(i))=Trim(Text1)AndTrim(Form12.List1(1).List(i))=Trim(Text2)ThenList1.AddItemForm12.List1(0).List(i)&Form12.List1(1).List(i)&Form12.List1(2).List(i)&Form12.List1(3).List(i)&Form12.List1(4).List(i)&Form12.List1(5).List(i)EndIfEndIfNextiEndSubForm11：DimcarsAsqicheDima(5)PrivateSubForm_Load()OpenApp.Path+"\car.dat"ForRandomAs#2DoWhileNotEOF(2)i=i+1Get#2,i,carsList1(0).AddItemcars.pjList1(1).AddItemcars.ljxhList1(2).AddItemcars.sychList1(3).AddItemcars.fbList1(4).AddItemcars.dwList1(5).AddItemcars.jgLoopCloseEndSubPrivateSubList1_Click(IndexAsInteger)SelectCaseIndexCase0List1(5).ListIndex=List1(0).ListIndexList1(4).ListIndex=List1(0).ListIndexList1(3).ListIndex=List1(0).ListIndexList1(2).ListIndex=List1(0).ListIndexList1(1).ListIndex=List1(0).ListIndexCase1List1(5).ListIndex=List1(1).ListIndexList1(4).ListIndex=List1(1).ListIndexList1(3).ListIndex=List1(1).ListIndexList1(2).ListIndex=List1(1).ListIndexList1(0).ListIndex=List1(1).ListIndexCase2List1(5).ListIndex=List1(2).ListIndexList1(4).ListIndex=List1(2).ListIndexList1(3).ListIndex=List1(2).ListIndexList1(0).ListIndex=List1(2).ListIndexList1(1).ListIndex=List1(2).ListIndexCase3List1(5).ListIndex=List1(3).ListIndexList1(4).ListIndex=List1(3).ListIndexList1(0).ListIndex=List1(3).ListIndexList1(2).ListIndex=List1(3).ListIndexList1(1).ListIndex=List1(3).ListIndexCase4List1(5).ListIndex=List1(4).ListIndexList1(0).ListIndex=List1(4).ListIndexList1(3).ListIndex=List1(4).ListIndexList1(2).ListIndex=List1(4).ListIndexList1(1).ListIndex=List1(4).ListIndexCase5List1(0).ListIndex=List1(5).ListIndexList1(4).ListIndex=List1(5).ListIndexList1(3).ListIndex=List1(5).ListIndexList1(2).ListIndex=List1(5).ListIndexList1(1).ListIndex=List1(5).ListIndexEndSelectEndSubForm12:DimcarsAsqicheDima(5)PrivateSubCommand1_Click()IfList1(0).Text=""ThenMsgBox"请选择要修改的零件"ElseForm7.ShowForm7.Text1=List1(0).TextForm7.Text2=List1(1).TextForm7.Text3=List1(2).TextForm7.Text4=List1(3).TextForm7.Text5=List1(4).TextForm7.Text6=List1(5).TextList1(0).RemoveItemList1(0).ListIndexList1(1).RemoveItemList1(1).ListIndexList1(2).RemoveItemList1(2).ListIndexList1(3).RemoveItemList1(3).ListIndexList1(4).RemoveItemList1(4).ListIndexList1(5).RemoveItemList1(5).ListIndexEndIfEndSubPrivateSubCommand2_Click()Form8.ShowEndSubPrivateSubCommand3_Click()List1(0).RemoveItemList1(0).ListIndexList1(1).RemoveItemList1(1).ListIndexList1(2).RemoveItemList1(2).ListIndexList1(3).RemoveItemList1(3).ListIndexList1(4).RemoveItemList1(4).ListIndexList1(5).RemoveItemList1(5).ListIndexEndSubPrivateSubCommand4_Click()Form3.ShowUnloadMeEndSubPrivateSubForm_Load()OpenApp.Path+"\car.dat"ForRandomAs#2DoWhileNotEOF(2)i=i+1Get#2,i,carsList1(0).AddItemcars.pjList1(1).AddItemcars.ljxhList1(2).AddItemcars.sychList1(3).AddItemcars.fbList1(4).AddItemcars.dwList1(5).AddItemcars.jgLoopCloseEndSubPrivateSubList1_Click(IndexAsInteger)SelectCaseIndexCase0List1(5).ListIndex=List1(0).ListIndexList1(4).ListIndex=List1(0).ListIndexList1(3).ListIndex=List1(0).ListIndexList1(2).ListIndex=List1(0).ListIndexList1(1).ListIndex=List1(0).ListIndexCase1List1(5).ListIndex=List1(1).ListIndexList1(4).ListIndex=List1(1).ListIndexList1(3).ListIndex=List1(1).ListIndexList1(2).ListIndex=List1(1).ListIndexList1(0).ListIndex=List1(1).ListIndexCase2List1(5).ListIndex=List1(2).ListIndexList1(4).ListIndex=List1(2).ListIndexList1(3).ListIndex=List1(2).ListIndexList1(0).ListIndex=List1(2).ListIndexList1(1).ListIndex=List1(2).ListIndexCase3List1(5).ListIndex=List1(3).ListIndexList1(4).ListIndex=List1(3).ListIndexList1(0).ListIndex=List1(3).ListIndexList1(2).ListIndex=List1(3).ListIndexList1(1).ListIndex=List1(3).ListIndexCase4List1(5).ListIndex=List1(4).ListIndexList1(0).ListIndex=List1(4).ListIndexList1(3).ListIndex=List1(4).ListIndexList1(2).ListIndex=List1(4).ListIndexList1(1).ListIndex=List1(4).ListIndexCase5List1(0).ListIndex=List1(5).ListIndexList1(4).ListIndex=List1(5).ListIndexList1(3).ListIndex=List1(5).ListIndexList1(2).ListIndex=List1(5).ListIndexList1(1).ListIndex=List1(5).ListIndexEndSelectEndSub结论在这次的设计过程中，我学到的不仅是知识，我还认识到许多事情。这次设计使我的编程水平提高了一大步，使我充分的认识到合作的可贵。由于这次设计涉及到数据库，我的学到了不少编程工具与数据库连接的知识，对数据库的操作有了进一步的了解。这次设计对我的综合能力是一次很好的锻炼，但是我必须承认自己的能力和知识还很肤浅。所以今后我的学习道路还是很漫长的。

致谢本次实验让我越发深入的了解了VB程序，而这次设计的成功主要是得到了老师以及同学们的热心帮助，在此对那些帮助过我的人表示感谢，对学院领导和老师的帮助和支持表示敬意。最后，在这里我要衷心的感谢我们的指导老师，谢谢他的悉心指导和热心帮助。由于我水平有限，加之时间短暂，故此系统中还有许多不足之处，请老师批评指正，我会在以后的制作中不断改进，不断完善。我在以后的学习和生活中一定再接再厉，继续发扬艰苦奋斗的优良作风，努力学习，刻苦钻研，积极工作。以此次课程设计为契机，提升自己的综合素质。

参考文献［1］杨明广王秀华VisualBasic程序设计教程中国科学技术出版社2006.11［2］王秀华陈国超VisualBasic程序设计上机和级考实训教程中国科学教育出版社2006.11[3]龚沛曾.VisualBasic程序设计简明教程（第二版）.高等教育出版社，2003[4]曾强聪.新编VisualBasic程序设计教程.清华大学出版社，2004附录资料：不需要的可以自行删除

Excel表格的基本操作教程Excel快捷键和功能键Ctrl组合快捷键按键说明Ctrl+(取消隐藏选定范围内所有隐藏的行。Ctrl+)取消隐藏选定范围内所有隐藏的列。Ctrl+&将外框应用于选定单元格。Ctrl+_从选定单元格删除外框。Ctrl+~应用“常规”数字格式。Ctrl+$应用带有两位小数的“货币”格式（负数放在括号中）。Ctrl+%应用不带小数位的“百分比”格式。Ctrl+^应用带有两位小数的“指数”格式。Ctrl+#应用带有日、月和年的“日期”格式。Ctrl+@应用带有小时和分钟以及AM或PM的“时间”格式。Ctrl+!应用带有两位小数、千位分隔符和减号(-)（用于负值）的“数值”格式。Ctrl+-显示用于删除选定单元格的“删除”对话框。Ctrl+*选择环绕活动单元格的当前区域（由空白行和空白列围起的数据区域）。在数据透视表中，它将选择整个数据透视表。Ctrl+:输入当前时间。Ctrl+;输入当前日期。Ctrl+`在工作表中切换显示单元格值和公式。Ctrl+'将公式从活动单元格上方的单元格复制到单元格或编辑栏中。Ctrl+"将值从活动单元格上方的单元格复制到单元格或编辑栏中。Ctrl++显示用于插入空白单元格的“插入”对话框。Ctrl+1显示“单元格格式”对话框。Ctrl+2应用或取消加粗格式设置。Ctrl+3应用或取消倾斜格式设置。Ctrl+4应用或取消下划线。Ctrl+5应用或取消删除线。Ctrl+6在隐藏对象、显示对象和显示对象占位符之间切换。Ctrl+7显示或隐藏“常用”工具栏。Ctrl+8显示或隐藏大纲符号。Ctrl+9隐藏选定的行。Ctrl+0隐藏选定的列。Ctrl+A选择整个工作表。如果工作表包含数据，则按Ctrl+A将选择当前区域。再次按Ctrl+A将选择整个工作表。当插入点位于公式中某个函数名称的右边时，则会显示“函数参数”对话框。当插入点位于公式中某个函数名称的右边时，按Ctrl+Shift+A将会插入参数名称和括号。Ctrl+B应用或取消加粗格式设置。Ctrl+C复制选定的单元格。如果连续按两次Ctrl+C，则会显示MicrosoftOffice剪贴板。如果工作表包含数据，则按Ctrl+A将选择当前区域。再次按Ctrl+A将选择整个工作表。当插入点位于公式中某个函数名称的右边时，则会显示“函数参数”对话框。当插入点位于公式中某个函数名称的右边时，按Ctrl+Shift+A将会插入参数名称和括号。Ctrl+B应用或取消加粗格式设置。Ctrl+C复制选定的单元格。如果连续按两次Ctrl+C，则会显示MicrosoftOffice剪贴板。Ctrl+D使用“向下填充”命令将选定范围内最顶层单元格的内容和格式复制到下面的单元格中。Ctrl+F显示“查找”对话框。按Shift+F5也会显示此对话框，而按Shift+F4则会重复上一次“查找”操作。Ctrl+G显示“定位”对话框。按F5也会显示此对话框。Ctrl+H显示“查找和替换”对话框。Ctrl+I应用或取消倾斜格式设置。Ctrl+K为新的超链接显示“插入超链接”对话框，或为选定的现有超链接显示“编辑超链接”对话框。Ctrl+L显示“创建列表”对话框。Ctrl+N创建一个新的空白文件。Ctrl+O显示“打开”对话框以打开或查找文件。按Ctrl+Shift+O可选择所有包含批注的单元格。Ctrl+P显示“打印”对话框。Ctrl+R使用“向右填充”命令将选定范围最左边单元格的内容和格式复制到右边的单元格中。Ctrl+S使用其当前文件名、位置和文件格式保存活动文件。Ctrl+U应用或取消下划线。Ctrl+V在插入点处插入剪贴板的内容，并替换任何选定内容。只有在剪切或复制了对象、文本或单元格内容后，才能使用此快捷键。Ctrl+W关闭选定的工作簿窗口。Ctrl+X剪切选定的单元格。Ctrl+Y重复上一个命令或操作（如有可能）。Ctrl+Z使用“撤消”命令来撤消上一个命令或删除最后键入的条目。显示了自动更正智能标记时，按Ctrl+Shift+Z可使用“撤消”或“重复”命令撤消或恢复上一次自动更正操作。功能键按键说明F1显示“帮助”任务窗格。按Ctrl+F1可关闭并重新打开当前任务窗格。按Alt+F1可创建当前范围中数据的图表。按Alt+Shift+F1可插入新的工作表。F2编辑活动单元格并将插入点放在单元格内容的结尾。如果禁止在单元格中进行编辑，它也会将插入点移到编辑栏中。按Shift+F2可编辑单元格批注。F3将定义的名称粘贴到公式中。按Shift+F3将显示“插入函数”对话框。F4重复上一个命令或操作（如有可能）。按Ctrl+F4可关闭选定的工作簿窗口。F5显示“定位”对话框。按Ctrl+F5可恢复选定工作簿窗口的窗口大小。F6切换到已拆分（“窗口”菜单，“拆分”命令）的工作表中的下一个窗格。按Shift+F6可切换到已拆分的工作表中的上一个窗格。如果打开了多个工作簿窗口，则按Ctrl+F6可切换到下一个工作簿窗口。F7显示“拼写检查”对话框，以检查活动工作表或选定范围中的拼写。如果工作簿窗口未最大化，则按Ctrl+F7可对该窗口执行“移动”命令。使用箭头键移动窗口，并在完成时按Esc。F8打开或关闭扩展模式。在扩展模式中，“EXT”将出现在状态行中，并且按箭头键可扩展选定范围。通过按Shift+F8，您可以使用箭头键将非邻近单元格或范围添加到单元格的选定范围。当工作簿未最大化时，按Ctrl+F8可执行“大小”命令（在工作簿窗口的“控制”菜单上。按Alt+F8可显示用于运行、编辑或删除宏的“宏”对话框。F9计算所有打开的工作簿中的所有工作表。如果先按F9再按Enter（对于数组公式则按Ctrl+Shift+Enter），则会计算选定的公式部分，并将选定部分替换为计算出的值。按Shift+F9可计算活动工作表。按Ctrl+Alt+F9可计算所有打开的工作簿中的所有工作表，不管它们自上次计算以来是否已更改。如果按Ctrl+Alt+Shift+F9，则会重新检查相关公式，然后计算所有打开的工作簿中的所有单元格，其中包括未标记为需要计算的单元格。按Ctrl+F9可将工作簿窗口最小化为图标。F10选择菜单栏或同时关闭打开的菜单和子菜单。按Shift+F10可显示选定项目的快捷菜单。按Alt+Shift+F10可显示智能标记的菜单或消息。如果存在多个智能标记，按该组合键可切换到下一个智能标记并显示其菜单或消息。按Ctrl+F10可最大化或还原选定的工作簿窗口。F11创建当前范围内数据的图表。按Shift+F11可插入一个新工作表。按Alt+F11将打开VisualBasic编辑器，您可以在其中通过使用VisualBasicforApplications(VBA)来创建宏。按Alt+Shift+F11将打开Microsoft脚本编辑器，您可以在其中添加文本、编辑HTML标记以及修改任何脚本代码。F12显示“另存为”对话框。其他有用的快捷键按键说明箭头键在工作表中上移、下移、左移或右移一个单元格。按Ctrl+箭头键可移动到工作表中当前数据区域（数据区域：包含数据的单元格区域，该区域周围为空白单元格或数据表边框。）的边缘。按Shift+箭头键可将单元格的选定范围扩大一个单元格。按Ctrl+Shift+箭头键可将单元格的选定范围扩展到与活动单元格同一列或同一行中的最后一个非空白单元格。当菜单处于可见状态时，按向左键或向右键可选择左边或右边的菜单。当子菜单处于打开状态时，按这些箭头键可在主菜单和子菜单之间切换。当菜单或子菜单处于打开状态时，按向下键或向上键可选择下一个或上一个命令。在对话框中，按箭头键可在打开的下拉列表中的各个选项之间移动，或在一组选项的各个选项之间移动。按Alt+向下键可打开选定的下拉列表。Backspace在编辑栏中删除左边的一个字符。也可清除活动单元格的内容。Delete从选定单元格中删除单元格内容（数据和公式），而不会影响单元格格式或批注。在单元格编辑模式下，按该键将会删除插入点右边的字符。End当ScrollLock处于开启状态时，移动到窗口右下角的单元格。当菜单或子菜单处于可见状态时，也可选择菜单上的最后一个命令。按Ctrl+End可移动到工作表上的最后一个单元格，即所使用的最下方一行与所使用的最右边一列的交汇单元格。按Ctrl+Shift+End可将单元格的选定范围扩展到工作表上所使用的最后一个单元格（右下角）。Enter从单元格或编辑栏中完成单元格输入，并（默认）选择下面的单元格。在数据表单中，按该键可移动到下一条记录中的第一个字段。打开选定的菜单（按F10激活菜单栏），或执行选定命令的操作。在对话框中，按该键可执行对话框中默认命令按钮（带有突出轮廓的按钮，通常为“确定”按钮）的操作。按Alt+Enter可在同一单元格中另起一个新行。按Ctrl+Enter可使用当前条目填充选定的单元格区域。按Shift+Enter可完成单元格输入并选择上面的单元格。Esc取消单元格或编辑栏中的输入。按该键也可关闭打开的菜单或子菜单、对话框或消息窗口。Home移到工作表中某一行的开头。当ScrollLock处于开启状态时，移到窗口左上角的单元格。当菜单或子菜单处于可见状态时，选择菜单上的第一个命令。按Ctrl+Home可移到工作表的开头。按Ctrl+Shift+Home可将单元格的选定范围扩展到工作表的开头。PageDown在工作表中下移一个屏幕。按Alt+PageDown可在工作表中向右移动一个屏幕。按Ctrl+PageDown可移到工作簿中的下一个工作表。按Ctrl+Shift+PageDown可选择工作簿中的当前和下一个工作表。PageUp在工作表中上移一个屏幕。按Alt+PageUp可在工作表中向左移动一个屏幕。按Ctrl+PageUp可移到工作簿中的上一个工作表。按Ctrl+Shift+PageUp可选择工作簿中的当前和上一个工作表。空格键在对话框中，执行选定按钮的操作，或者选中或清除复选框。按Ctrl+空格键可选择工作表中的整列。按Shift+空格键可选择工作表中的整行。按Ctrl+Shift+空格键可选择整个工作表。如果工作表包含数据，则按Ctrl+Shift+空格键将选择当前区域。再按一次Ctrl+Shift+空格键将选择整个工作表。当某个对象处于选定状态时，按Ctrl+Shift+空格键可选择工作表上的所有对象。按Alt+空格键可显示Excel窗口的“控制”菜单。Tab在工作表中向右移动一个单元格。在受保护的工作表中，可在未锁定的单元格之间移动。在对话框中，移到下一个选项或选项组。按Shift+Tab可移到前一个单元格（在工作表中）或前一个选项（在对话框中）。在对话框中，按Ctrl+Tab可切换到下一个选项卡。在对话框中，按Ctrl+Shift+Tab可切换到前一个选项卡。Excel表格的基本操作教程

也许你已经在Excel中完成过上百张财务报表，也许你已利用Excel函数实现过上千次的复杂运算，也许你认为Excel也不过如此，甚至了无新意。但我们平日里无数次重复的得心应手的使用方法只不过是Excel全部技巧的百分之一。本专题从Excel中的一些鲜为人知的技巧入手，领略一下关于Excel的别样风情。

一、让不同类型数据用不同颜色显示

在工资表中，如果想让大于等于2000元的工资总额以“红色”显示，大于等于1500元的工资总额以“蓝色”显示，低于1000元的工资总额以“棕色”显示，其它以“黑色”显示，我们可以这样设置。1.打开“工资表”工作簿，选中“工资总额”所在列，执行“格式→条件格式”命令，打开“条件格式”对话框。单击第二个方框右侧的下拉按钮，选中“大于或等于”选项，在后面的方框中输入数值“2000”。单击“格式”按钮，打开“单元格格式”对话框，将“字体”的“颜色”设置为“红色”。2.按“添加”按钮，并仿照上面的操作设置好其它条件(大于等于1500，字体设置为“蓝色”；小于1000，字体设置为“棕色”)。3.设置完成后，按下“确定”按钮。看看工资表吧，工资总额的数据是不是按你的要求以不同颜色显示出来了。

Excel表格的基本操作教程六、让数据按需排序如果你要将员工按其所在的部门进行排序，这些部门名称既的有关信息不是按拼音顺序，也不是按笔画顺序，怎么办?可采用自定义序列来排序。1.执行“格式→选项”命令，打开“选项”对话框，进入“自定义序列”标签中，在“输入序列”下面的方框中输入部门排序的序列(如“机关,车队,一车间,二车间,三车间”等)，单击“添加”和“确定”按钮退出。2.选中“部门”列中任意一个单元格，执行“数据→排序”命令，打开“排序”对话框，单击“选项”按钮，弹出“排序选项”对话框，按其中的下拉按钮，选中刚才自定义的序列，按两次“确定”按钮返回，所有数据就按要求进行了排序。二、建立分类下拉列表填充项我们常常要将企业的名称输入到表格中，为了保持名称的一致性，利用“数据有效性”功能建了一个分类下拉列表填充项。1.在Sheet2中，将企业名称按类别(如“工业企业”、“商业企业”、“个体企业”等)分别输入不同列中，建立一个企业名称数据库。2.选中A列(“工业企业”名称所在列)，在“名称”栏内，输入“工业企业”字符后，按“回车”键进行确认。仿照上面的操作，将B、C……列分别命名为“商业企业”、“个体企业”……3.切换到Sheet1中，选中需要输入“企业类别”的列(如C列)，执行“数据→有效性”命令，打开“数据有效性”对话框。在“设置”标签中，单击“允许”右侧的下拉按钮，选中“序列”选项，在下面的“来源”方框中，输入“工业企业”，“商业企业”，“个体企业”……序列(各元素之间用英文逗号隔开)，确定退出。再选中需要输入企业名称的列(如D列)，再打开“数据有效性”对话框，选中“序列”选项后，在“来源”方框中输入公式：=INDIRECT(C1)，确定退出。4.选中C列任意单元格(如C4)，单击右侧下拉按钮，选择相应的“企业类别”填入单元格中。然后选中该单元格对应的D列单元格(如D4)，单击下拉按钮，即可从相应类别的企业名称列表中选择需要的企业名称填入该单元格中。提示：在以后打印报表时，如果不需要打印“企业类别”列，可以选中该列，右击鼠标，选“隐藏”选项，将该列隐藏起来即可。三、建立“常用文档”新菜单在菜单栏上新建一个“常用文档”菜单，将常用的工作簿文档添加到其中，方便随时调用。1.在工具栏空白处右击鼠标，选“自定义”选项，打开“自定义”对话框。在“命令”标签中，选中“类别”下的“新菜单”项，再将“命令”下面的“新菜单”拖到菜单栏。按“更改所选内容”按钮，在弹出菜单的“命名”框中输入一个名称(如“常用文档”)。Excel表格的基本操作教程2.再在“类别”下面任选一项(如“插入”选项)，在右边“命令”下面任选一项(如“超链接”选项)，将它拖到新菜单(常用文档)中，并仿照上面的操作对它进行命名(如“工资表”等)，建立第一个工作簿文档列表名称。重复上面的操作，多添加几个文档列表名称。3.选中“常用文档”菜单中某个菜单项(如“工资表”等)，右击鼠标，在弹出的快捷菜单中，选“分配超链接→打开”选项，打开“分配超链接”对话框。通过按“查找范围”右侧的下拉按钮，定位到相应的工作簿(如“工资.xls”等)文件夹，并选中该工作簿文档。重复上面的操作，将菜单项和与它对应的工作簿文档超链接起来。4.以后需要打开“常用文档”菜单中的某个工作簿文档时，只要展开“常用文档”菜单，单击其中的相应选项即可。提示：尽管我们将“超链接”选项拖到了“常用文档”菜单中，但并不影响“插入”菜单中“超链接”菜单项和“常用”工具栏上的“插入超链接”按钮的功能。Excel表格的基本操作教程四、制作“专业符号”工具栏Excel表格的基本操作教程在编辑专业表格时，常常需要输入一些特殊的专业符号，为了方便输入，我们可以制作一个属于自己的“专业符号”工具栏。1.执行“工具→宏→录制新宏”命令，打开“录制新宏”对话框，输入宏名?如“fuhao1”?并将宏保存在“个人宏工作簿”中，然后“确定”开始录制。选中“录制宏”工具栏上的“相对引用”按钮，然后将需要的特殊符号输入到某个单元格中，再单击“录制宏”工具栏上的“停止”按钮，完成宏的录制。仿照上面的操作，一一录制好其它特殊符号的输入“宏”。2.打开“自定义”对话框，在“工具栏”标签中，单击“新建”按钮，弹出“新建工具栏”对话框，输入名称——“专业符号”，确定后，即在工作区中出现一个工具条。切换到“命令”标签中，选中“类别”下面的“宏”，将“命令”下面的“自定义按钮”项拖到“专业符号”栏上(有多少个特殊符号就拖多少个按钮)。3.选中其中一个“自定义按钮”，仿照第2个秘技的第1点对它们进行命名。4.右击某个命名后的按钮，在随后弹出的快捷菜单中，选“指定宏”选项，打开“指定宏”对话框，选中相应的宏(如fuhao1等)，确定退出。重复此步操作，将按钮与相应的宏链接起来。5.关闭“自定义”对话框，以后可以像使用普通工具栏一样，使用“专业符号”工具栏，向单元格中快速输入专业符号了。五、用“视面管理器”保存多个打印页面有的工作表，经常需要打印其中不同的区域，用“视面管理器”吧。1.打开需要打印的工作表，用鼠标在不需要打印的行(或列)标上拖拉，选中它们再右击鼠标，在随后出现的快捷菜单中，选“隐藏”选项，将不需要打印的行(或列)隐藏起来。2.执行“视图→视面管理器”命令，打开“视面管理器”对话框，单击“添加”按钮，弹出“添加视面”对话框，输入一个名称(如“上报表”)后，单击“确定”按钮。3.将隐藏的行(或列)显示出来，并重复上述操作，“添加”好其它的打印视面。4.以后需要打印某种表格时，打开“视面管理器”，选中需要打印的表格名称，单击“显示”按钮，工作表即刻按事先设定好的界面显示出来，简单设置、排版一下，按下工具栏上的“打印”按钮，一切就OK了。七、把数据彻底隐藏起来工作表部分单元格中的内容不想让浏览者查阅，只好将它隐藏起来了。1.选中需要隐藏内容的单元格(区域)，执行“格式→单元格”命令，打开“单元格格式”对话框，在“数字”标签的“分类”下面选中“自定义”选项，然后在右边“类型”下面的方框中输入“；；；”(三个英文状态下的分号)。2.再切换到“保护”标签下，选中其中的“隐藏”选项，按“确定”按钮退出。3.执行“工具→保护→保护工作表”命令，打开“保护工作表”对话框，设置好密码后，“确定”返回。经过这样的设置以后，上述单元格中的内容不再显示出来，就是使用Excel的透明功能也不能让其现形。提示：在“保护”标签下，请不要清除“锁定”前面复选框中的“∨”号，这样可以防止别人删除你隐藏起来的数据。八、让中、英文输入法智能化地出现在编辑表格时，有的单元格中要输入英文，有的单元格中要输入中文，反复切换输入法实在不方便，何不设置一下，让输入法智能化地调整呢?选中需要输入中文的单元格区域，执行“数据→有效性”命令，打开“数据有效性”对话框，切换到“输入法模式”标签下，按“模式”右侧的下拉按钮，选中“打开”选项后，“确定”退出。以后当选中需要输入中文的单元格区域中任意一个单元格时，中文输入法(输入法列表中的第1个中文输入法)自动打开，当选中其它单元格时，中文输入法自动关闭。九、让“自动更正”输入统一的文本你是不是经常为输入某些固定的文本，如《电脑报》而烦恼呢?那就往下看吧。1.执行“工具→自动更正”命令，打开“自动更正”对话框。2.在“替换”下面的方框中输入“pcw”(也可以是其他字符，“pcw”用小写)，在“替换为”下面的方框中输入“《电脑报》”，再单击“添加”和“确定”按钮。3.以后如果需要输入上述文本时，只要输入“pcw”字符?此时可以不考虑“pcw”的大小写?，然后确认一下就成了。十、在Excel中自定义函数Excel函数虽然丰富，但并不能满足我们的所有需要。我们可以自定义一个函数，来完成一些特定的运算。下面，我们就来自定义一个计算梯形面积的函数：1.执行“工具→宏→VisualBasic编辑器”菜单命令(或按“Alt+F11”快捷键)，打开VisualBasic编辑窗口。2.在窗口中，执行“插入→模块”菜单命令，插入一个新的模块——模块1。3.在右边的“代码窗口”中输入以下代码：FunctionV(a,b,h)V=h*(a+b)/2EndFunction4.关闭窗口，自定义函数完成。以后可以像使用内置函数一样使用自定义函数。提示：用上面方法自定义的函数通常只能在相应的工作簿中使用。十一、表头下面衬张图片为工作表添加的背景，是衬在整个工作表下面的，能不能只衬在表头下面呢?1.执行“格式→工作表→背景”命令，打开“工作表背景”对话框，选中需要作为背景的图片后，按下“插入”按钮，将图片衬于整个工作表下面。2.在按住Ctrl键的同时，用鼠标在不需要衬图片的单元格(区域)中拖拉，同时选中这些单元格(区域)。3.按“格式”工具栏上的“填充颜色”右侧的下拉按钮，在随后出现的“调色板”中，选中“白色”。经过这样的设置以后，留下的单元格下面衬上了图片，而上述选中的单元格(区域)下面就没有衬图片了(其实，是图片被“白色”遮盖了)。提示?衬在单元格下面的图片是不支持打印的。十二、用连字符“&”来合并文本如果我们想将多列的内容合并到一列中，不需要利用函数，一个小小的连字符“&”就能将它搞定(此处假定将B、C、D列合并到一列中)。1.在D列后面插入两个空列(E、F列)，然后在D1单元格中输入公式：=B1&C1&D1。2.再次选中D1单元格，用“填充柄”将上述公式复制到D列下面的单元格中，B、C、D列的内容即被合并到E列对应的单元格中。3.选中E列，执行“复制”操作，然后选中F列，执行“编辑→选择性粘贴”命令，打开“选择性粘贴”对话框，选中其中的“数值”选项，按下“确定”按钮，E列的内容(不是公式)即被复制到F列中。4.将B、C、D、E列删除，完成合并工作。提示：完成第1、2步的操作，合并效果已经实现，但此时如果删除B、C、D列，公式会出现错误。故须进行第3步操作，将公式转换为不变的“值”。十三、生成绩条常有朋友问“如何打印成绩条”这样的问题，有不少人采取录制宏或VBA的方法来实现，这对于初学者来说有一定难度。出于此种考虑，我在这里给出一种用函数实现的简便方法。此处假定学生成绩保存在Sheet1工作表的A1至G64单元格区域中，其中第1行为标题，第2行为学科名称。1.切换到Sheet2工作表中，选中A1单元格，输入公式：=IF(MOD(ROW()，3)=0，″″，IF(0MOD?ROW()，3(=1，sheet1！Aū，INDEX(sheet1！$A：$G，INT(((ROW()+4)/3)+1)，COLUMN())))。2.再次选中A1单元格，用“填充柄”将上述公式复制到B1至G1单元格中；然后，再同时选中A1至G1单元格区域，用“填充柄”将上述公式复制到A2至G185单元格中。至此，成绩条基本成型，下面简单修饰一下。3.调整好行高和列宽后，同时选中A1至G2单元格区域(第1位学生的成绩条区域)，按“格式”工具栏“边框”右侧的下拉按钮，在随后出现的边框列表中，选中“所有框线”选项，为选中的区域添加边框(如果不需要边框，可以不进行此步及下面的操作)。4.同时选中A1至G3单元格区域，点击“常用”工具栏上的“格式刷”按钮，然后按住鼠标左键，自A4拖拉至G186单元格区域，为所有的成绩条添加边框。按“打印”按钮，即可将成绩条打印出来。十四、Excel帮你选函数在用函数处理数据时，常常不知道使用什么函数比较合适。Excel的“搜索函数”功能可以帮你缩小范围，挑选出合适的函数。执行“插入→函数”命令，打开“插入函数”对话框，在“搜索函数”下面的方框中输入要求(如“计数”)，然后单击“转到”按钮，系统即刻将与“计数”有关的函数挑选出来，并显示在“选择函数”下面的列表框中。再结合查看相关的帮助文件，即可快速确定所需要的函数。十五、同时查看不同工作表中多个单元格内的数据有时，我们编辑某个工作表(Sheet1)时，需要查看其它工作表中(Sheet2、Sheet3……)某个单元格的内容，可以利用Excel的“监视窗口”功能来实现。执行“视图→工具栏→监视窗口”命令，打开“监视窗口”，单击其中的“添加监视”按钮，展开“添加监视点”对话框，用鼠标选中需要查看的单元格后，再单击“添加”按钮。重复前述操作，添加其它“监视点”。以后，无论在哪个工作表中，只要打开“监视窗口”，即可查看所有被监视点单元格内的数据和相关信息。十六、为单元格快速画边框在Excel2002以前的版本中，为单元格区域添加边框的操作比较麻烦，Excel2002对此功能进行了全新的拓展。单击“格式”工具栏上“边框”右侧的下拉按钮，在随后弹出的下拉列表中，选“绘图边框”选项，或者执行“视图→工具栏→边框”命令，展开“边框”工具栏。单击工具栏最左侧的下拉按钮，选中一种边框样式，然后在需要添加边框的单元格区域中拖拉，即可为相应的单元格区域快速画上边框。提示：①如果画错了边框，没关系，选中工具栏上的“擦除边框”按钮，然后在错误的边