認識VBA及其應用-課件

第24章VBA1ppt課件24-1認識VBA及其應用VisualBasicforApplication

又稱VBA，是一種程序語言，可隨著不同的應用軟件透過對應的語法來設(shè)計，從Office2000開始，Office間應用軟件的VBA即可互通了。VBA應用很廣，小則應用它來設(shè)計一個Excel沒提供的函數(shù)，大則可以設(shè)計成幫不會用Excel界面的人做成自動化的信息系統(tǒng)，如會計信息系統(tǒng)等，本書此章節(jié)的目的，是要讓使用者對Excel的VBA有一初步概念。1ppt課件24-2VBA程序語言基本結(jié)構(gòu)VBA是一種物件導向程序語言，跟一般語言一樣，其基本架構(gòu)為Sub函數(shù)或程序名稱()‘定義(宣告)函數(shù)或程序 宣告1

宣告2 .....

陳述式1

陳述式2 .....EndSub1ppt課件VBA程序語言基本結(jié)構(gòu)-續(xù)VBA的程序碼是由許多陳述式集合而成，包含宣告其實也是一種陳述式，陳述式會執(zhí)行VBA的動作，每一個正確的指令，都會產(chǎn)生對應的動作，例如引發(fā)物件啟動、計算或結(jié)束程序等。陳述式約分為4類：(1)宣告陳述式(2)指定陳述式及設(shè)定物件屬性(3)條件及循環(huán)陳述式(4)執(zhí)行物件的方法。剛開始時，我們可藉由前一章所錄的巨集產(chǎn)生的VBA成式碼來學習各種用法，對初學者效果不錯哦！先看一個例子感受一下！下面的Sub程序用Min工作表函數(shù)來求出指定儲存格范圍中的最小值。首先，將變量myRange

宣告為Range物件，然后將其設(shè)定為Sheet1中的A1:C10范圍。再將另一變量answer指定為將Min函數(shù)套用于myRange

