汽車(chē)零部件查詢(xún)系統(tǒng)設(shè)計(jì)

計(jì)算機(jī)應(yīng)用基礎(chǔ)課程設(shè)計(jì)49- PAGE交通與汽車(chē)工程學(xué)院課程設(shè)計(jì)說(shuō)明書(shū)課程名稱(chēng):計(jì)算機(jī)應(yīng)用基礎(chǔ)課程設(shè)計(jì)課程代碼:6011339題目:汽車(chē)零部件查詢(xún)系統(tǒng)設(shè)計(jì)年級(jí)/專(zhuān)業(yè)/班:學(xué)生姓名:學(xué)號(hào):開(kāi)始時(shí)間:2012年4月1日完成時(shí)間:2012年4月12日課程設(shè)計(jì)成績(jī)：學(xué)習(xí)態(tài)度及平時(shí)成績(jī)（30）技術(shù)水平與實(shí)際能力（20）創(chuàng)新（5）說(shuō)明書(shū)（計(jì)算書(shū)、圖紙、分析報(bào)告）撰寫(xiě)質(zhì)量（45）總分（100）指導(dǎo)教師簽名：年月日目錄摘要…………………21引言…………………32本程序主要功能…………………33本程序結(jié)構(gòu)設(shè)計(jì)…………………44程序設(shè)計(jì)界面…………………45程序代碼……………………10結(jié)論………………………30致謝………………………31參考文獻(xiàn)…………………32摘要隨著計(jì)算機(jī)的普及程序的應(yīng)用也越來(lái)越受到重視，本次課程設(shè)計(jì)使用VisualBasic作為開(kāi)發(fā)工具，進(jìn)行了汽車(chē)零部件查詢(xún)系統(tǒng)設(shè)計(jì)的程序設(shè)計(jì)，本系統(tǒng)主要完成對(duì)汽車(chē)零部件的管理，包括庫(kù)存的添加、刪除等。系統(tǒng)可以完成對(duì)各類(lèi)信息的追加、瀏覽、修改、查詢(xún)和計(jì)算等功能。汽車(chē)零部件查詢(xún)系統(tǒng)廣泛應(yīng)用于4S店汽車(chē)零部件的庫(kù)存與銷(xiāo)售管理工作中，要求其具有實(shí)用性強(qiáng)、使用方便、效率高和安全可靠等特點(diǎn)。本管理系統(tǒng)正是圍繞以上幾個(gè)方面進(jìn)行開(kāi)發(fā)的，在開(kāi)發(fā)過(guò)程中充分考慮到本系統(tǒng)的應(yīng)用特點(diǎn)，并進(jìn)行了大量的檢驗(yàn)，證明其的確達(dá)到了設(shè)計(jì)的要求，是一個(gè)已具備了實(shí)際應(yīng)用能力的軟件。關(guān)鍵詞：汽車(chē)零部件銷(xiāo)售庫(kù)存銷(xiāo)售

1引言1.1問(wèn)題的提出為適合現(xiàn)代企業(yè)發(fā)展的需要,汽車(chē)零部件管理已經(jīng)成為困擾銷(xiāo)售的一個(gè)難題,由于其費(fèi)時(shí)和繁瑣性，企業(yè)迫切需要一種專(zhuān)門(mén)為零部件管理而服務(wù)的工具。為此,簡(jiǎn)單的汽車(chē)零部件管理系統(tǒng)為此而制造出來(lái)。本簡(jiǎn)單程序是為汽車(chē)零部件管理而設(shè)計(jì)的,內(nèi)容簡(jiǎn)單，使用方便。程序稍加變更可以適合對(duì)資源分配方面的雜事加以處理。作為當(dāng)代大學(xué)生，熟練的操作計(jì)算機(jī)是一種必備的素質(zhì)。本次設(shè)計(jì)會(huì)讓我們更加熟悉VB編程，把以前學(xué)過(guò)的一些東西又重新復(fù)習(xí)了一遍，并與實(shí)際結(jié)合起來(lái)，對(duì)我們能力的提升有了很大的幫助，還能促使我們?cè)谝院蟮膶?shí)際應(yīng)用中更好的應(yīng)用VB編程來(lái)設(shè)計(jì)一些數(shù)據(jù)庫(kù)管理系統(tǒng)。2本程序主要功能汽車(chē)零部件管理系統(tǒng)是典型的信息管理系統(tǒng)，其開(kāi)發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開(kāi)發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。而對(duì)于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn).本系統(tǒng)主要完成對(duì)汽車(chē)零部件信息的管理，包括數(shù)據(jù)庫(kù)中零件的入庫(kù)和出庫(kù)等。系統(tǒng)可以完成對(duì)各類(lèi)信息的瀏覽、修改、查詢(xún)對(duì)零件銷(xiāo)售價(jià)格進(jìn)行計(jì)算等功能。系統(tǒng)的核心是數(shù)據(jù)庫(kù)中零件的余量，每一個(gè)零件的修改都將聯(lián)動(dòng)的影響其它的各項(xiàng)信息，當(dāng)完成對(duì)數(shù)據(jù)的操作時(shí)系統(tǒng)會(huì)自動(dòng)地完成數(shù)據(jù)庫(kù)的修改。查詢(xún)功能也是系統(tǒng)的核心之一，在系統(tǒng)中即有單條件查詢(xún)和多條件查詢(xún)，也有精確查詢(xún)和模糊查詢(xún)，系統(tǒng)不僅有靜態(tài)的條件查詢(xún)，也有動(dòng)態(tài)生成的條件查詢(xún)，其目的都是為了方便用戶(hù)使用。本系統(tǒng)有完整的報(bào)價(jià)查詢(xún)，庫(kù)存剩余量，零件名稱(chēng)，銷(xiāo)售型號(hào)，匹配車(chē)型查詢(xún)等等。3本程序結(jié)構(gòu)設(shè)計(jì)汽車(chē)零部件管理系統(tǒng)是典型的信息管理系統(tǒng)，其開(kāi)發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開(kāi)發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。而對(duì)于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn).其中利用函數(shù)調(diào)用，查詢(xún)功能，庫(kù)存檢索等完成此次設(shè)計(jì)。4程序設(shè)計(jì)界面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"用戶(hù)不存在,請(qǐng)重新輸入！",vbOKOnly+vbInformation,"用戶(hù)名錯(cuò)誤"ElseMsgBox"重試次數(shù)已到，即將退出本系統(tǒng)!",vbOKOnly+vbExclamation,"用戶(hù)名錯(cuò)誤"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"請(qǐng)選擇修改對(duì)象"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"請(qǐng)輸入完整的信息"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"請(qǐng)寫(xiě)入完整的信息！"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"配件"&""&""&"零件型號(hào)"&""&""&"適用車(chē)型"&""&""&""&""&"發(fā)布日期"&""&""&""&"單位"&""&""&""&""&""&"價(jià)格"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"配件"&""&""&"零件型號(hào)"&""&""&"適用車(chē)型"&""&""&""&""&"發(fā)布日期"&""&""&""&"單位"&""&""&""&""&""&"價(jià)格"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"請(qǐng)選擇要修改的零件"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結(jié)論在這次的設(shè)計(jì)過(guò)程中，我學(xué)到的不僅是知識(shí)，我還認(rèn)識(shí)到許多事情。這次設(shè)計(jì)使我的編程水平提高了一大步，使我充分的認(rèn)識(shí)到合作的可貴。由于這次設(shè)計(jì)涉及到數(shù)據(jù)庫(kù)，我的學(xué)到了不少編程工具與數(shù)據(jù)庫(kù)連接的知識(shí)，對(duì)數(shù)據(jù)庫(kù)的操作有了進(jìn)一步的了解。這次設(shè)計(jì)對(duì)我的綜合能力是一次很好的鍛煉，但是我必須承認(rèn)自己的能力和知識(shí)還很膚淺。所以今后我的學(xué)習(xí)道路還是很漫長(zhǎng)的。

