新編Excel在財(cái)務(wù)中的應(yīng)用（第4版）課件項(xiàng)目8、9 Excel與財(cái)務(wù)管理、VBA基礎(chǔ)與應(yīng)用舉例

EXCEL與財(cái)務(wù)管理目錄CONTENT01Excel與財(cái)務(wù)預(yù)測(cè)分析02Excel與籌資決策分析03Excel與投資決策分析01PARTONEExcel與財(cái)務(wù)預(yù)測(cè)分析銷(xiāo)售預(yù)測(cè)分析成本費(fèi)用預(yù)測(cè)分析利潤(rùn)預(yù)測(cè)分析銷(xiāo)售預(yù)測(cè)方法趨勢(shì)平均法直線趨勢(shì)法因果分析法預(yù)測(cè)函數(shù)趨勢(shì)平均法預(yù)測(cè)模型直線趨勢(shì)法預(yù)測(cè)模型因果分析法模型成本費(fèi)用預(yù)測(cè)方法高低點(diǎn)法回歸分析法加權(quán)平均模型法回歸預(yù)測(cè)模型加權(quán)平均預(yù)測(cè)模型利潤(rùn)預(yù)測(cè)分析方法本量利分析法保本保利分析模型01PARTTWOExcel與籌資決策分析長(zhǎng)期借款籌資模型資本成本和最優(yōu)資本結(jié)構(gòu)模型01PARTTHREEExcel與投資決策分析主要投資決策指標(biāo)及函數(shù)NPVPIIRRPPROI固定資產(chǎn)更新決策分析新舊設(shè)備壽命相等新舊設(shè)備壽命不等投資風(fēng)險(xiǎn)決策分析風(fēng)險(xiǎn)調(diào)整貼現(xiàn)率法肯定當(dāng)量法投資分析01PARTFOUR財(cái)務(wù)比率概述財(cái)務(wù)比率償債能力營(yíng)運(yùn)能力盈利能力發(fā)展能力財(cái)務(wù)比率模型建立01PARTFIVE財(cái)務(wù)指標(biāo)綜合分析杜邦模型01PARTSIX重要財(cái)務(wù)指標(biāo)分析重要指標(biāo)定基動(dòng)態(tài)比率數(shù)據(jù)的比較分析01.輸入標(biāo)題文字財(cái)務(wù)分析概述含義目的方法數(shù)據(jù)來(lái)源項(xiàng)目九VBA基礎(chǔ)與應(yīng)用舉例目錄CONTENT01認(rèn)識(shí)宏02VBA基礎(chǔ)03VBA程序及代碼結(jié)構(gòu)04編寫(xiě)Sub過(guò)程和Funtion函數(shù)過(guò)程05用戶界面設(shè)計(jì)01PARTONE認(rèn)識(shí)宏01.認(rèn)識(shí)宏一、啟用“開(kāi)發(fā)工具”選項(xiàng)卡01.認(rèn)識(shí)宏二、錄制宏

錄制宏是VBA里最簡(jiǎn)單的程序，錄制宏可以快速獲得VBA代碼。

宏的名字一般以字母或漢字開(kāi)頭，后面可用的字符包括字母、數(shù)字和下劃線，宏的名字中不允許出現(xiàn)空格、句號(hào)、驚嘆號(hào)，也不能包含“@”“#”“&”等符號(hào)。通常用下畫(huà)線代表空格。01.認(rèn)識(shí)宏三、運(yùn)行宏1．在VisualBasic編輯器界面運(yùn)行宏從Excel進(jìn)入VisualBasic編輯器的方法有多種：使用組合鍵Alt+F11；單擊“開(kāi)發(fā)工具”|VisualBasic按鈕；右擊工作表標(biāo)簽，在彈出的快捷菜單中選擇“查看代碼”命令。進(jìn)入VisualBasic編輯器界面后，運(yùn)行宏的方法也有多種，具體如下。①通過(guò)菜單來(lái)運(yùn)行宏。選擇“運(yùn)行”|“運(yùn)行子過(guò)程/用戶窗體”命令。②通過(guò)快速訪問(wèn)工具欄上的按鈕來(lái)運(yùn)行宏。單擊快速訪問(wèn)工具欄上的“運(yùn)行子過(guò)程/用戶窗體”按鈕。③使用快捷鍵F5運(yùn)行宏。四、分析宏五、編輯宏01.認(rèn)識(shí)宏三、運(yùn)行宏2．在Excel界面運(yùn)行宏①選擇“開(kāi)發(fā)工具”|“宏”命令，在打開(kāi)的“宏”對(duì)話框中的“宏名”列表框中選擇剛錄制的“篩選”，然后單擊“執(zhí)行”按鈕。②按Alt+F8組合鍵，打開(kāi)“宏”對(duì)話框，在“宏名”列表框中選取剛錄制的“篩選”，然后單擊“執(zhí)行”按鈕。③利用錄制宏時(shí)指定的組合鍵，按Ctrl+J組合鍵也可快速運(yùn)行“篩選”宏。④利用圖形對(duì)象來(lái)執(zhí)行宏。選擇“插入”∣“形狀”∣“基本形狀”∣“笑臉”命令，添加“笑臉”圖形到工作表中后右擊，在彈出的快捷菜單中選擇“指定宏”命令。在“指定宏”對(duì)話框中，“宏名”選擇剛錄制的“篩選”，然后單擊“確定”按鈕。⑤利用控件運(yùn)行宏。選擇“開(kāi)發(fā)工具”∣“插入”∣“按鈕”命令，在Excel工作表中拖畫(huà)出來(lái)，這時(shí)會(huì)彈出“指定宏”對(duì)話框，選取“篩選”宏即可。四、分析宏五、編輯宏01.認(rèn)識(shí)宏四、分析宏