后的結(jié)果。最后在訊息方塊中顯示answer的值。SubUseFunction() DimmyRangeAsRange SetmyRange=Worksheets("Sheet1").Range("A1:C10") answer=Application.WorksheetFunction.Min(myRange) MsgBoxanswerEndSub1ppt課件VBA操作環(huán)境Excel提供了一個很好的VBA操作環(huán)境，來讓我們寫程序，我們現(xiàn)在就來看看！Step1：執(zhí)行[工具/巨集/VisualBasic編輯器]或按「Alt+F11」快速鍵。1ppt課件VBA操作環(huán)境-續(xù)Step2：進入VBA操作環(huán)境視窗后，會看到左上方的「項目視窗」，左下的「屬性視窗」，以及右邊的「程序視窗」，這時你可以透過「視窗工作列」切換到Excel環(huán)境或再切換到VBA環(huán)境，也可以透過檢視把其他工具列叫出來。1ppt課件VBA操作環(huán)境-續(xù)Step3：在[項目視窗]上，選取項目名稱(預設(shè)為VBProject)，按右鍵，叫出快顯功能表，選擇此項目的屬性。1ppt課件VBA操作環(huán)境-續(xù)Step4：開啟[項目屬性]交談窗，將項目名稱改成「star」(原為VBProjecct)，也可以用密碼保護我們的項目，不讓別人看到項目內(nèi)容，如程序。1ppt課件VBA操作環(huán)境-續(xù)Step5：VBA的物件導向式語法，有非常多的方法及屬性，其中各有不同的參數(shù)，不用強記，可以在屬性或方法的字上(例如RGB)按右鍵，叫出快顯功能表，選擇「列出屬性或方法」。1ppt課件VBA操作環(huán)境-續(xù)Step6：就可直接跳到最接近的屬性或方法項下，按一下，就會出現(xiàn)相關(guān)的在線說明，可以復制說明檔上面的程序，直接拿過來用哦！1ppt課件VBA操作環(huán)境-續(xù)Step6：就可直接跳到最接近的屬性或方法項下，按一下，就會出現(xiàn)相關(guān)的在線說明，可以復制說明檔上面的程序，直接拿過來用哦！1ppt課件VBA操作環(huán)境-續(xù)Step7：輸入方法或?qū)傩詴r，若有參數(shù)，輸入「(」時會出現(xiàn)參數(shù)指引說明，跟我們在Excel中的資料編輯列上用函數(shù)是不是很像！1ppt課件VBA操作環(huán)境-續(xù)Step8：輸入程序時請用小寫英文即可，它會自動幫你轉(zhuǎn)成大小寫，以及用顏色區(qū)分，藍色為VBA與法的保留字或關(guān)鍵字，不可拼錯，黑色為程序的變量、宣告或陳述，而綠色則是注解。如果我輸入「ifx1=40」按[Enter]鍵，立刻會告訴你錯誤訊息，并告訴你怎么做，而且用紅色的字標示出錯誤的那一列，是不是很方便，剛開始只要沒出現(xiàn)紅色的字，表示程序沒有大錯，就可以執(zhí)行了。1ppt課件VBA操作環(huán)境-續(xù)Step9：我們先來看一個設(shè)定字型格式變化的程序，都在每一行后面有說明注解(注解以’為開始)。1ppt課件VBA基本結(jié)構(gòu)-程序或函數(shù)一般我們用VBA最多的就是程序或函數(shù)了，程序是一連串可執(zhí)行的指令結(jié)合在一起，例如前一章所錄制的巨集，主要目的是讓多個重復的動作在一起執(zhí)行，減少我們操作的時間；而函數(shù)則是根據(jù)使用者傳入的參數(shù)，做一些運算后傳回一個結(jié)果的值，像我們在第6章及第9章用的函數(shù)就是這樣，我們趕快來試試看！Step1：執(zhí)行[插入/程序]。Step2：在[新增程序]交談窗，輸入名稱為「leapyear」，型態(tài)為「Sub」表示為一個「程序」程序。Step3：按確定后，自動在程序視窗加入了一段定義程序的宣告與結(jié)束指令，我們可以開始依據(jù)需要在這個程序中間加入我們需要的程序指令了！1ppt課件VBA基本結(jié)構(gòu)-程序或函數(shù)Step4：假設(shè)寫好了，想試試看如何執(zhí)行，這里我們以上一節(jié)改變字型格式的程序「font20b」來示范，到Excel中，選取B2儲存格，按「Alt+F8」，開啟巨集交談窗，選取一個巨集名稱來[執(zhí)行]。Step5：若沒有錯誤，就可以看到程序執(zhí)行的結(jié)果，你也可以選取一個儲存格范圍來試試看！1ppt課件VBA基本結(jié)構(gòu)-程序或函數(shù)Step4：假設(shè)寫好了，想試試看如何執(zhí)行，這里我們以上一節(jié)改變字型格式的程序「font20b」來示范，到Excel中，選取B2儲存格，按「Alt+F8」，開啟巨集交談窗，選取一個巨集名稱來[執(zhí)行]。Step5：若沒有錯誤，就可以看到程序執(zhí)行的結(jié)果，你也可以選取一個儲存格范圍來試試看！1ppt課件VBA基本結(jié)構(gòu)-程序或函數(shù)Step6：現(xiàn)在我們在來看看「函數(shù)」程序是怎么做跟怎么執(zhí)行的？在[新增程序]交談窗，輸入名稱為「leapyear1」，型態(tài)為「Function」表示為一個「函數(shù)」程序。在同一模塊下，程序或函數(shù)名稱都不可重復。Step7：按確定后，一樣自動在程序視窗加入了一段定義函數(shù)的宣告與結(jié)束指令，所不同的是程序的關(guān)鍵字是Sub，而函數(shù)是Function，同樣都以End來結(jié)束程序。Step8：雖然透過[插入/程序]產(chǎn)生了一小小段程序，我們還是可以在程序視窗直接修改它哦！也可以直接復制一段程序或函數(shù)來修改，這里我們就把「leapyear1」改為「slength」，我們想利用勾股定理來計算三角形的斜邊，而無論是程序或函數(shù)都不一定要傳入?yún)?shù)，但宣告程序或函數(shù)后的「()」左右括號一定要存在，在這里我們需要三角型的兩邊，所以我們就在括號中定義了兩個傳入的參數(shù)x1及y1，資料型態(tài)都是整數(shù)。1ppt課件VBA基本結(jié)構(gòu)-程序或函數(shù)Step9：做好了，要如何執(zhí)行？選取任一儲存格(這里我們選A1)，按一般工具列上的[插入函數(shù)]鈕，在[插入函數(shù)]交談窗中，選取類別為「使用者定義」類別，按[確定]。Step10：出現(xiàn)[插入函數(shù)]交談窗，這里只定義一個函數(shù)slength，就選擇它了，按確定。1ppt課件VBA基本結(jié)構(gòu)-程序或函數(shù)Step11：出現(xiàn)[函數(shù)自變量]交談窗，可以直接輸入值或使用摺疊鈕來選取其他儲存格資料，我們輸入3與4后，已可看到結(jié)果為5。Step12：已將計算結(jié)果放到A1儲存格。1ppt課件VBA基本結(jié)構(gòu)-常數(shù)、變量與資料型態(tài)通常會使用Dim