致謝本次實(shí)驗(yàn)讓我越發(fā)深入的了解了VB程序，而這次設(shè)計(jì)的成功主要是得到了老師以及同學(xué)們的熱心幫助，在此對(duì)那些幫助過(guò)我的人表示感謝，對(duì)學(xué)院領(lǐng)導(dǎo)和老師的幫助和支持表示敬意。最后，在這里我要衷心的感謝我們的指導(dǎo)老師，謝謝他的悉心指導(dǎo)和熱心幫助。由于我水平有限，加之時(shí)間短暫，故此系統(tǒng)中還有許多不足之處，請(qǐng)老師批評(píng)指正，我會(huì)在以后的制作中不斷改進(jìn)，不斷完善。我在以后的學(xué)習(xí)和生活中一定再接再厲，繼續(xù)發(fā)揚(yáng)艱苦奮斗的優(yōu)良作風(fēng)，努力學(xué)習(xí)，刻苦鉆研，積極工作。以此次課程設(shè)計(jì)為契機(jī)，提升自己的綜合素質(zhì)。

參考文獻(xiàn)［1］楊明廣王秀華VisualBasic程序設(shè)計(jì)教程中國(guó)科學(xué)技術(shù)出版社2006.11［2］王秀華陳國(guó)超VisualBasic程序設(shè)計(jì)上機(jī)和級(jí)考實(shí)訓(xùn)教程中國(guó)科學(xué)教育出版社2006.11[3]龔沛曾.VisualBasic程序設(shè)計(jì)簡(jiǎn)明教程（第二版）.高等教育出版社，2003[4]曾強(qiáng)聰.新編VisualBasic程序設(shè)計(jì)教程.清華大學(xué)出版社，2004附錄資料：不需要的可以自行刪除

