最新VBA初級(jí)使用培訓(xùn)資料課件

VBA初級(jí)使用培訓(xùn)資料VBA初級(jí)使用培訓(xùn)資料TrainingContent第一部分VBA簡介VBAIDE簡介VBA基本語法和表達(dá)式第一部分問答第二部分MSExcel對(duì)象模型VBA示例解析動(dòng)手設(shè)計(jì)設(shè)計(jì)解析及問答2TrainingContent第一部分2最新VBA初級(jí)使用培訓(xùn)資料課件最新VBA初級(jí)使用培訓(xùn)資料課件最新VBA初級(jí)使用培訓(xùn)資料課件最新VBA初級(jí)使用培訓(xùn)資料課件最新VBA初級(jí)使用培訓(xùn)資料課件最新VBA初級(jí)使用培訓(xùn)資料課件VBA基本語法和運(yùn)算符-第一部分作用域Dim,過程級(jí),僅用于聲明變量。Private,模塊級(jí),即可用于聲明變量，又可用于修飾子過程。Public,全局級(jí)，即可用于聲明變量，又可用于修飾子程。*過程默認(rèn)為Public賦值語句

SubTest()DimiasIntegerDimstrasStringA=12str=“abc”End9VBA基本語法和運(yùn)算符-第一部分作用域SubTest()9VBA基本語法和運(yùn)算符-第一部分參數(shù)傳遞方式ByVal,按值傳遞。ByRef,按引用傳遞。

Privateg1AsStringPrivateg2AsStringSubTest(ByValt1AsString,ByReft2AsString)t1="ByVal"t2="ByRef"EndSubSubRun()CallTest(g1,g2)

Debug.Printg1Debug.Printg2EndSub10VBA基本語法和運(yùn)算符-第一部分參數(shù)傳遞方式PrivateVBA基本語法和運(yùn)算符-第一部分VBA數(shù)據(jù)類型數(shù)據(jù)類型字節(jié)字符串型String字符長度(0-65400)字節(jié)型Byte1布爾型Boolean2整數(shù)型Integer2長整數(shù)型Long4單精度型Single4雙精度型Double8日期型Date8公元100/1/1-99/12/31貨幣型Currency8小數(shù)點(diǎn)型Decimal14變體型Variant以上任意類型，可變對(duì)象型Object411VBA基本語法和運(yùn)算符-第一部分VBA數(shù)據(jù)類型數(shù)據(jù)類型字節(jié)字VBA基本語法和運(yùn)算符-第一部分VBA運(yùn)算符算術(shù)運(yùn)算符:+,-,*,/,\,^,MOD連接運(yùn)算符:&比較運(yùn)算符:=,>,<,>=,<=,<>邏輯運(yùn)算符:常用And,Or,Not不常用Xor(Exp1或Exp2都為真或都為假則為假，否則為真)Eqv(Exp1或Exp2都為真或都為假則為真，否則為假)Imp(Exp1為真，且Exp2為假則為真，否則為假)

運(yùn)算符區(qū)分優(yōu)先級(jí),通常與數(shù)學(xué)方法一致12VBA基本語法和運(yùn)算符-第一部分VBA運(yùn)算符12VBA基本語法和運(yùn)算符-第一部分VBA常用函數(shù)字符串函數(shù):Left,Right,Mid,Len,Trim…….類型轉(zhuǎn)換函數(shù):CInt,CByte,CLng,CDbl,CBool,……..時(shí)間函數(shù):Now,Year,Day,Time,Hour,Minute,Second……數(shù)學(xué)函數(shù):Abs,Cos,Sin,Sqr……財(cái)務(wù)函數(shù):Rate,IRR,NPV,…….VBA控制語句賦值語句:A=12str=“abc”對(duì)象賦值:Setws=Worksheets(1)三種執(zhí)行方式：順序執(zhí)行，判斷執(zhí)行，循環(huán)執(zhí)行

13VBA基本語法和運(yùn)算符-第一部分VBA常用函數(shù)13VBA基本語法和運(yùn)算符-第一部分VBA判斷執(zhí)行

If〈條件1〉Then〈語句塊1〉ElseIf〈條件2〉Then〈語句塊2〉·