單擊“開(kāi)發(fā)工具”|“宏”按鈕，在“宏”對(duì)話框中，“宏名”選取已經(jīng)錄制的“篩選”，然后單擊“編輯”按鈕，打開(kāi)VisualBasic編輯器窗口。①“Sub篩選()”是宏的名稱(chēng)。②中間以“'”開(kāi)頭的5行稱(chēng)為注釋?zhuān)阡浿坪陼r(shí)會(huì)自動(dòng)產(chǎn)生。③以Range("C5").Select開(kāi)頭到Range("D5").Select結(jié)束的這段語(yǔ)句是宏的主要部分。④EndSub是整個(gè)宏的結(jié)束語(yǔ)。01.認(rèn)識(shí)宏五、編輯宏通過(guò)分析宏發(fā)現(xiàn)，代碼中有些語(yǔ)句實(shí)際上并不起作用?？梢栽诤曛凶鲆粋€(gè)修改，刪除多余語(yǔ)句后重新運(yùn)行宏，結(jié)果與修改前的狀況一樣。編輯錄制的宏同樣非常簡(jiǎn)單。宏可以錄制，但是還需要編輯宏或?qū)W習(xí)VBA。這是因?yàn)椋寒?dāng)宏錄制有誤時(shí)可以直接修改宏，而不必重新錄制；錄制宏中有多余的語(yǔ)句需要?jiǎng)h除，以提高宏的運(yùn)行速度；希望增加宏的功能，如加入判斷、循環(huán)或提示信息等無(wú)法錄制的語(yǔ)句。01.認(rèn)識(shí)宏五、編輯宏通過(guò)分析宏發(fā)現(xiàn)，代碼中有些語(yǔ)句實(shí)際上并不起作用?？梢栽诤曛凶鲆粋€(gè)修改，刪除多余語(yǔ)句后重新運(yùn)行宏，結(jié)果與修改前的狀況一樣。編輯錄制的宏同樣非常簡(jiǎn)單。宏可以錄制，但是還需要編輯宏或?qū)W習(xí)VBA。這是因?yàn)椋寒?dāng)宏錄制有誤時(shí)可以直接修改宏，而不必重新錄制；錄制宏中有多余的語(yǔ)句需要?jiǎng)h除，以提高宏的運(yùn)行速度；希望增加宏的功能，如加入判斷、循環(huán)或提示信息等無(wú)法錄制的語(yǔ)句。01.認(rèn)識(shí)宏七、保存包含宏的文檔Excel創(chuàng)建的工作簿在錄制、編輯完宏后，單擊“保存”按鈕時(shí)，會(huì)打開(kāi)如圖所示的對(duì)話框。單擊“否”按鈕，會(huì)打開(kāi)“另存為”對(duì)話框，在“保存類(lèi)型”下拉列表框中選擇“Excel啟用宏的工作簿(*.xlsm)”，再設(shè)置一個(gè)合適的文件名，然后單擊“保存”按鈕即可。01PARTTOWVBA基礎(chǔ)02.VBA基礎(chǔ)一、VisualBasic編輯器①“工程”窗格。顯示一個(gè)樹(shù)型結(jié)構(gòu)，包括MicrosoftExcel對(duì)象、窗體、模塊等。在Excel中，每一個(gè)工作簿就是一個(gè)工程，工程的默認(rèn)名稱(chēng)為VBAProject（工作簿名稱(chēng)）。②“屬性”窗格。顯示當(dāng)前所選Excel對(duì)象的屬性。選中某個(gè)對(duì)象后，可以在“屬性”窗格中修改所選對(duì)象的各個(gè)屬性，如顏色、名稱(chēng)等。③“代碼”窗格。這是用來(lái)存儲(chǔ)和編輯VBA代碼的地方?！按a”窗格的左側(cè)有一個(gè)邊界標(biāo)志條，用來(lái)放置中斷標(biāo)志和程序運(yùn)行標(biāo)志。編寫(xiě)代碼時(shí)，2個(gè)過(guò)程之間會(huì)自動(dòng)添加一條過(guò)程分隔線。02.VBA基礎(chǔ)二、對(duì)象、屬性、方法、事件下面是很重要的幾個(gè)概念，是編寫(xiě)VBA程序的基礎(chǔ)。①對(duì)象（object）。對(duì)象是指所有可以通過(guò)VBA控制的東西，如工作簿、工作表、單元格、窗體、文本框、按鈕等。在Office中，程序開(kāi)發(fā)都是以對(duì)象為中心的。②屬性（property）。屬性是指對(duì)象的特性，如大小、顏色、狀態(tài)等。③方法（method）。每個(gè)對(duì)象都有方法，方法就是在對(duì)象上執(zhí)行的某個(gè)動(dòng)作。屬性表示的是對(duì)象的某種狀態(tài)或樣子，是靜態(tài)的，就像語(yǔ)文里的名詞、形容詞和副詞，而方法則是做某件事的一個(gè)動(dòng)作，就像動(dòng)詞。例如，Range（單元格）對(duì)象有一個(gè)方法是Select（選擇）。④事件（event）。事件是指由用戶或系統(tǒng)觸發(fā)的某個(gè)動(dòng)作或行為，可以在代碼中響應(yīng)。當(dāng)用戶移動(dòng)鼠標(biāo)指針、打開(kāi)工作簿、激活工作表、選中單元格、改變單元格的數(shù)值、單擊按鈕或單擊鍵盤(pán)等都會(huì)產(chǎn)生一系列的事件。通過(guò)編寫(xiě)代碼響應(yīng)這些事件，程序就會(huì)進(jìn)行相應(yīng)的操作。02.VBA基礎(chǔ)三、常量與變量①常量。常量是指不隨時(shí)間變化的某些量和信息。程序中經(jīng)常出現(xiàn)的數(shù)值可以設(shè)置為常量。聲明常量需要用Const語(yǔ)句，格式為：Const常量名[As數(shù)據(jù)類(lèi)型]=常量的值②變量。變量在不同時(shí)刻有不同的值，定義變量時(shí)只說(shuō)明變量的數(shù)據(jù)類(lèi)型而不必說(shuō)明其值。常用的變量數(shù)據(jù)類(lèi)型包括Byte（字節(jié)型）、Integer（整數(shù)型）、Long（長(zhǎng)整型）、Boolean（布爾型）、Single（單精度型）、Double（雙精度型）、Currency（貨幣型）、String（字符型）、Variant（變體型）、Date（日期型）、Object（對(duì)象型）。定義變量可以使用Dim語(yǔ)句，格式為：Dim變量名[As數(shù)據(jù)類(lèi)型]02.VBA基礎(chǔ)VBA主要有獲取對(duì)象屬性、設(shè)置對(duì)象屬性和使用對(duì)象的方法3種基本的語(yǔ)法規(guī)則。①獲取對(duì)象屬性。格式為：變量=對(duì)象.屬性。例如：My_name=Range("A5").Value②設(shè)置對(duì)象屬性。格式為：對(duì)象.屬性=值。例如：Range("A1").Value="資產(chǎn)負(fù)債表"③使用對(duì)象的方法。基本語(yǔ)句格式：對(duì)象.方法。例如：Worksheets.Add帶有參數(shù)的語(yǔ)句格式：對(duì)象.方法參數(shù)1,參數(shù)2,…。例如：Worksheets.Addafter:=Worksheets(1)02.VBA基礎(chǔ)五、ExcelVBA的對(duì)象層級(jí)結(jié)構(gòu)對(duì)象是分層次的，上級(jí)對(duì)象包含一個(gè)或多個(gè)下級(jí)對(duì)象02.VBA基礎(chǔ)VBA主要有獲取對(duì)象屬性、設(shè)置對(duì)象屬性和使用對(duì)象的方法3種基本的語(yǔ)法規(guī)則。①獲取對(duì)象屬性。格式為：變量=對(duì)象.屬性。例如：My_name=Range("A5").Value②設(shè)置對(duì)象屬性。格式為：對(duì)象.屬性=值。例如：Range("A1").Value="資產(chǎn)負(fù)債表"③使用對(duì)象的方法?；菊Z(yǔ)句格式：對(duì)象.方法。例如：Worksheets.Add帶有參數(shù)的語(yǔ)句格式：對(duì)象.方法參數(shù)1,參數(shù)2,…。例如：Worksheets.Addafter:=Worksheets(1)02.VBA基礎(chǔ)六、對(duì)象引用的2種方法1．絕對(duì)引用Application.Workbooks("工作簿1.xlsx").Worksheets(2).Range("A5").Value=1002．相對(duì)引用Workbooks("工作簿1.xlsx").ActivateWorksheets(2).ActivateRange("A5").Value=100使用相對(duì)引用可以減少語(yǔ)句的長(zhǎng)度，書(shū)寫(xiě)更簡(jiǎn)單，更容易閱讀。任務(wù)一中錄制的“篩選”宏和“清除”宏就屬于絕對(duì)引用關(guān)系，宏引用的單元格是固定不變的。有時(shí)候錄制宏時(shí)需要啟用相對(duì)引用功能，使宏更具靈活性。02.VBA基礎(chǔ)七、集合對(duì)象和單一對(duì)象1．集合對(duì)象集合對(duì)象是指某種對(duì)象的集合體。書(shū)寫(xiě)格式為：一般都用單詞的復(fù)數(shù)形式。例如，Workbooks代表當(dāng)前打開(kāi)的所有工作簿；Worksheets代表某工作簿中的所有工作表；Cells代表某工作表上的所有單元格。2．單一對(duì)象單一對(duì)象是指集合對(duì)象中的某單一個(gè)體。書(shū)寫(xiě)格式為：集合對(duì)象（序號(hào)）或集合對(duì)象（名稱(chēng)）。02.VBA基礎(chǔ)VBA主要有獲取對(duì)象屬性、設(shè)置對(duì)象屬性和使用對(duì)象的方法3種基本的語(yǔ)法規(guī)則。①獲取對(duì)象屬性。格式為：變量=對(duì)象.屬性。例如：My_name=Range("A5").Value②設(shè)置對(duì)象屬性。格式為：對(duì)象.屬性=值。例如：Range("A1").Value="資產(chǎn)負(fù)債表"③使用對(duì)象的方法。基本語(yǔ)句格式：對(duì)象.方法。例如：Worksheets.Add帶有參數(shù)的語(yǔ)句格式：對(duì)象.方法參數(shù)1,參數(shù)2,…。例如：Worksheets.Addafter:=Worksheets(1)01PARTTHREEVBA程序及代碼結(jié)構(gòu)03.VBA程序及代碼結(jié)構(gòu)程序是按照一定的順序來(lái)執(zhí)行的。程序在執(zhí)行過(guò)程中，可以按順序執(zhí)行，可以有選擇地執(zhí)行，也可以重復(fù)執(zhí)行某段代碼，還可以跳過(guò)某些代碼而執(zhí)行其他代碼。一、順序結(jié)構(gòu)順序結(jié)構(gòu)是指按事件發(fā)生的先后次序，逐條語(yǔ)句順序執(zhí)行，在程序執(zhí)行過(guò)程中沒(méi)有任何分支。錄制宏產(chǎn)生的代碼一般都是順序結(jié)構(gòu)。二、判斷結(jié)構(gòu)1.If-Then語(yǔ)句2.If-Then-Else語(yǔ)句3．If-Then-ElseIf語(yǔ)句三、分支結(jié)構(gòu)SelectCase語(yǔ)句同If語(yǔ)句一樣，也是條件判斷的語(yǔ)句。當(dāng)程序的條件太多，用If語(yǔ)句來(lái)判斷就存在一些不足，如程序的美觀性、可閱讀性及程序的執(zhí)行效果較差。與If語(yǔ)句相比，SelectCase語(yǔ)句在執(zhí)行效率上更高。四、循環(huán)結(jié)構(gòu)1.For-Next循環(huán)語(yǔ)句2.For-Each循環(huán)語(yǔ)句3.DoWhile循環(huán)語(yǔ)句4.DoUntil循環(huán)語(yǔ)句01PARTFOUR編寫(xiě)Sub過(guò)程和Funtion函數(shù)過(guò)程04.編寫(xiě)Sub過(guò)程和Funtion函數(shù)過(guò)程

過(guò)程是構(gòu)成程序的一個(gè)模塊，往往用來(lái)完成一個(gè)相對(duì)獨(dú)立的功能。過(guò)程可以使程序更清晰、更具結(jié)構(gòu)性。VBA最常用的有Sub過(guò)程和Function函數(shù)過(guò)程。過(guò)程按作用域不同可分為公共過(guò)程（Public）和私有過(guò)程（Private）：過(guò)程前有Public或省略了Public的過(guò)程都是公共過(guò)程，可以被其他程序