Excel表格的基本操作教程Excel快捷鍵和功能鍵Ctrl組合快捷鍵按鍵說(shuō)明Ctrl+(取消隱藏選定范圍內(nèi)所有隱藏的行。Ctrl+)取消隱藏選定范圍內(nèi)所有隱藏的列。Ctrl+&將外框應(yīng)用于選定單元格。Ctrl+_從選定單元格刪除外框。Ctrl+~應(yīng)用“常規(guī)”數(shù)字格式。Ctrl+$應(yīng)用帶有兩位小數(shù)的“貨幣”格式（負(fù)數(shù)放在括號(hào)中）。Ctrl+%應(yīng)用不帶小數(shù)位的“百分比”格式。Ctrl+^應(yīng)用帶有兩位小數(shù)的“指數(shù)”格式。Ctrl+#應(yīng)用帶有日、月和年的“日期”格式。Ctrl+@應(yīng)用帶有小時(shí)和分鐘以及AM或PM的“時(shí)間”格式。Ctrl+!應(yīng)用帶有兩位小數(shù)、千位分隔符和減號(hào)(-)（用于負(fù)值）的“數(shù)值”格式。Ctrl+-顯示用于刪除選定單元格的“刪除”對(duì)話(huà)框。Ctrl+*選擇環(huán)繞活動(dòng)單元格的當(dāng)前區(qū)域（由空白行和空白列圍起的數(shù)據(jù)區(qū)域）。在數(shù)據(jù)透視表中，它將選擇整個(gè)數(shù)據(jù)透視表。Ctrl+:輸入當(dāng)前時(shí)間。Ctrl+;輸入當(dāng)前日期。Ctrl+`在工作表中切換顯示單元格值和公式。Ctrl+'將公式從活動(dòng)單元格上方的單元格復(fù)制到單元格或編輯欄中。Ctrl+"將值從活動(dòng)單元格上方的單元格復(fù)制到單元格或編輯欄中。Ctrl++顯示用于插入空白單元格的“插入”對(duì)話(huà)框。Ctrl+1顯示“單元格格式”對(duì)話(huà)框。Ctrl+2應(yīng)用或取消加粗格式設(shè)置。Ctrl+3應(yīng)用或取消傾斜格式設(shè)置。Ctrl+4應(yīng)用或取消下劃線(xiàn)。Ctrl+5應(yīng)用或取消刪除線(xiàn)。Ctrl+6在隱藏對(duì)象、顯示對(duì)象和顯示對(duì)象占位符之間切換。Ctrl+7顯示或隱藏“常用”工具欄。Ctrl+8顯示或隱藏大綱符號(hào)。Ctrl+9隱藏選定的行。Ctrl+0隱藏選定的列。Ctrl+A選擇整個(gè)工作表。如果工作表包含數(shù)據(jù)，則按Ctrl+A將選擇當(dāng)前區(qū)域。再次按Ctrl+A將選擇整個(gè)工作表。當(dāng)插入點(diǎn)位于公式中某個(gè)函數(shù)名稱(chēng)的右邊時(shí)，則會(huì)顯示“函數(shù)參數(shù)”對(duì)話(huà)框。當(dāng)插入點(diǎn)位于公式中某個(gè)函數(shù)名稱(chēng)的右邊時(shí)，按Ctrl+Shift+A將會(huì)插入?yún)?shù)名稱(chēng)和括號(hào)。Ctrl+B應(yīng)用或取消加粗格式設(shè)置。Ctrl+C復(fù)制選定的單元格。如果連續(xù)按兩次Ctrl+C，則會(huì)顯示MicrosoftOffice剪貼板。如果工作表包含數(shù)據(jù)，則按Ctrl+A將選擇當(dāng)前區(qū)域。再次按Ctrl+A將選擇整個(gè)工作表。當(dāng)插入點(diǎn)位于公式中某個(gè)函數(shù)名稱(chēng)的右邊時(shí)，則會(huì)顯示“函數(shù)參數(shù)”對(duì)話(huà)框。當(dāng)插入點(diǎn)位于公式中某個(gè)函數(shù)名稱(chēng)的右邊時(shí)，按Ctrl+Shift+A將會(huì)插入?yún)?shù)名稱(chēng)和括號(hào)。Ctrl+B應(yīng)用或取消加粗格式設(shè)置。Ctrl+C復(fù)制選定的單元格。如果連續(xù)按兩次Ctrl+C，則會(huì)顯示MicrosoftOffice剪貼板。Ctrl+D使用“向下填充”命令將選定范圍內(nèi)最頂層單元格的內(nèi)容和格式復(fù)制到下面的單元格中。Ctrl+F顯示“查找”對(duì)話(huà)框。按Shift+F5也會(huì)顯示此對(duì)話(huà)框，而按Shift+F4則會(huì)重復(fù)上一次“查找”操作。Ctrl+G顯示“定位”對(duì)話(huà)框。按F5也會(huì)顯示此對(duì)話(huà)框。Ctrl+H顯示“查找和替換”對(duì)話(huà)框。Ctrl+I應(yīng)用或取消傾斜格式設(shè)置。Ctrl+K為新的超鏈接顯示“插入超鏈接”對(duì)話(huà)框，或?yàn)檫x定的現(xiàn)有超鏈接顯示“編輯超鏈接”對(duì)話(huà)框。Ctrl+L顯示“創(chuàng)建列表”對(duì)話(huà)框。Ctrl+N創(chuàng)建一個(gè)新的空白文件。Ctrl+O顯示“打開(kāi)”對(duì)話(huà)框以打開(kāi)或查找文件。按Ctrl+Shift+O可選擇所有包含批注的單元格。Ctrl+P顯示“打印”對(duì)話(huà)框。Ctrl+R使用“向右填充”命令將選定范圍最左邊單元格的內(nèi)容和格式復(fù)制到右邊的單元格中。Ctrl+S使用其當(dāng)前文件名、位置和文件格式保存活動(dòng)文件。Ctrl+U應(yīng)用或取消下劃線(xiàn)。Ctrl+V在插入點(diǎn)處插入剪貼板的內(nèi)容，并替換任何選定內(nèi)容。只有在剪切或復(fù)制了對(duì)象、文本或單元格內(nèi)容后，才能使用此快捷鍵。Ctrl+W關(guān)閉選定的工作簿窗口。Ctrl+X剪切選定的單元格。Ctrl+Y重復(fù)上一個(gè)命令或操作（如有可能）。Ctrl+Z使用“撤消”命令來(lái)撤消上一個(gè)命令或刪除最后鍵入的條目。顯示了自動(dòng)更正智能標(biāo)記時(shí)，按Ctrl+Shift+Z可使用“撤消”或“重復(fù)”命令撤消或恢復(fù)上一次自動(dòng)更正操作。功能鍵按鍵說(shuō)明F1顯示“幫助”任務(wù)窗格。按Ctrl+F1可關(guān)閉并重新打開(kāi)當(dāng)前任務(wù)窗格。按Alt+F1可創(chuàng)建當(dāng)前范圍中數(shù)據(jù)的圖表。按Alt+Shift+F1可插入新的工作表。F2編輯活動(dòng)單元格并將插入點(diǎn)放在單元格內(nèi)容的結(jié)尾。如果禁止在單元格中進(jìn)行編輯，它也會(huì)將插入點(diǎn)移到編輯欄中。按Shift+F2可編輯單元格批注。F3將定義的名稱(chēng)粘貼到公式中。按Shift+F3將顯示“插入函數(shù)”對(duì)話(huà)框。F4重復(fù)上一個(gè)命令或操作（如有可能）。按Ctrl+F4可關(guān)閉選定的工作簿窗口。F5顯示“定位”對(duì)話(huà)框。按Ctrl+F5可恢復(fù)選定工作簿窗口的窗口大小。F6切換到已拆分（“窗口”菜單，“拆分”命令）的工作表中的下一個(gè)窗格。按Shift+F6可切換到已拆分的工作表中的上一個(gè)窗格。如果打開(kāi)了多個(gè)工作簿窗口，則按Ctrl+F6可切換到下一個(gè)工作簿窗口。F7顯示“拼寫(xiě)檢查”對(duì)話(huà)框，以檢查活動(dòng)工作表或選定范圍中的拼寫(xiě)。如果工作簿窗口未最大化，則按Ctrl+F7可對(duì)該窗口執(zhí)行“移動(dòng)”命令。使用箭頭鍵移動(dòng)窗口，并在完成時(shí)按Esc。F8打開(kāi)或關(guān)閉擴(kuò)展模式。在擴(kuò)展模式中，“EXT”將出現(xiàn)在狀態(tài)行中，并且按箭頭鍵可擴(kuò)展選定范圍。通過(guò)按Shift+F8，您可以使用箭頭鍵將非鄰近單元格或范圍添加到單元格的選定范圍。當(dāng)工作簿未最大化時(shí)，按Ctrl+F8可執(zhí)行“大小”命令（在工作簿窗口的“控制”菜單上。按Alt+F8可顯示用于運(yùn)行、編輯或刪除宏的“宏”對(duì)話(huà)框。F9計(jì)算所有打開(kāi)的工作簿中的所有工作表。如果先按F9再按Enter（對(duì)于數(shù)組公式則按Ctrl+Shift+Enter），則會(huì)計(jì)算選定的公式部分，并將選定部分替換為計(jì)算出的值。按Shift+F9可計(jì)算活動(dòng)工作表。按Ctrl+Alt+F9可計(jì)算所有打開(kāi)的工作簿中的所有工作表，不管它們自上次計(jì)算以來(lái)是否已更改。如果按Ctrl+Alt+Shift+F9，則會(huì)重新檢查相關(guān)公式，然后計(jì)算所有打開(kāi)的工作簿中的所有單元格，其中包括未標(biāo)記為需要計(jì)算的單元格。按Ctrl+F9可將工作簿窗口最小化為圖標(biāo)。F10選擇菜單欄或同時(shí)關(guān)閉打開(kāi)的菜單和子菜單。按Shift+F10可顯示選定項(xiàng)目的快捷菜單。按Alt+Shift+F10可顯示智能標(biāo)記的菜單或消息。如果存在多個(gè)智能標(biāo)記，按該組合鍵可切換到下一個(gè)智能標(biāo)記并顯示其菜單或消息。按Ctrl+F10可最大化或還原選定的工作簿窗口。F11創(chuàng)建當(dāng)前范圍內(nèi)數(shù)據(jù)的圖表。按Shift+F11可插入一個(gè)新工作表。按Alt+F11將打開(kāi)VisualBasic編輯器，您可以在其中通過(guò)使用VisualBasicforApplications(VBA)來(lái)創(chuàng)建宏。按Alt+Shift+F11將打開(kāi)Microsoft腳本編輯器，您可以在其中添加文本、編輯HTML標(biāo)記以及修改任何腳本代碼。F12顯示“另存為”對(duì)話(huà)框。其他有用的快捷鍵按鍵說(shuō)明箭頭鍵在工作表中上移、下移、左移或右移一個(gè)單元格。按Ctrl+箭頭鍵可移動(dòng)到工作表中當(dāng)前數(shù)據(jù)區(qū)域（數(shù)據(jù)區(qū)域：包含數(shù)據(jù)的單元格區(qū)域，該區(qū)域周?chē)鸀榭瞻讍卧窕驍?shù)據(jù)表邊框。）的邊緣。按Shift+箭頭鍵可將單元格的選定范圍擴(kuò)大一個(gè)單元格。按Ctrl+Shift+箭頭鍵可將單元格的選定范圍擴(kuò)展到與活動(dòng)單元格同一列或同一行中的最后一個(gè)非空白單元格。當(dāng)菜單處于可見(jiàn)狀態(tài)時(shí)，按向左鍵或向右鍵可選擇左邊或右邊的菜單。當(dāng)子菜單處于打開(kāi)狀態(tài)時(shí)，按這些箭頭鍵可在主菜單和子菜單之間切換。當(dāng)菜單或子菜單處于打開(kāi)狀態(tài)時(shí)，按向下鍵或向上鍵可選擇下一個(gè)或上一個(gè)命令。在對(duì)話(huà)框中，按箭頭鍵可在打開(kāi)的下拉列表中的各個(gè)選項(xiàng)之間移動(dòng)，或在一組選項(xiàng)的各個(gè)選項(xiàng)之間移動(dòng)。按Alt+向下鍵可打開(kāi)選定的下拉列表。Backspace在編輯欄中刪除左邊的一個(gè)字符。也可清除活動(dòng)單元格的內(nèi)容。Delete從選定單元格中刪除單元格內(nèi)容（數(shù)據(jù)和公式），而不會(huì)影響單元格格式或批注。在單元格編輯模式下，按該鍵將會(huì)刪除插入點(diǎn)右邊的字符。End當(dāng)ScrollLock處于開(kāi)啟狀態(tài)時(shí)，移動(dòng)到窗口右下角的單元格。當(dāng)菜單或子菜單處于可見(jiàn)狀態(tài)時(shí)，也可選擇菜單上的最后一個(gè)命令。按Ctrl+End可移動(dòng)到工作表上的最后一個(gè)單元格，即所使用的最下方一行與所使用的最右邊一列的交匯單元格。按Ctrl+Shift+End可將單元格的選定范圍擴(kuò)展到工作表上所使用的最后一個(gè)單元格（右下角）。Enter從單元格或編輯欄中完成單元格輸入，并（默認(rèn)）選擇下面的單元格。在數(shù)據(jù)表單中，按該鍵可移動(dòng)到下一條記錄中的第一個(gè)字段。打開(kāi)選定的菜單（按F10激活菜單欄），或執(zhí)行選定命令的操作。在對(duì)話(huà)框中，按該鍵可執(zhí)行對(duì)話(huà)框中默認(rèn)命令按鈕（帶有突出輪廓的按鈕，通常為“確定”按鈕）的操作。按Alt+Enter可在同一單元格中另起一個(gè)新行。按Ctrl+Enter可使用當(dāng)前條目填充選定的單元格區(qū)域。按Shift+Enter可完成單元格輸入并選擇上面的單元格。Esc取消單元格或編輯欄中的輸入。按該鍵也可關(guān)閉打開(kāi)的菜單或子菜單、對(duì)話(huà)框或消息窗口。Home移到工作表中某一行的開(kāi)頭。當(dāng)ScrollLock處于開(kāi)啟狀態(tài)時(shí)，移到窗口左上角的單元格。當(dāng)菜單或子菜單處于可見(jiàn)狀態(tài)時(shí)，選擇菜單上的第一個(gè)命令。按Ctrl+Home可移到工作表的開(kāi)頭。按Ctrl+Shift+Home可將單元格的選定范圍擴(kuò)展到工作表的開(kāi)頭。PageDown在工作表中下移一個(gè)屏幕。按Alt+PageDown可在工作表中向右移動(dòng)一個(gè)屏幕。按Ctrl+PageDown可移到工作簿中的下一個(gè)工作表。按Ctrl+Shift+PageDown可選擇工作簿中的當(dāng)前和下一個(gè)工作表。PageUp在工作表中上移一個(gè)屏幕。按Alt+PageUp可在工作表中向左移動(dòng)一個(gè)屏幕。按Ctrl+PageUp可移到工作簿中的上一個(gè)工作表。按Ctrl+Shift+PageUp可選擇工作簿中的當(dāng)前和上一個(gè)工作表。空格鍵在對(duì)話(huà)框中，執(zhí)行選定按鈕的操作，或者選中或清除復(fù)選框。按Ctrl+空格鍵可選擇工作表中的整列。按Shift+空格鍵可選擇工作表中的整行。按Ctrl+Shift+空格鍵可選擇整個(gè)工作表。如果工作表包含數(shù)據(jù)，則按Ctrl+Shift+空格鍵將選擇當(dāng)前區(qū)域。再按一次Ctrl+Shift+空格鍵將選擇整個(gè)工作表。當(dāng)某個(gè)對(duì)象處于選定狀態(tài)時(shí)，按Ctrl+Shift+空格鍵可選擇工作表上的所有對(duì)象。按Alt+空格鍵可顯示Excel窗口的“控制”菜單。Tab在工作表中向右移動(dòng)一個(gè)單元格。在受保護(hù)的工作表中，可在未鎖定的單元格之間移動(dòng)。在對(duì)話(huà)框中，移到下一個(gè)選項(xiàng)或選項(xiàng)組。按Shift+Tab可移到前一個(gè)單元格（在工作表中）或前一個(gè)選項(xiàng)（在對(duì)話(huà)框中）。在對(duì)話(huà)框中，按Ctrl+Tab可切換到下一個(gè)選項(xiàng)卡。在對(duì)話(huà)框中，按Ctrl+Shift+Tab可切換到前一個(gè)選項(xiàng)卡。Excel表格的基本操作教程