Else〈語句塊n+1〉EndIf

SelectCase〈測試變量〉Case〈表達(dá)式1〉〈語句塊1〉Case〈表達(dá)式2〉〈語句塊2〉·

CaseElse〈語句塊n+1〉EndSelect

14VBA基本語法和運(yùn)算符-第一部分VBA判斷執(zhí)行If〈條件VBA基本語法和運(yùn)算符-第一部分VBA循環(huán)執(zhí)行

For〈變量〉=〈初值〉To〈終值〉Step〈步長〉〈語句塊〉Next〈變量〉ForEach〈對(duì)象變量〉In〈對(duì)象集〉

〈語句塊〉

Next〈對(duì)象變量〉

DoWhile〈條件表達(dá)式〉〈語句塊〉LoopDoUntil〈條件表達(dá)式〉〈語句塊〉Loop15VBA基本語法和運(yùn)算符-第一部分VBA循環(huán)執(zhí)行For〈變VBA基本語法和運(yùn)算符-第一部分演示Sample1.從1加到100,并將每個(gè)累計(jì)顯示在Excel表格中。Sample2.自定義一個(gè)函數(shù)，計(jì)算給定日期參數(shù)的最大天數(shù)。Sample3.將指定數(shù)據(jù)表中GP為正數(shù)或者為負(fù)數(shù)的行設(shè)置為紅色。16VBA基本語法和運(yùn)算符-第一部分演示16VBA基本語法和運(yùn)算符-第一部分第一部分Q&A17VBA基本語法和運(yùn)算符-第一部分17MSExcel對(duì)象模型-第二部分什么叫對(duì)象即是程序需要操作的一個(gè)實(shí)體。一個(gè)人，一本書，一臺(tái)電腦，一個(gè)Excel應(yīng)用程序，一個(gè)Excel表格，一個(gè)單元格。對(duì)象成員屬性:描述對(duì)象的特性、形態(tài)、類別等。方法:描述對(duì)象的行為。事件:發(fā)生于對(duì)象上的事情。字段:即對(duì)象內(nèi)部操作的變量。