陳述式來宣告變量。Dim陳述式的語法為：Dim變量名稱[as資料型態(tài)]... ([]內(nèi)的表示可省略)在Dim陳述式的語法中，Dim是必備的關(guān)鍵字。而唯一必備的元素是變量名稱。變量可以宣告成下列資料型態(tài)中的一者：Boolean、Byte、Integer、Long、Currency、Single、Double、Date、String(可變長度字符串)、String*length(固定長度字符串)、Object或Variant。如果您未指定資料型態(tài)，則Variant資料型態(tài)會被指定成預設(shè)型態(tài)。在宣告陳述式中，您不一定要提供變量的資料型態(tài)，若省略資料型態(tài)的則會將變量設(shè)成Variant型態(tài)。1ppt課件常數(shù)、變量與資料型態(tài)變量的命名規(guī)則：(1)必須以字母為開頭。(2)不可以包含句號、關(guān)鍵字及型態(tài)宣告字符。(3)不能超過255個字。(4)如果這個陳述式出現(xiàn)在程序中，則此變量只可以在此程序中被使用。如果這個陳述式出現(xiàn)在模塊中的宣告區(qū)段，則此變量可以被此模塊中所有的程序所使用，但是不能被同一項目中不同的模塊所含程序來使用。為了使變量可被項目中所有的程序所使用，則在變量名稱前加上

Public

陳述式。1ppt課件常數(shù)、變量與資料型態(tài)宣告常數(shù)我們使用Const陳述式宣告部份常用到的文數(shù)字設(shè)為常數(shù)。例如：'常數(shù)的預設(shè)狀態(tài)是Private。ConstMyVar=459'宣告Public常數(shù)。PublicConstMyString="HELP"'在同一行里宣告多個常數(shù)。ConstMyStr="Hello",MyDoubleAsDouble=3.4567宣告變量Dim x1asInteger,y2asObjectSubslength()1ppt課件VBA基本結(jié)構(gòu)-物件式導向語法-物件物件導向程序中，有四個很重要的元件，(1)物件(2)屬性(3)方法及(4)事件，而當我們把物件相關(guān)的屬性，執(zhí)行的方法，引發(fā)的事件，依物件導向語法組合在一起就是所謂的指令或陳述式。物件

Excel中常見的物件有按鈕、儲存格范圍、工作表等等，在程序中為了使用方便，將某些同型態(tài)的物件集合在一起，稱為物件集，其關(guān)鍵字為英文的復數(shù)型態(tài)，如Worksheets，例如想在ch24.xls的sheet1工作表中的A1儲存格放入數(shù)值5，可以這樣寫：

Workbooks(“ch24.xls”).Worksheets(“sheet1”).Range(“A1”).Value=51ppt課件VBA基本結(jié)構(gòu)-物件式導向語法-物件我們可以在VBA環(huán)境的一般工具列上按瀏覽物件，可看到有相當多的物件類型。1ppt課件VBA基本結(jié)構(gòu)-物件式導向語法-屬性屬性:各種不同的物件，各有其特定的性質(zhì)，我們稱之為屬性，通常我們利用屬性來控制物件的外觀，如設(shè)定儲存格的字型、顏色等，我們常用指定陳述是來達成。

物件.屬性=設(shè)定值 或變量=物件.屬性Step1：例如在物件Font上，按右鍵，執(zhí)行快顯功能表中的[說明]。1ppt課件VBA基本結(jié)構(gòu)-物件式導向語法-屬性Step2：會開啟Font的在線說明，亦會介紹其相關(guān)的屬性、方法及事件等，樣可以復制到我們的程序視窗。1ppt課件VBA基本結(jié)構(gòu)-物件式導向語法-屬性Step3：如果在Color屬性按右鍵，執(zhí)行說明。Step4：出現(xiàn)了Color屬性的詳細說明。1ppt課件VBA基本結(jié)構(gòu)-物件式導向語法-屬性一些中要屬性的用法：(1)Range屬性可用Range(arg)傳回代表單個儲存格或儲存格范圍的Range物件，其中arg