也許你已經(jīng)在Excel中完成過(guò)上百?gòu)堌?cái)務(wù)報(bào)表，也許你已利用Excel函數(shù)實(shí)現(xiàn)過(guò)上千次的復(fù)雜運(yùn)算，也許你認(rèn)為Excel也不過(guò)如此，甚至了無(wú)新意。但我們平日里無(wú)數(shù)次重復(fù)的得心應(yīng)手的使用方法只不過(guò)是Excel全部技巧的百分之一。本專(zhuān)題從Excel中的一些鮮為人知的技巧入手，領(lǐng)略一下關(guān)于Excel的別樣風(fēng)情。

一、讓不同類(lèi)型數(shù)據(jù)用不同顏色顯示

在工資表中，如果想讓大于等于2000元的工資總額以“紅色”顯示，大于等于1500元的工資總額以“藍(lán)色”顯示，低于1000元的工資總額以“棕色”顯示，其它以“黑色”顯示，我們可以這樣設(shè)置。1.打開(kāi)“工資表”工作簿，選中“工資總額”所在列，執(zhí)行“格式→條件格式”命令，打開(kāi)“條件格式”對(duì)話(huà)框。單擊第二個(gè)方框右側(cè)的下拉按鈕，選中“大于或等于”選項(xiàng)，在后面的方框中輸入數(shù)值“2000”。單擊“格式”按鈕，打開(kāi)“單元格格式”對(duì)話(huà)框，將“字體”的“顏色”設(shè)置為“紅色”。2.按“添加”按鈕，并仿照上面的操作設(shè)置好其它條件(大于等于1500，字體設(shè)置為“藍(lán)色”；小于1000，字體設(shè)置為“棕色”)。3.設(shè)置完成后，按下“確定”按鈕。看看工資表吧，工資總額的數(shù)據(jù)是不是按你的要求以不同顏色顯示出來(lái)了。

