《office高級(jí)應(yīng)用》PPT課件.ppt

Office高級(jí)應(yīng)用,zjunqiang,Office高級(jí)應(yīng)用,ExcelVBA基礎(chǔ)Word長篇文檔排版技巧PowerPoint制作綜合應(yīng)用,EXCEL篇,推薦書籍：別怕，ExcelVBA其實(shí)很簡單網(wǎng)站：ExcelH學(xué)習(xí)方法:實(shí)踐,用戶分級(jí),菜鳥,初級(jí)用戶,中級(jí)用戶,高級(jí)用戶,專家,Excel用戶水平層級(jí),新手：剛剛開始接觸初級(jí)：掌握基本常用功能中級(jí)：熟練使用常用功能+數(shù)據(jù)透視表+公式高級(jí)：VBA簡單編程專家：EXCEL技能+專業(yè)知識(shí)+行業(yè)經(jīng)驗(yàn),重新認(rèn)識(shí)Excel,1、工作薄、工作表、行、列、單元格、區(qū)域,2、我們所有的操作都是針對(duì)這些對(duì)象,3、這些對(duì)象本身有自己的屬性,Excel主要功能,數(shù)據(jù)操作錄入、編輯、格式化等圖表與圖形圖表生成、高級(jí)圖表、交互圖表公式與函數(shù)公式基礎(chǔ)、函數(shù)、數(shù)組公式、自定義函數(shù)數(shù)據(jù)分析排序、篩選、列表、數(shù)據(jù)透視表宏與VBA宏、VBA、Excel對(duì)象、窗體與控件、類模塊,Excel數(shù)據(jù)操作輸入技巧,輸入文本輸入分?jǐn)?shù)日期時(shí)間,單引號(hào)Alt+Enter,01/2,Ctrl+;Ctrl+Shift+;,Excel數(shù)據(jù)操作輸入技巧,數(shù)據(jù)有效性允許對(duì)單元格中所輸入的值設(shè)置限制示例限制數(shù)字?jǐn)?shù)值的輸入限制文本條目的長度限制數(shù)值的范圍將單元格條目限制在特定序列中,Excel數(shù)據(jù)操作輸入技巧,使用單元格下拉菜單規(guī)范輸入數(shù)據(jù)有效性輸入序列內(nèi)容使用單元格引用創(chuàng)建下拉菜單定義名稱創(chuàng)建二級(jí)下拉菜單,條件格式,根據(jù)單元格的當(dāng)前值來更改單元格的格式示例修改格式隱藏出錯(cuò)值公式=ISERROR(H19)出錯(cuò)值的單元格的字體顏色設(shè)置為與工作表背景顏色一樣,單元格引用,單元格引用范圍單元格引用類型相對(duì)引用絕對(duì)引用混合引用F4,Excel公式,普通公式=A1+B1=SUM（A1：A10）數(shù)組公式（多重計(jì)算）=AVERAGE(B1:B10-A1:A10命名公式,Excel中的運(yùn)算符：,簡單公式：利用其他單元格中的數(shù)據(jù)進(jìn)行加、減、乘、除等算術(shù)運(yùn)算的公式，稱為“簡單公式”。,2011-9-27,課程編號(hào)：XX-XXXX-XX,15,最基礎(chǔ)的函數(shù)應(yīng)用,1、在菜單欄中有最基礎(chǔ)的函數(shù)運(yùn)用；,2、sum、average、count、max、min；,3、函數(shù)的構(gòu)成：函數(shù)名(參數(shù)1,參數(shù)2,)；,2011-9-27,課程編號(hào)：XX-XXXX-XX,16,日期函數(shù),1、常用：year、month、day、weekday、today,2、其他：datedif、date、days360,3、日期函數(shù)的高級(jí)應(yīng)用,2011-9-27,課程編號(hào)：XX-XXXX-XX,17,文本函數(shù),1、常用：left、right、mid、concatenate,2、其他：find、replace、proper、char,3、文本函數(shù)的高級(jí)應(yīng)用,2011-9-27,課程編號(hào)：XX-XXXX-XX,18,統(tǒng)計(jì)函數(shù),1、常用：count、counta、countif,2、其他：sumproduct、subtotal、round,3、統(tǒng)計(jì)函數(shù)的高級(jí)應(yīng)用,2011-9-27,課程編號(hào)：XX-XXXX-XX,19,查找函數(shù),1、常用：lookup、vlookup、index,2、其他：choose、match、hlookup,3、查找函數(shù)的高級(jí)應(yīng)用,2011-9-27,課程編號(hào)：XX-XXXX-XX,20,邏輯函數(shù),1、常用：if、and、or,2、其他：true、false、not,3、邏輯函數(shù)的高級(jí)應(yīng)用,2011-9-27,課程編號(hào)：XX-XXXX-XX,21,函數(shù)的嵌套,1、用一個(gè)函數(shù)來做為另一個(gè)函數(shù)的參數(shù),2、函數(shù)嵌套是為了解決復(fù)雜的問題,3、函數(shù)嵌套沒有固定的要求，變化很多,2011-9-27,課程編號(hào)：XX-XXXX-XX,22,數(shù)組公式,1、用于建立可以產(chǎn)生多個(gè)結(jié)果或?qū)梢源娣旁谛泻土兄械囊唤M參數(shù)進(jìn)行運(yùn)算的單個(gè)公式,2、可以執(zhí)行多重計(jì)算,它返回的是一組數(shù)據(jù)結(jié)果,3、不要迷戀數(shù)組公式,Excel函數(shù),函數(shù)的作用函數(shù)的選擇與使用函數(shù)的嵌套=RIGHT(A1,LEN(A1)-3),IF函數(shù),函數(shù)語法IF(條件表達(dá)式,結(jié)果1,結(jié)果2),VLOOKUP函數(shù),函數(shù)用途函數(shù)語法：VLOOKUP(查找值,查找區(qū)域,返回結(jié)果的列號(hào),查找方式)=VLOOKUP(B9,B1:G5,6,0),了解Excel公式的錯(cuò)誤值,#！原因：如果單元格所含的數(shù)字、日期或時(shí)間比單元格寬，或者單元格的日期時(shí)間公式產(chǎn)生了一個(gè)負(fù)值，就會(huì)產(chǎn)生#！錯(cuò)誤。#VALUE!當(dāng)使用錯(cuò)誤的參數(shù)或運(yùn)算對(duì)象類型時(shí)，或者當(dāng)公式自動(dòng)更正功能不能更正公式時(shí)，將產(chǎn)生錯(cuò)誤值#VALUE!。#DIV/0!當(dāng)公式被零除時(shí)，將會(huì)產(chǎn)生錯(cuò)誤值#DIV/O!。#NAME?在公式中使用了Excel不能識(shí)別的文本時(shí)將產(chǎn)生錯(cuò)誤值#NAME?,了解Excel公式的錯(cuò)誤值,#N/A當(dāng)在函數(shù)或公式中沒有可用數(shù)值時(shí)，將產(chǎn)生錯(cuò)誤值#N/A。#NULL！當(dāng)試圖為兩個(gè)并不相交的區(qū)域指定交叉點(diǎn)時(shí)將產(chǎn)生錯(cuò)誤值#NULL！,VBA應(yīng)用開發(fā)與實(shí)例,李輝微軟課程培訓(xùn)講師,宏與VBA,錄制運(yùn)行宏VBA基礎(chǔ)EXCEL對(duì)象窗體與控件類模塊,宏VBA,在應(yīng)用程序中可以自動(dòng)運(yùn)行的一連串的功能指令能夠完成大量重復(fù)的操作,VisualBasicforApplication編程語言基于Excel或其他Office應(yīng)用程序進(jìn)行開發(fā),善用宏簡化工作,與宏的第一次親密接觸,打開帶有宏的工作簿宏病毒？設(shè)置Excel的安全性,【高】通常適用于用戶沒有安裝防病毒軟件的時(shí)候【中】用戶可以確保所使用的宏命令是安全的【低】不對(duì)宏作出任何檢查,宏的安全性,開始錄制宏,操作步驟,完成宏錄制,運(yùn)行宏,錄制宏需要經(jīng)常重復(fù)執(zhí)行的某項(xiàng)任務(wù)，就可以把執(zhí)行這些任務(wù)的步驟全部錄制在宏里，把宏變?yōu)榭勺詣?dòng)執(zhí)行的任務(wù),執(zhí)行宏的操作執(zhí)行宏的命令在工具欄上設(shè)置宏按鈕使用窗體控件使用圖形對(duì)象執(zhí)行宏,DEMO：制作工資表,宏的結(jié)構(gòu),Sub主界面()主界面MacroCorenLee記錄的宏2002-11-5Sheets("主界面").SelectEndSub,宏名,批注,宏程序,宏的局限性,錄制的宏無判斷或循環(huán)能力.人機(jī)交互能力差,即用戶無法進(jìn)行輸入,計(jì)算機(jī)無法給出提示.無法顯示excel對(duì)話框.無法顯示自定義窗體.,為何要使用VBA宏缺少伸縮的彈性記錄了許多不需要的步驟記錄了許多不需要的資料無法使用較深入的功能無法完成重復(fù)性的工作無法完成需要條件判斷的工作,宏,VBA,VisualBasicforApplication,VBA中最重要的幾個(gè)概念,對(duì)象Object：工作簿、工作表、單元格、圖表等屬性對(duì)象的具體性質(zhì)、特色方法具體的操作、動(dòng)作、指令事件某個(gè)能引發(fā)具體動(dòng)作的事件,集合,集合也是對(duì)象許多對(duì)象有單復(fù)數(shù)之分，例如Workbook和Workbooks；Worksheet和Worksheets，怎么引用對(duì)象Worksheets(“Sheet1”),Excel對(duì)象結(jié)構(gòu),怎么表示對(duì)象的屬性,對(duì)象.屬性Sheet1工作表的A1單元格Worksheets(“Sheet1”).Range(“A1”),使用對(duì)象的程序語法,Workbooks(“Mybook.xls”).Worksheets(“Sheet1”).Range(“B5”).Value=“ABCDE”,屬性,Workbooks.Close,集合對(duì)象,Application.Workbooks(“mybook.xls”)Application.Workbooks(“mybook.xls”).Worksheets(“mysheet”)Application.Workbooks(“mybook.xls”).Worksheets(“mysheet”).Range(“A1:D10”)Worksheets(“mysheet”).Range(“A1:D10”),方法,打開工作簿復(fù)制工作表選中單元格SetObject1=ObjectObject.Property=ValueObject.Method(Setting)對(duì)象.方法Range(“A1).Select,VBA的編程環(huán)境,Alt+F11,SubHello()MsgBox("Hello,world!")EndSub,SubRenameWorksheets()RenameWorksheetsMacroSheets("Sheet1").SelectSheets("Sheet1").Name="NewName"EndSub,SubRenameWorksheets()DimiAsIntegeri=1ForEachmyWorksheetInWorksheetsmyWorksheet.Name="NewName"&ii=i+1NextEndSub,VBA基本控制結(jié)構(gòu),選擇結(jié)構(gòu)循環(huán)結(jié)構(gòu),VBA控制結(jié)構(gòu)分支結(jié)構(gòu),If條件1Then語句塊1ElseIf條件2Then語句塊2Else語句塊n+1EndIf,SelectCase測試變量Case表達(dá)式1語句塊1Case表達(dá)式2語句塊2CaseElse語句塊n+1EndSelect,VBA控制結(jié)構(gòu)循環(huán)結(jié)構(gòu),For變量=初值To終值Step步長語句塊Next變量,ForEach對(duì)象變量In對(duì)象集語句塊Next對(duì)象變量,DoWhile條件表達(dá)式語句塊Loop,九九乘法表,Submysub()DimiAsIntegerDimjAsIntegerDimsAsStringWorksheets(“Sheet1”).Range(“A1”).Value=“九九乘法表"Fori=1To9Forj=1To9s=i&"*"&j&"="&i*jActiveSheet.Cells(i+1,j)=sNextjNextiEndSub,示例：在Excel中打印工資表,SubInsertTitle()Selection.CurrentRegion.SelectCells(Selection.Row,Selection.Column).SelectRange(Selection,Selection.End(xlToRight).SelectSelection.CopyActiveCell.Offset(2,0).Range("A1").SelectDoUntilActiveCell=""Selection.InsertShift:=xlDownRange(Selection,Selection.End(xlToRight).SelectSelection.CopyActiveCell.Offset(2,0).Range("A1").SelectLoopApplication.CutCopyMode=FalseEndSub,示例：對(duì)話框與外部應(yīng)用程序,PrivateSubdonkey_Click()MsgBox("Iamadonkey")EndSub,PrivateSubWabbit_Click()CallPlaySound(ActiveDocument.Path+"wabbit.wav")EndSub,PrivateSubturtle_Click()ConstAnswer="TURTLE"DimTriesAsIntegerDimMessage,Title,Default0,MyValueAsStringTries=0Message="WhatamI?"Setprompt.Title="WhatamI?"Settitle.Default0="*"Setdefaultforinputfield.Question:Tries=Tries+1IfTries=3ThenDefault0="T*"EndIfIfTries=4ThenDefault0="TUR*"EndIfMyValue=InputBox(Message,Title,Default0)MyValue=UCase(MyValue)Converttouppercase,示例：保存并關(guān)閉系統(tǒng),PrivateSubWorkbook_BeforeClose(CancelAsBoolean)OnErrorResumeNextDimabcabc=MsgBox("您確認(rèn)要關(guān)閉本系統(tǒng)嗎？",vbQuestion+vbYesNo+vbDefaultButton2,"確認(rèn)")Ifabc=vbYesThenSheets("說明").SelectActiveWorkbook.SaveElseCancel=TrueEndIfEndSub,自毀程序,SubkillThisWorkbook()不出現(xiàn)保存提示ThisWorkbook.Saved=True將工作簿的訪問權(quán)限改為只讀ThisWorkbook.ChangeFileAccessxlReadOnly刪除磁盤上的當(dāng)前工作簿KillThisWorkbook.FullNameThisWorkbook.CloseEndSub,自毀程序啟動(dòng)條件,非指定用戶打開時(shí)非指定計(jì)算機(jī)打開時(shí)非指定路徑下打開非指定時(shí)間打開超過打開次數(shù)限定后,