為范圍名稱。以下范例將儲存格A1中的值指派給儲存格A5。Worksheets("Sheet1").Range("A5").Value=Worksheets("Sheet1").Range("A1").Value以下范例清除范圍Criteria中的內(nèi)容。Worksheets(1).Range("Criteria").ClearContents(2)Cells屬性可用Cells(row,column)傳回單個儲存格，其中row為列索引，column為欄索引。以下范例將儲存格A1的值設(shè)定為24。Worksheets(1).Cells(1,1).Value=24以下范例設(shè)定儲存格A2的公式。ActiveSheet.Cells(2,1).Formula="=Sum(B1:B5)"1ppt課件VBA基本結(jié)構(gòu)-物件式導向語法-屬性(3)Offset屬性可用Offset(row,column)傳回相對于另一范圍在指定位移處的范圍，其中row和column為列位移和欄位移。以下范例選取位于目前選定范圍左上角儲存格下三列，右一欄處的儲存格。由于無法選取不在使用中工作表上的儲存格，故必須先啟動工作表。Worksheets("Sheet1").Activate'Can'tselectunlessthesheetisactiveSelection.Offset(3,1).Range("A1").Select技巧：用With快速設(shè)定屬性With陳述式可以讓您的程序執(zhí)行的更快速并且?guī)椭苊庵貜偷逆I入程序碼。下面的范例將某一范圍的儲存格都填入30，字型使用黑體格式，并將儲存格的內(nèi)部顏色設(shè)定成黃色。SubFormatRange()WithWorksheets("Sheet1").Range("A1:C10").Value=30.Font.Bold=True.Interior.Color=RGB(255,255,0)EndWithEndSub1ppt課件VBA基本結(jié)構(gòu)-物件式導向語法-方法方法 除了用屬性來改變物件外，還可以使用方法來要求物件做一些動作，參下圖，可以看到Sheets成員中前半部的屬性都為名詞，而后半部的方法都為動詞。1ppt課件VBA基本結(jié)構(gòu)-物件式導向語法-事件事件是指要執(zhí)行或驅(qū)動某一物件執(zhí)行一些動作所發(fā)出的訊息，如按一下鼠標，按一下鍵盤或開啟活頁簿，另外我們也可以透過我們寫的程序碼來驅(qū)動或?qū)е履承┦录陌l(fā)生。如下，我們可以看物件可以有哪些事件。CommandButton1(按鈕)物件，有Click(按一下)，DbClick(按二下)...等等事件。1ppt課件VBA基本結(jié)構(gòu)-物件式導向語法-事件工作表上的常用事件如下。當啟動工作表、使用者變更工作表上的儲存格、或樞紐分析表變更時，即會發(fā)生工作表級的事件。當啟動活頁簿、工作表、圖表、或內(nèi)嵌圖表時發(fā)生Activate事件。ActivateBeforeDoubleClickBeforeRightClickCalculateChangeDeactivateFollowHyperlinkPivotTableUpdateSelectionChange1ppt課件程序的控制結(jié)構(gòu)-使用If...Then...Else陳述式

If...Then...Else陳述式會根據(jù)條件式的值，而執(zhí)行指定的陳述式或一個區(qū)塊的陳述式。If...Then...Else陳述式可以依據(jù)您的需要而做多階層的巢狀執(zhí)行。然而，為了可讀性您可能會使用SelectCase陳述式而不使用多階層的巢狀I(lǐng)f...Then...Else語法。下列的范例展示了單行語法，并省略了Else關(guān)鍵字：SubFixDate()myDate=#2/13/95#IfmyDate<NowThenmyDate=NowEndSub1ppt課件程序的控制結(jié)構(gòu)-使用If...Then...Else陳述式

If...Then...Else陳述式會根據(jù)條件式的值，而執(zhí)行指定的陳述式或一個區(qū)塊的陳述式。If...Then...Else陳述式可以依據(jù)您的需要而做多階層的巢狀執(zhí)行。然而，為了可讀性您可能會使用SelectCase陳述式而不使用多階層的巢狀I(lǐng)f...Then...Else語法。下列的范例展示了單行語法，并省略了Else關(guān)鍵字：SubFixDate()myDate=#2/13/95#IfmyDate<NowThenmyDate=NowEndSub1ppt課件程序的控制結(jié)構(gòu)-使用If...Then...Else陳述式

若要執(zhí)行多行程式碼的話，您必須使用多行的語法，而此語法須包含EndIf

