Excel宏基礎(chǔ)學(xué)習(xí)教程.ppt

EXCEL宏基礎(chǔ)知識(shí),EXCEL宏介紹,什么是EXCEL宏?為什么要使用EXCEL宏?,講解EXCEL宏,一、錄制宏,通過錄制宏來學(xué)習(xí)宏的開發(fā),最簡(jiǎn)單快速的宏開發(fā)就是錄制一段宏，然后修改成需要的結(jié)果。（F1是查看幫助的快捷鍵）通過錄制宏學(xué)習(xí)復(fù)制粘貼通過錄制宏來學(xué)習(xí)賦予單元格顏色,錄制宏的方法,通過菜單中“工具-宏-錄制新宏”來錄制,在彈出的對(duì)話框中可指定宏名稱，快捷鍵，保存位置和宏功能說明,錄制宏的方法,在看到下圖所示“停止錄制”工具欄時(shí)表示此時(shí)宏錄制已經(jīng)開始了,注意：宏名最多可為255個(gè)字符，并且必須以字母開始。其中可用的字符包括：字母、數(shù)字和下劃線。宏名中不允許出現(xiàn)空格。并不是所有的操作過程都可以被宏記錄下來,查看宏代碼,打開宏編輯器工具-宏-VisualBasic編輯器右鍵點(diǎn)擊Sheet頁名稱，點(diǎn)擊“查看代碼”Alt+F11,講解EXCEL宏,一、錄制宏二、編寫宏,最簡(jiǎn)單的宏,彈出窗口Sub彈出窗口（）Msgbox“Hello,World”Endsub,EXCEL宏語法介紹,一、定義過程名稱命名規(guī)則：*名字中可以包含字母數(shù)字和下劃線。*名字中不能包含空格句號(hào)驚嘆號(hào)，也不能包含&$#字符*名字最多可以包含255個(gè)字符。Sub：Sub/endSubFunction：Function/endFunction相同點(diǎn)：都可以有參數(shù)不同點(diǎn)：Sub不能返回值，F(xiàn)unction可以返回值。Sub函數(shù)中可以調(diào)用Function函數(shù)。,EXCEL宏語法介紹,二、定義變量使用dim語句定義變量例如：Dimnasinteger定義n為integer類型的變量Dimstasworksheet定義worksheet對(duì)象類型的變量DimZeroArray(0To5)定義下標(biāo)范圍為0到5的數(shù)組Subrun()dimaasintegera=:20Endsub,EXCEL宏語法介紹,三、常用對(duì)象Application：Excel應(yīng)用程序進(jìn)程對(duì)象，可包含多個(gè)WorkBook。WorkBook：Excel工作簿對(duì)象，可包含多個(gè)worksheet。Worksheet：Excel工作表對(duì)象。Sheets：Excel工作表對(duì)象集合，可包含多個(gè)worksheet。Range：Excel工作表內(nèi)單元格集合對(duì)象，可包含多個(gè)Cell。Cells：Excel單元格對(duì)象集合，通過cells(r,c)指定行號(hào)列號(hào)定位到單元格。,EXCEL宏語法介紹,四、常用函數(shù)Trim（）：去掉字符串前后的空格。Mid（）：截取字符串中的指定部分InStr（）：查找一個(gè)字符串中另一個(gè)字符串出現(xiàn)最初的位置Cstr（）：轉(zhuǎn)換成字符串類型Var（）：轉(zhuǎn)換成數(shù)值類型Offset()：在當(dāng)前單元格基礎(chǔ)上向指定方向移動(dòng)指定格數(shù)Value：獲取或設(shè)置單元格值(Value2屬性不使用Currency和Date數(shù)據(jù)類型。通過使用Double數(shù)據(jù)類型，可將用這些數(shù)據(jù)類型設(shè)置格式的數(shù)據(jù)按浮點(diǎn)數(shù)字返回。）Text：取得單元格格式化后的值，只能讀取不能寫入Address：得到當(dāng)前單元格的地址Now：獲得當(dāng)前日期時(shí)間Name：獲取或設(shè)置對(duì)象名稱IIf(exp,truepart,falsepart)：根據(jù)表達(dá)式的真假返回值。Choose(index_num,value1,value2.)：根據(jù)序號(hào)返回列表中的一個(gè)值。,EXCEL宏語法介紹,五、示例Worksheets.Add增加一個(gè)工作表activesheet.delete刪除當(dāng)前工作表Workbooks.OpenFileName:=C:Book1.xls打開一個(gè)文件ActiveWindow.Close關(guān)閉當(dāng)前工作簿ActiveCell.Clear清除單元格中所有文字、批注、格式、所有的東西MsgBoxSelection.Rows.Count彈出選中范圍的單元格的行數(shù)MsgBoxSelection.Columns.Count彈出選中范圍的單元格的列數(shù)MsgboxSelection.Address彈出選中范圍的單元格的地址Application.Runmacro:=text執(zhí)行一個(gè)名為text的宏ActiveWindow.ScrollRow=1滾動(dòng)到第一行InputBox(Enteryourname)彈出inputbox輸入框kk=Application.GetOpenFilename(EXCEL(*.XLS),*.XLS,Title:=提示：請(qǐng)打開一個(gè)EXCEL文件)通過打開文件對(duì)話框獲取文件名Application.Dialogs(xlDialogZoom).Show打開zoom對(duì)話框,程序控制,Ifthen（elseif）（else）endIf,例子：ifn=2thena=10elseifn2thena=20elsea=30endif,判斷語句,程序控制,Fortonext,循環(huán)語句,例子：fori=1to10a=a+1next,調(diào)試與錯(cuò)誤處理,調(diào)試工具。A,單步執(zhí)行過程:按下F8鍵B,跳過過程(跳過已測(cè)試無誤的過程節(jié)省時(shí)間):按下Shint+F8鍵C,跳出過程(跳過程剩余部份):按下Ctrl十shift十F8鍵D,運(yùn)行到光標(biāo)處(跳過一組語句):按下Ctrl+F8鍵E,設(shè)置下一條語句為光標(biāo)所指語句(要警惕會(huì)忽略不執(zhí)行中間的語句):按下Ctrl十F9鍵,安全性和保護(hù),要在Excel中運(yùn)行宏必須設(shè)置宏的安全級(jí)別，默認(rèn)情況是高級(jí)，此時(shí)宏