Excel表格的基本操作教程六、讓數(shù)據(jù)按需排序如果你要將員工按其所在的部門(mén)進(jìn)行排序，這些部門(mén)名稱(chēng)既的有關(guān)信息不是按拼音順序，也不是按筆畫(huà)順序，怎么辦?可采用自定義序列來(lái)排序。1.執(zhí)行“格式→選項(xiàng)”命令，打開(kāi)“選項(xiàng)”對(duì)話(huà)框，進(jìn)入“自定義序列”標(biāo)簽中，在“輸入序列”下面的方框中輸入部門(mén)排序的序列(如“機(jī)關(guān),車(chē)隊(duì),一車(chē)間,二車(chē)間,三車(chē)間”等)，單擊“添加”和“確定”按鈕退出。2.選中“部門(mén)”列中任意一個(gè)單元格，執(zhí)行“數(shù)據(jù)→排序”命令，打開(kāi)“排序”對(duì)話(huà)框，單擊“選項(xiàng)”按鈕，彈出“排序選項(xiàng)”對(duì)話(huà)框，按其中的下拉按鈕，選中剛才自定義的序列，按兩次“確定”按鈕返回，所有數(shù)據(jù)就按要求進(jìn)行了排序。二、建立分類(lèi)下拉列表填充項(xiàng)我們常常要將企業(yè)的名稱(chēng)輸入到表格中，為了保持名稱(chēng)的一致性，利用“數(shù)據(jù)有效性”功能建了一個(gè)分類(lèi)下拉列表填充項(xiàng)。1.在Sheet2中，將企業(yè)名稱(chēng)按類(lèi)別(如“工業(yè)企業(yè)”、“商業(yè)企業(yè)”、“個(gè)體企業(yè)”等)分別輸入不同列中，建立一個(gè)企業(yè)名稱(chēng)數(shù)據(jù)庫(kù)。2.選中A列(“工業(yè)企業(yè)”名稱(chēng)所在列)，在“名稱(chēng)”欄內(nèi)，輸入“工業(yè)企業(yè)”字符后，按“回車(chē)”鍵進(jìn)行確認(rèn)。仿照上面的操作，將B、C……列分別命名為“商業(yè)企業(yè)”、“個(gè)體企業(yè)”……3.切換到Sheet1中，選中需要輸入“企業(yè)類(lèi)別”的列(如C列)，執(zhí)行“數(shù)據(jù)→有效性”命令，打開(kāi)“數(shù)據(jù)有效性”對(duì)話(huà)框。在“設(shè)置”標(biāo)簽中，單擊“允許”右側(cè)的下拉按鈕，選中“序列”選項(xiàng)，在下面的“來(lái)源”方框中，輸入“工業(yè)企業(yè)”，“商業(yè)企業(yè)”，“個(gè)體企業(yè)”……序列(各元素之間用英文逗號(hào)隔開(kāi))，確定退出。再選中需要輸入企業(yè)名稱(chēng)的列(如D列)，再打開(kāi)“數(shù)據(jù)有效性”對(duì)話(huà)框，選中“序列”選項(xiàng)后，在“來(lái)源”方框中輸入公式：=INDIRECT(C1)，確定退出。4.選中C列任意單元格(如C4)，單擊右側(cè)下拉按鈕，選擇相應(yīng)的“企業(yè)類(lèi)別”填入單元格中。然后選中該單元格對(duì)應(yīng)的D列單元格(如D4)，單擊下拉按鈕，即可從相應(yīng)類(lèi)別的企業(yè)名稱(chēng)列表中選擇需要的企業(yè)名稱(chēng)填入該單元格中。提示：在以后打印報(bào)表時(shí)，如果不需要打印“企業(yè)類(lèi)別”列，可以選中該列，右擊鼠標(biāo)，選“隱藏”選項(xiàng)，將該列隱藏起來(lái)即可。三、建立“常用文檔”新菜單在菜單欄上新建一個(gè)“常用文檔”菜單，將常用的工作簿文檔添加到其中，方便隨時(shí)調(diào)用。1.在工具欄空白處右擊鼠標(biāo)，選“自定義”選項(xiàng)，打開(kāi)“自定義”對(duì)話(huà)框。在“命令”標(biāo)簽中，選中“類(lèi)別”下的“新菜單”項(xiàng)，再將“命令”下面的“新菜單”拖到菜單欄。按“更改所選內(nèi)容”按鈕，在彈出菜單的“命名”框中輸入一個(gè)名稱(chēng)(如“常用文檔”)。Excel表格的基本操作教程2.再在“類(lèi)別”下面任選一項(xiàng)(如“插入”選項(xiàng))，在右邊“命令”下面任選一項(xiàng)(如“超鏈接”選項(xiàng))，將它拖到新菜單(常用文檔)中，并仿照上面的操作對(duì)它進(jìn)行命名(如“工資表”等)，建立第一個(gè)工作簿文檔列表名稱(chēng)。重復(fù)上面的操作，多添加幾個(gè)文檔列表名稱(chēng)。3.選中“常用文檔”菜單中某個(gè)菜單項(xiàng)(如“工資表”等)，右擊鼠標(biāo)，在彈出的快捷菜單中，選“分配超鏈接→打開(kāi)”選項(xiàng)，打開(kāi)“分配超鏈接”對(duì)話(huà)框。通過(guò)按“查找范圍”右側(cè)的下拉按鈕，定位到相應(yīng)的工作簿(如“工資.xls”等)文件夾，并選中該工作簿文檔。重復(fù)上面的操作，將菜單項(xiàng)和與它對(duì)應(yīng)的工作簿文檔超鏈接起來(lái)。4.以后需要打開(kāi)“常用文檔”菜單中的某個(gè)工作簿文檔時(shí)，只要展開(kāi)“常用文檔”菜單，單擊其中的相應(yīng)選項(xiàng)即可。提示：盡管我們將“超鏈接”選項(xiàng)拖到了“常用文檔”菜單中，但并不影響“插入”菜單中“超鏈接”菜單項(xiàng)和“常用”工具欄上的“插入超鏈接”按鈕的功能。Excel表格的基本操作教程四、制作“專(zhuān)業(yè)符號(hào)”工具欄Excel表格的基本操作教程在編輯專(zhuān)業(yè)表格時(shí)，常常需要輸入一些特殊的專(zhuān)業(yè)符號(hào)，為了方便輸入，我們可以制作一個(gè)屬于自己的“專(zhuān)業(yè)符號(hào)”工具欄。1.執(zhí)行“工具→宏→錄制新宏”命令，打開(kāi)“錄制新宏”對(duì)話(huà)框，輸入宏名?如“fuhao1”?并將宏保存在“個(gè)人宏工作簿”中，然后“確定”開(kāi)始錄制。選中“錄制宏”工具欄上的“相對(duì)引用”按鈕，然后將需要的特殊符號(hào)輸入到某個(gè)單元格中，再單擊“錄制宏”工具欄上的“停止”按鈕，完成宏的錄制。仿照上面的操作，一一錄制好其它特殊符號(hào)的輸入“宏”。2.打開(kāi)“自定義”對(duì)話(huà)框，在“工具欄”標(biāo)簽中，單擊“新建”按鈕，彈出“新建工具欄”對(duì)話(huà)框，輸入名稱(chēng)——“專(zhuān)業(yè)符號(hào)”，確定后，即在工作區(qū)中出現(xiàn)一個(gè)工具條。切換到“命令”標(biāo)簽中，選中“類(lèi)別”下面的“宏”，將“命令”下面的“自定義按鈕”項(xiàng)拖到“專(zhuān)業(yè)符號(hào)”欄上(有多少個(gè)特殊符號(hào)就拖多少個(gè)按鈕)。3.選中其中一個(gè)“自定義按鈕”，仿照第2個(gè)秘技的第1點(diǎn)對(duì)它們進(jìn)行命名。4.右擊某個(gè)命名后的按鈕，在隨后彈出的快捷菜單中，選“指定宏”選項(xiàng)，打開(kāi)“指定宏”對(duì)話(huà)框，選中相應(yīng)的宏(如fuhao1等)，確定退出。重復(fù)此步操作，將按鈕與相應(yīng)的宏鏈接起來(lái)。5.關(guān)閉“自定義”對(duì)話(huà)框，以后可以像使用普通工具欄一樣，使用“專(zhuān)業(yè)符號(hào)”工具欄，向單元格中快速輸入專(zhuān)業(yè)符號(hào)了。五、用“視面管理器”保存多個(gè)打印頁(yè)面有的工作表，經(jīng)常需要打印其中不同的區(qū)域，用“視面管理器”吧。1.打開(kāi)需要打印的工作表，用鼠標(biāo)在不需要打印的行(或列)標(biāo)上拖拉，選中它們?cè)儆覔羰髽?biāo)，在隨后出現(xiàn)的快捷菜單中，選“隱藏”選項(xiàng)，將不需要打印的行(或列)隱藏起來(lái)。2.執(zhí)行“視圖→視面管理器”命令，打開(kāi)“視面管理器”對(duì)話(huà)框，單擊“添加”按鈕，彈出“添加視面”對(duì)話(huà)框，輸入一個(gè)名稱(chēng)(如“上報(bào)表”)后，單擊“確定”按鈕。3.將隱藏的行(或列)顯示出來(lái)，并重復(fù)上述操作，“添加”好其它的打印視面。4.以后需要打印某種表格時(shí)，打開(kāi)“視面管理器”，選中需要打印的表格名稱(chēng)，單擊“顯示”按鈕，工作表即刻按事先設(shè)定好的界面顯示出來(lái)，簡(jiǎn)單設(shè)置、排版一下，按下工具欄上的“打印”按鈕，一切就OK了。七、把數(shù)據(jù)徹底隱藏起來(lái)工作表部分單元格中的內(nèi)容不想讓瀏覽者查閱，只好將它隱藏起來(lái)了。1.選中需要隱藏內(nèi)容的單元格(區(qū)域)，執(zhí)行“格式→單元格”命令，打開(kāi)“單元格格式”對(duì)話(huà)框，在“數(shù)字”標(biāo)簽的“分類(lèi)”下面選中“自定義”選項(xiàng)，然后在右邊“類(lèi)型”下面的方框中輸入“；；；”(三個(gè)英文狀態(tài)下的分號(hào))。2.再切換到“保護(hù)”標(biāo)簽下，選中其中的“隱藏”選項(xiàng)，按“確定”按鈕退出。3.執(zhí)行“工具→保護(hù)→保護(hù)工作表”命令，打開(kāi)“保護(hù)工作表”對(duì)話(huà)框，設(shè)置好密碼后，“確定”返回。經(jīng)過(guò)這樣的設(shè)置以后，上述單元格中的內(nèi)容不再顯示出來(lái)，就是使用Excel的透明功能也不能讓其現(xiàn)形。提示：在“保護(hù)”標(biāo)簽下，請(qǐng)不要清除“鎖定”前面復(fù)選框中的“∨”號(hào)，這樣可以防止別人刪除你隱藏起來(lái)的數(shù)據(jù)。八、讓中、英文輸入法智能化地出現(xiàn)在編輯表格時(shí)，有的單元格中要輸入英文，有的單元格中要輸入中文，反復(fù)切換輸入法實(shí)在不方便，何不設(shè)置一下，讓輸入法智能化地調(diào)整呢?選中需要輸入中文的單元格區(qū)域，執(zhí)行“數(shù)據(jù)→有效性”命令，打開(kāi)“數(shù)據(jù)有效性”對(duì)話(huà)框，切換到“輸入法模式”標(biāo)簽下，按“模式”右側(cè)的下拉按鈕，選中“打開(kāi)”選項(xiàng)后，“確定”退出。以后當(dāng)選中需要輸入中文的單元格區(qū)域中任意一個(gè)單元格時(shí)，中文輸入法(輸入法列表中的第1個(gè)中文輸入法)自動(dòng)打開(kāi)，當(dāng)選中其它單元格時(shí)，中文輸入法自動(dòng)關(guān)閉。九、讓“自動(dòng)更正”輸入統(tǒng)一的文本你是不是經(jīng)常為輸入某些固定的文本，如《電腦報(bào)》而煩惱呢?那就往下看吧。1.執(zhí)行“工具→自動(dòng)更正”命令，打開(kāi)“自動(dòng)更正”對(duì)話(huà)框。2.在“替換”下面的方框中輸入“pcw”(也可以是其他字符，“pcw”用小寫(xiě))，在“替換為”下面的方框中輸入“《電腦報(bào)》”，再單擊“添加”和“確定”按鈕。3.以后如果需要輸入上述文本時(shí)，只要輸入“pcw”字符?此時(shí)可以不考慮“pcw”的大小寫(xiě)?，然后確認(rèn)一下就成了。十、在Excel中自定義函數(shù)Excel函數(shù)雖然豐富，但并不能滿(mǎn)足我們的所有需要。我們可以自定義一個(gè)函數(shù)，來(lái)完成一些特定的運(yùn)算。下面，我們就來(lái)自定義一個(gè)計(jì)算梯形面積的函數(shù)：1.執(zhí)行“工具→宏→VisualBasic編輯器”菜單命令(或按“Alt+F11”快捷鍵)，打開(kāi)VisualBasic編輯窗口。2.在窗口中，執(zhí)行“插入→模塊”菜單命令，插入一個(gè)新的模塊——模塊1。3.在右邊的“代碼窗口”中輸入以下代碼：FunctionV(a,b,h)V=h*(a+b)/2EndFunction4.關(guān)閉窗口，自定義函數(shù)完成。以后可以像使用內(nèi)置函數(shù)一樣使用自定義函數(shù)。提示：用上面方法自定義的函數(shù)通常只能在相應(yīng)的工作簿中使用。十一、表頭下面襯張圖片為工作表添加的背景，是襯在整個(gè)工作表下面的，能不能只襯在表頭下面呢?1.執(zhí)行“格式→工作表→背景”命令，打開(kāi)“工作表背景”對(duì)話(huà)框，選中需要作為背景的圖片后，按下“插入”按鈕，將圖片襯于整個(gè)工作表下面。2.在按住Ctrl鍵的同時(shí)，用鼠標(biāo)在不需要襯圖片的單元格(區(qū)域)中拖拉，同時(shí)選中這些單元格(區(qū)域)。3.按“格式”工具欄上的“填充顏色”右側(cè)的下拉按鈕，在隨后出現(xiàn)的“調(diào)色板”中，選中“白色”。經(jīng)過(guò)這樣的設(shè)置以后，留下的單元格下面襯上了圖片，而上述選中的單元格(區(qū)域)下面就沒(méi)有襯圖片了(其實(shí)，是圖片被“白色”遮蓋了)。提示?襯在單元格下面的圖片是不支持打印的。十二、用連字符“&”來(lái)合并文本如果我們想將多列的內(nèi)容合并到一列中，不需要利用函數(shù)，一個(gè)小小的連字符“&”就能將它搞定(此處假定將B、C、D列合并到一列中)。1.在D列后面插入兩個(gè)空列(E、F列)，然后在D1單元格中輸入公式：=B1&C1&D1。2.再次選中D1單元格，用“填充柄”將上述公式復(fù)制到D列下面的單元格中，B、C、D列的內(nèi)容即被合并到E列對(duì)應(yīng)的單元格中。3.選中E列，執(zhí)行“復(fù)制”操作，然后選中F列，執(zhí)行“編輯→選擇性粘貼”命令，打開(kāi)“選擇性粘貼”對(duì)話(huà)框，選中其中的“數(shù)值”選項(xiàng)，按下“確定”按鈕，E列的內(nèi)容(不是公式)即被復(fù)制到F列中。4.將B、C、D、E列刪除，完成合并工作。提示：完成第1、2步的操作，合并效果已經(jīng)實(shí)現(xiàn)，但此時(shí)如果刪除B、C、D列，公式會(huì)出現(xiàn)錯(cuò)誤。故須進(jìn)行第3步操作，將公式轉(zhuǎn)換為不變的“值”。十三、生成績(jī)條常有朋友問(wèn)“如何打印成績(jī)條”這樣的問(wèn)題，有不少人采取錄制宏或VBA的方法來(lái)實(shí)現(xiàn)，這對(duì)于初學(xué)者來(lái)說(shuō)有一定難度。出于此種考慮，我在這里給出一種用函數(shù)實(shí)現(xiàn)的簡(jiǎn)便方法。此處假定學(xué)生成績(jī)保存在Sheet1工作表的A1至G64單元格區(qū)域中，其中第1行為標(biāo)題，第2行為學(xué)科名稱(chēng)。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單元格，用“填充柄”將上述公式復(fù)制到B1至G1單元格中；然后，再同時(shí)選中A1至G1單元格區(qū)域，用“填充柄”將上述公式復(fù)制到A2至G185單元格中。至此，成績(jī)條基本成型，下面簡(jiǎn)單修飾一下。3.調(diào)整好行高和列寬后，同時(shí)選中A1至G2單元格區(qū)域(第1位學(xué)生的成績(jī)條區(qū)域)，按“格式”工具欄“邊框”右側(cè)的下拉按鈕，在隨后出現(xiàn)的邊框列表中，選中“所有框線(xiàn)”選項(xiàng)，為選中的區(qū)域添加邊框(如果不需要邊框，可以不進(jìn)行此步及下面的操作)。4.同時(shí)選中A1至G3單元格區(qū)域，點(diǎn)擊“常用”工具欄上的“格式刷”按鈕，然后按住鼠標(biāo)左鍵，自A4拖拉至G186單元格區(qū)域，為所有的成績(jī)條添加邊框。按“打印”按鈕，即可將成績(jī)條打印出來(lái)。十四、Excel幫你選函數(shù)在用函數(shù)處理數(shù)據(jù)時(shí)，常常不知道使用什么函數(shù)比較合適。Excel的“搜索函數(shù)”功能可以幫你縮小范圍，挑選出合適的函數(shù)。執(zhí)行“插入→函數(shù)”命令，打開(kāi)“插入函數(shù)”對(duì)話(huà)框，在“搜索函數(shù)”下面的方框中輸入要求(如“計(jì)數(shù)”)，然后單擊“轉(zhuǎn)到”按鈕，系統(tǒng)即刻將與“計(jì)數(shù)”有關(guān)的函數(shù)挑選出來(lái)，并顯示在“選擇函數(shù)”下面的列表框中。再結(jié)合查看相關(guān)的幫助文件，即可快速確定所需要的函數(shù)。十五、同時(shí)查看不同工作表中多個(gè)單元格內(nèi)的數(shù)據(jù)有時(shí)，我們編輯某個(gè)工作表(Sheet1)時(shí)，需要查看其它工作表中(Sheet2、Sheet3……)某個(gè)單元格的內(nèi)容，可以利用Excel的“監(jiān)視窗口”功能來(lái)實(shí)現(xiàn)。執(zhí)行“視圖→工具欄→監(jiān)視窗口”命令，打開(kāi)“監(jiān)視窗口”，單擊其中的“添加監(jiān)視”按鈕，展開(kāi)“添加監(jiān)視點(diǎn)”對(duì)話(huà)框，用鼠標(biāo)選中需要查看的單元格后，再單擊“添加”按鈕。重復(fù)前述操作，添加其它“監(jiān)視點(diǎn)”。以后，無(wú)論在哪個(gè)工作表中，只要打開(kāi)“監(jiān)視窗口”，即可查看所有被監(jiān)視點(diǎn)單元格內(nèi)的數(shù)據(jù)和相關(guān)信息。十六、為單元格快速畫(huà)邊框在Excel2002以前的版本中，為單元格區(qū)域添加邊框的操作比較麻煩，Excel2002對(duì)此功能進(jìn)行了全新的拓展。單擊“格式”工具欄上“邊框”右側(cè)的下拉按鈕，在隨后彈出的下拉列表中，選“繪圖邊框”選項(xiàng)，或者執(zhí)行“視圖→工具欄→邊框”命令，展開(kāi)“邊框”工具欄。單擊工具欄最左側(cè)的下拉按鈕，選中一種邊框樣式，然后在需要添加邊框的單元格區(qū)域中拖拉，即可為相應(yīng)的單元格區(qū)域快速畫(huà)上邊框。提示：①如果畫(huà)錯(cuò)了邊框，沒(méi)關(guān)系，選中工具欄上的“擦除邊框”按鈕，然后在錯(cuò)誤的邊