陳述式，如同下面范例所示：SubAlertUser(valueasLong)Ifvalue=0ThenAlertLabel.ForeColor="Red"AlertLabel.Font.Bold=TrueAlertLabel.Font.Italic=TrueEndIfEndSub1ppt課件程序的控制結(jié)構(gòu)-使用If...Then...Else陳述式

當條件式為True，執(zhí)行某些陳述式；條件式為False，執(zhí)行其余的陳述式使用If...Then...Else陳述式可以定義兩個可執(zhí)行的陳述式區(qū)塊：其中一個區(qū)塊會在條件式為True時執(zhí)行；而另一個區(qū)塊會在條件式為False時執(zhí)行。SubAlertUser(valueasLong)Ifvalue=0ThenAlertLabel.ForeColor=vbRedAlertLabel.Font.Bold=TrueAlertLabel.Font.Italic=TrueElseAlertLabel.Forecolor=vbBlackAlertLabel.Font.Bold=FalseAlertLabel.Font.Italic=FalseEndIfEndSub1ppt課件程序的控制結(jié)構(gòu)-使用If...Then...Else陳述式

當?shù)谝粋€條件式為False時，測試第二個條件式當?shù)谝粋€條件式為False時，您可以在If...Then...Else陳述式中加上ElseIf

陳述式來測試第二個條件式。舉例而言，下列的函數(shù)程序根據(jù)工作分類來計算獎金。如何所有If和ElseIf

陳述式中條件式都是False，則會執(zhí)行緊接在Else陳述式之后的陳述式。FunctionBonus(performance,salary)Ifperformance=1ThenBonus=salary*0.1ElseIfperformance=2ThenBonus=salary*0.09ElseIfperformance=3ThenBonus=salary*0.07ElseBonus=0EndIfEndFunction1ppt課件程序的控制結(jié)構(gòu)-使用SelectCase陳述式

將一個表達式與數(shù)個不同的值比較時，可以使用SelectCase陳述式來取代在If...Then...Else陳述式中使用ElseIf。If...Then...Else陳述式會計算每個ElseIf

陳述式中的表達式，而SelectCase陳述式只會在控制結(jié)構(gòu)的頂端計算一次表達式。在下面的范例中，SelectCase陳述式會計算傳送給此程序的自變量performance。請注意，每一個Case陳述式可以含有一個以上的值，一段范圍的值，或是一個組合值以及比較運算子。選擇性的CaseElse陳述式只有在自變量值無法與SelectCase中所有的Case陳述式相符合時才會執(zhí)行。FunctionBonus(performance,salary)SelectCaseperformanceCase1Bonus=salary*0.1Case2,3Bonus=salary*0.09Case4To6Bonus=salary*0.07CaseIs>8Bonus=100CaseElseBonus=0EndSelectEndFunction1ppt課件程序的控制結(jié)構(gòu)-使用Do...Loop陳述式

您可以使用Do...Loop陳述式去執(zhí)行一個區(qū)塊的陳述式，而它所用掉的時間是不確定的。當條件式為True或直到條件式變成True之前，此陳述式會一直重復。（１）重復陳述式直到條件式為True當使用While關(guān)鍵字去檢查Do...Loop陳述式中的條件式時，可以有兩種不同的方式。您可以在進入循環(huán)之前檢查條件式，也可以在循環(huán)至少執(zhí)行一次之后才檢查條件式。在下面的ChkFirstWhile

程序中，是在進入循環(huán)之前檢查條件式。如果將myNum

的值由20替換成9，則在循環(huán)中的陳述式將永遠不會執(zhí)行。在ChkLastWhile

程序中，在條件式變成False之前循環(huán)中的陳述式會一直執(zhí)行。SubChkFirstWhile()counter=0myNum=20DoWhilemyNum>10myNum=myNum-1counter=counter+1LoopMsgBox"Theloopmade"&counter&"repetitions."EndSub1ppt課件程序的控制結(jié)構(gòu)-使用Do...Loop陳述式

（２）從Do...Loop陳述式中離開您可以使用ExitDo陳述式來離開Do...Loop陳述式。舉例而言，為了離開無窮循環(huán)，可以將ExitDo陳述式放在If...Then...Else陳述式或是SelectCase陳述式中的True陳述式區(qū)塊。如果條件式為False，則循環(huán)會像平常一樣執(zhí)行?？梢园聪翬SC或CTRL+BREAK來終止無窮循環(huán)。1ppt課件程序的控制結(jié)構(gòu)-使用For...Next陳述式

