认识VBA及其应用.ppt

VBA基本結構-物件式導向語法-方法 ?方法 除了用屬性來改變物件外，還可以使用方法來要求物件做一些動作，參下圖，可以看到Sheets成員中前半部的屬性都為名詞，而後半部的方法都為動詞。 * ppt课件 VBA基本結構-物件式導向語法-事件 ?事件是指要執行或驅動某一物件執行一些動作所發出的訊息，如按一下滑鼠，按一下鍵盤或開啟活頁簿，另外我們也可以透過我們寫的程式碼來驅動或導致某些事件的發生。如下，我們可以看物件可以有哪些事件。 CommandButton1(按鈕)物件，有Click(按一下)，DbClick(按二下)...等等事件。 * ppt课件 VBA基本結構-物件式導向語法-事件 工作表上的常用事件如下。 當啟動工作表、使用者變更工作表上的儲存格、或樞紐分析表變更時，即會發生工作表級的事件。當啟動活頁簿、工作表、圖表、或內嵌圖表時發生Activate事件。 Activate BeforeDoubleClick BeforeRightClick Calculate Change Deactivate FollowHyperlink PivotTableUpdate SelectionChange * ppt课件 程式的控制結構-使用 If...Then...Else 陳述式 If...Then...Else 陳述式會根據條件式的值，而執行指定的陳述式或一個區塊的陳述式。If...Then...Else 陳述式可以依據您的需要而做多階層的巢狀執行。然而，為了可讀性您可能會使用 Select Case 陳述式而不使用多階層的巢狀 ?If...Then...Else 語法。下列的範例展示了單行語法，並省略了 Else 關鍵字： Sub FixDate() myDate = #2/13/95# If myDate Now Then myDate = Now End Sub * ppt课件 程式的控制結構-使用 If...Then...Else 陳述式 If...Then...Else 陳述式會根據條件式的值，而執行指定的陳述式或一個區塊的陳述式。If...Then...Else 陳述式可以依據您的需要而做多階層的巢狀執行。然而，為了可讀性您可能會使用 Select Case 陳述式而不使用多階層的巢狀 ?If...Then...Else 語法。下列的範例展示了單行語法，並省略了 Else 關鍵字： Sub FixDate() myDate = #2/13/95# If myDate Now Then myDate = Now End Sub * ppt课件 程式的控制結構-使用 If...Then...Else 陳述式 ?若要執行多行程式碼的話，您必須使用多行的語法，而此語法須包含 End If 陳述式，如同下面範例所示： Sub AlertUser(value as Long) If value = 0 Then AlertLabel.ForeColor = Red AlertLabel.Font.Bold = True AlertLabel.Font.Italic = True End If End Sub * ppt课件 程式的控制結構-使用 If...Then...Else 陳述式 ?當條件式為 True，執行某些陳述式；條件式為 False，執行其餘的陳述式 使用 If...Then...Else 陳述式可以定義兩個可執行的陳述式區塊：其中一個區塊會在條件式為True 時執行；而另一個區塊會在條件式為 False 時執行。 Sub AlertUser(value as Long) If value = 0 Then AlertLabel.ForeColor = vbRed AlertLabel.Font.Bold = True AlertLabel.Font.Italic = True Else AlertLabel.Forecolor = vbBlack AlertLabel.Font.Bold = False AlertLabel.Font.Italic = False End If End Sub * ppt课件 程式的控制結構-使用 If...Then...Else 陳述式 ?當第一個條件式為 False 時，測試第二個條件式 當第一個條件式為 False 時，您可以在 If...Then...Else 陳述式中加上 ElseIf 陳述式來測試第二個條件