18MSExcel對(duì)象模型-第二部分什么叫對(duì)象18MSExcel對(duì)象模型-第二部分ApplicationWorkbooksWindowsAddins……WorksheetsChartsCellsRange…………19MSExcel對(duì)象模型-第二部分ApplicationWoMSExcel對(duì)象模型-第二部分MSExcel的主要對(duì)象Application|____Workbook|___Worksheet|___RangeApplication:定義了控制Excel應(yīng)用程序相關(guān)的操作。Workbook:定義了控制一個(gè)Excel文件內(nèi)的相關(guān)操作。Worksheet:定義了控制一個(gè)Sheet的相關(guān)操作。Range:定義了控制一個(gè)區(qū)域的相關(guān)操作。20MSExcel對(duì)象模型-第二部分MSExcel的主要對(duì)象MSExcel對(duì)象模型-第二部分Excel常用對(duì)象集合集合就是對(duì)象數(shù)組。Workbooks,包含多個(gè)Workbook。Worksheets,包含多個(gè)Worksheet。Cells,對(duì)單元格按數(shù)值型行列的引用。Excel常用對(duì)象事件WorkbookOpenBeforeCloseActivateNewSheet……………21MSExcel對(duì)象模型-第二部分Excel常用對(duì)象集合21MSExcel對(duì)象模型-第二部分Workbooks(“Mybook.xls”).Worksheets(“Sheet1”).Range(“B5”).Value=“ABCDE”容器容器屬性Workbooks.Close集合對(duì)象22MSExcel對(duì)象模型-第二部分Workbooks(“MyMSExcel對(duì)象模型-第二部分Excel程序演示Sample4,在Excel中調(diào)用WordSample5,在Excel中調(diào)用Host23MSExcel對(duì)象模型-第二部分Excel程序演示23動(dòng)手設(shè)計(jì)第二部分考核對(duì)Excel基本對(duì)象的掌握程度目標(biāo)Excel表是Bystore的Sales清單,要求根據(jù)該清單為每一個(gè)店創(chuàng)建一個(gè)新的Sheet,該Sheet名為對(duì)應(yīng)的店的店號(hào)，Sheet的A1，B2單元格分別記錄表頭:Store,Sales,A2和B2單元格分別記錄對(duì)應(yīng)店的店號(hào)和Sales金額。小程序要求能夠通過點(diǎn)擊一個(gè)按鈕來自動(dòng)實(shí)現(xiàn)以上過程。以下路徑下載文件Examination.xls:\\labcnnts593\Sharing\VBATraining24動(dòng)手設(shè)計(jì)第二部分考核對(duì)Excel基本對(duì)象的掌握程度24VBA基本語法和運(yùn)算符-第一部分第二部分Q&A25VBA基本語法和運(yùn)算符-第一部分25VBA基本語法和運(yùn)算符-第一部分Thanks!26VBA基本語法和運(yùn)算符-第一部分26

結(jié)束語謝謝大家聆聽?。?！27

結(jié)束語謝謝大家聆聽！??！27VBA初級(jí)使用培訓(xùn)資料VBA初級(jí)使用培訓(xùn)資料TrainingContent第一部分VBA簡介VBAIDE簡介VBA基本語法和表達(dá)式第一部分問答第二部分MSExcel對(duì)象模型VBA示例解析動(dòng)手設(shè)計(jì)設(shè)計(jì)解析及問答29TrainingContent第一部分2最新VBA初級(jí)使用培訓(xùn)資料課件最新VBA初級(jí)使用培訓(xùn)資料課件最新VBA初級(jí)使用培訓(xùn)資料課件最新VBA初級(jí)使用培訓(xùn)資料課件最新VBA初級(jí)使用培訓(xùn)資料課件最新VBA初級(jí)使用培訓(xùn)資料課件VBA基本語法和運(yùn)算符-第一部分作用域Dim,過程級(jí),僅用于聲明變量。Private,模塊級(jí),即可用于聲明變量，又可用于修飾子過程。Public,全局級(jí)，即可用于聲明變量，又可用于修飾子程。*過程默認(rèn)為Public賦值語句

SubTest()DimiasIntegerDimstrasStringA=12str=“abc”End36VBA基本語法和運(yùn)算符-第一部分作用域SubTest()9VBA基本語法和運(yùn)算符-第一部分參數(shù)傳遞方式ByVal,按值傳遞。ByRef,按引用傳遞。

Privateg1AsStringPrivateg2AsStringSubTest(ByValt1AsString,ByReft2AsString)t1="ByVal"t2="ByRef"EndSubSubRun()CallTest(g1,g2)

Debug.Printg1Debug.Printg2EndSub37VBA基本語法和運(yùn)算符-第一部分參數(shù)傳遞方式PrivateVBA基本語法和運(yùn)算符-第一部分VBA數(shù)據(jù)類型數(shù)據(jù)類型字節(jié)字符串型String字符長度(0-65400)字節(jié)型Byte1布爾型Boolean2整數(shù)型Integer2長整數(shù)型Long4單精度型Single4雙精度型Double8日期型Date8公元100/1/1-99/12/31貨幣型Currency8小數(shù)點(diǎn)型Decimal14變體型Variant以上任意類型，可變對(duì)象型Object438VBA基本語法和運(yùn)算符-第一部分VBA數(shù)據(jù)類型數(shù)據(jù)類型字節(jié)字VBA基本語法和運(yùn)算符-第一部分VBA運(yùn)算符算術(shù)運(yùn)算符:+,-,*,/,\,^,MOD連接運(yùn)算符:&比較運(yùn)算符:=,>,<,>=,<=,<>邏輯運(yùn)算符:常用And,Or,Not不常用Xor(Exp1或Exp2都為真或都為假則為假，否則為真)Eqv(Exp1或Exp2都為真或都為假則為真，否則為假)Imp(Exp1為真，且Exp2為假則為真，否則為假)

運(yùn)算符區(qū)分優(yōu)先級(jí),通常與數(shù)學(xué)方法一致39VBA基本語法和運(yùn)算符-第一部分VBA運(yùn)算符12VBA基本語法和運(yùn)算符-第一部分VBA常用函數(shù)字符串函數(shù):Left,Right,Mid,Len,Trim…….類型轉(zhuǎn)換函數(shù):CInt,CByte,CLng,CDbl,CBool,……..時(shí)間函數(shù):Now,Year,Day,Time,Hour,Minute,Second……數(shù)學(xué)函數(shù):Abs,Cos,Sin,Sqr……財(cái)務(wù)函數(shù):Rate,IRR,NPV,…….VBA控制語句賦值語句:A=12str=“abc”對(duì)象賦值:Setws=Worksheets(1)三種執(zhí)行方式：順序執(zhí)行，判斷執(zhí)行，循環(huán)執(zhí)行

40VBA基本語法和運(yùn)算符-第一部分VBA常用函數(shù)13VBA基本語法和運(yùn)算符-第一部分VBA判斷執(zhí)行

If〈條件1〉Then〈語句塊1〉ElseIf〈條件2〉Then〈語句塊2〉·

Else〈語句塊n+1〉EndIf

SelectCase〈測試變量〉Case〈表達(dá)式1〉〈語句塊1〉Case〈表達(dá)式2〉〈語句塊2〉·

CaseElse〈語句塊n+1〉EndSelect

41VBA基本語法和運(yùn)算符-第一部分VBA判斷執(zhí)行If〈條件VBA基本語法和運(yùn)算符-第一部分VBA循環(huán)執(zhí)行

For〈變量〉=〈初值〉To〈終值〉Step〈步長〉〈語句塊〉Next〈變量〉ForEach〈對(duì)象變量〉In〈對(duì)象集〉

〈語句塊〉

Next〈對(duì)象變量〉

DoWhile〈條件表達(dá)式〉〈語句塊〉LoopDoUntil〈條件表達(dá)式〉〈語句塊〉Loop42VBA基本語法和運(yùn)算符-第一部分VBA循環(huán)執(zhí)行For〈變VBA基本語法和運(yùn)算符-第一部分演示Sample1.從1加到100,并將每個(gè)累計(jì)顯示在Excel表格中。Sample2.自定義一個(gè)函數(shù)，計(jì)算給定日期參數(shù)的最大天數(shù)。Sample3.將指定數(shù)據(jù)表中GP為正數(shù)或者為負(fù)數(shù)的行設(shè)置為紅色。43VBA基本語法和運(yùn)算符-第一部分演示16VBA基本語法和運(yùn)算符-第一部分第一部分Q&A44VBA基本語法和運(yùn)算符-第一部分17MSExcel對(duì)象模型-第二部分什么叫對(duì)象即是程序需要操作的一個(gè)實(shí)體。一個(gè)人，一本書，一臺(tái)電腦，一個(gè)Excel應(yīng)用程序，一個(gè)Excel表格，一個(gè)單元格。對(duì)象成員屬性:描述對(duì)象的特性、形態(tài)、類別等。方法:描述對(duì)象的行為。事件:發(fā)生于對(duì)象上的事情。字段:即對(duì)象內(nèi)部操作的變量。

45MSExcel對(duì)象模型-第二部分什么叫對(duì)象18MSExcel對(duì)象模型-第二部分ApplicationWorkbooksWindowsAddins……WorksheetsChartsCellsRange…………46MSExcel對(duì)象模型-第二部分ApplicationWoMSExcel對(duì)象模型-第二部分MSExcel的主要對(duì)象Application|____Workbook|___Worksheet|___RangeApplication:定義了控制Excel應(yīng)用程序相關(guān)的操作。Workbook:定義了控制一個(gè)Excel文件內(nèi)的相關(guān)操作。Worksheet:定義了控制一個(gè)Sheet的相關(guān)操作。Range:定義了控制一個(gè)區(qū)域的相關(guān)操作。47MSExcel對(duì)象模型-第二部分MSExcel的主要對(duì)象MSExcel對(duì)象模型-第二部分Excel常用對(duì)象集合集合就是對(duì)象數(shù)組。Workbooks,包含多個(gè)Workbook。Worksheets,包含多個(gè)Worksheet。Cells,對(duì)單元格按數(shù)值型行列的引用。Excel常用對(duì)象事件WorkbookOpenBeforeClose