您可以使用For...Next陳述式去執(zhí)行一個區(qū)塊的陳述式，而它所用掉的時間是特定的。For循環(huán)使用一個計數(shù)變量，當反覆的執(zhí)行循環(huán)時它的值會增加或減少。下面的程序會讓計算機發(fā)出嗶聲50次。For陳述式會指定計數(shù)變量x的開始與結(jié)束值。Next陳述式會將計數(shù)變量的值加1。SubBeeps()Forx=1To50BeepNextxEndSub1ppt課件程序的控制結(jié)構(gòu)-使用For...Next陳述式

使用Step關(guān)鍵字，可以增加或減少計數(shù)變量的值，并且增減值可由您指定。在下面的范例中，計數(shù)變量j會在循環(huán)重復時加上2。當循環(huán)結(jié)束時，total的值為2、4、6、8和10的總合。SubTwosTotal()Forj=2To10Step2total=total+jNextjMsgBox"Thetotalis"&totalEndSub為了減少計數(shù)變量的值，您可以使用負的Step值。在Next陳述式后面可以不用加上計數(shù)變量的名稱。在For...Next陳述式中您可以在計數(shù)變量到達它的結(jié)束值之前，使用ExitFor陳述式來離開。舉例而言，當錯誤發(fā)生時可以將ExitFor陳述式放在If...Then...Else陳述式或是SelectCase陳述式中的True陳述式區(qū)塊，它是專門用來檢查此錯誤的。如果沒有錯誤發(fā)生，If...Then...Else陳述式的值為False，則循環(huán)會像預期一樣的執(zhí)行。

1ppt課件24-3VBA應用簡例-以程序來判斷星座我們以輸入日期中的「月」和「日」的資料來判斷，因為是程序，必須以選取的儲存格的日期來做，輸入如下程序，并將結(jié)果放在此儲存格的右一格。Step1：輸入程序后，都沒有紅色警戒(錯誤語法)，先存檔。1ppt課件24-3VBA應用簡例-以程序來判斷星座Step2：在A3儲存格輸入「1990/5/2」，執(zhí)行看看。Step3：糟了個糕，有錯誤，按[偵錯]鈕。1ppt課件24-3VBA應用簡例-以程序來判斷星座Step4：原來是最后一行打錯了，應該是ActiveCell。1ppt課件24-3VBA應用簡例-以程序來判斷星座Step4：原來是最后一行打錯了，應該是ActiveCell。1ppt課件24-3VBA應用簡例-以程序來判斷星座Step5：修改完畢，繼續(xù)[執(zhí)行]。1ppt課件24-3VBA應用簡例-以程序來判斷星座Step6：果然在B3儲存格顯示了「金牛座」。Step7：如果有人不清楚此程序的功能，想試試看，但在A4輸入了「abc」。Step8：執(zhí)行結(jié)果為「型態(tài)不符合」的錯誤，按[偵錯]鈕。1ppt課件24-3VBA應用簡例-以程序來判斷星座Step9：因為year這個函數(shù)必須使用日期型態(tài)資料為自變量。1ppt課件24-3VBA應用簡例-以程序來判斷星座Step10：所以在用year函數(shù)前，加入先判斷是否為有效日期，不是則出現(xiàn)警告訊息，結(jié)束程序。1ppt課件24-3VBA應用簡例-以程序來判斷星座Step11：因為已經(jīng)執(zhí)行到這里，更正錯誤后繼續(xù)執(zhí)行也會一直出現(xiàn)錯誤，所以我們按[重新設(shè)定]，從頭再執(zhí)行一次。Step12：結(jié)果如下，出現(xiàn)日期錯誤訊息。1ppt課件24-3VBA應用簡例-以函數(shù)來判斷閏年判斷閏年的方法如下：公元年，被4整除？no->不是閏年

yes，被100整除？-no->是閏年 yes，被400整除？no->不是閏年 yes->是閏年Step1：如果我們關(guān)閉了程序視窗，只要在[項目視窗]上按[檢視程序碼]即可。1ppt課件24-3VBA應用簡例-以函數(shù)來判斷閏年Step2：插入一函數(shù)，并輸入一參數(shù)為日期型態(tài)，取參數(shù)的「年」資料，按判斷閏年的邏輯來寫出下列程序碼，跟上一題一樣，先檢查是否為有效日期。1ppt課件24-3VBA應用簡例-以函數(shù)來判斷閏年Step3：在A5輸入「2001/1/1」，選取