《EXCEL-VBA基础》由会员分享，可在线阅读，更多相关《EXCEL-VBA基础（17页珍藏版）》请在金锄头文库上搜索。
1、財務工程資訊系統利用VBA設計選擇權交易策略表單開啓Visual Basic編輯器Visual Basic編輯器的視窗結構程式碼 視窗屬性 視窗專案 總管模組及專案o模組是記錄巨集的工作表n例如錄製的巨集即會建立在名為Module1的模組中o專案是模組的組合n包含模組、自訂表單、物件類別模組、Excel物件、活頁簿、工作表、圖表工作表程式碼視窗的視窗結構與內容編輯專案下拉式選單 顯示目前選取的 巨集名稱物件下拉式選單 顯示欲選取的物 件分割線 同一程式碼視窗 中若有多個巨集 ,分割線將自動 產生,以便將不 同巨集區分出來VBA的基本用語及語法o巨集這種程式在VBA的世界中稱為程序o對於使用Ex
2、cel這件事來說，活頁簿、工作 表、儲存格是必要的Excel操作要素，對於 VBA而言，這樣的要素稱為物件o屬性是物件的一部份，也可將屬性當作 規格VBA的基本用語及語法o查詢屬性的值nmyName = Worksheets(1).Namen 變數 = 物件 . 屬性o變更屬性的值n物件.屬性 = 屬性的值nWorksheets(1).Name = “曾曉萍”VBA的基本用語及語法o方法的語法n物件.方法nUserForm1.shown物件.方法 引數nWorksheets.Add After:=Worksheets(2)o使用容器概念的陳述式nWorkbooks(“Book1.xls”).W
3、orksheets(“Sh eet1”).Range(“A1”).Value = “VBA”VBA的基本用語及語法顯示Range屬性的語法提示清單中顯示相對於Range物件 可用的屬性及方法VBA的基本用語及語法o變數是屬性的值或計算結果o變數的命名規則n第一字元必需使用英文字母n名稱的長度不可以超過255字元n不能是VBA的關鍵字n不能使用空白、句點(.)、驚嘆號(!)或&$#等 字元n不能在相同層次範圍中使用重複的名稱VBA的基本用語及語法o變數宣告nDim陳述式nPrivate陳述式nPublic陳述式(變數能被所有模組的程序使用)o宣告變數的資料型態nDim 變數 As 資料型態o宣告
4、多個變數nDim 變數1 As 資料型態, 變數2 As 資料型態在Excel VBA中使用工作表函數o在VBA中使用工作表函數要用到Application物 件、WorksheetFunction物件o在Excel VBA中使用MAX工作函數nSub SearchMax()Dim myMax As LongmyMax = Application.WorksheetFunction.Max(Range(“B1:D10”).Value)MsgBox “最大值是:” & myMax & “。” End SubIfThenElse陳述式oIf.Then.Else 陳述式會根據條件式的值，而執行指定
5、的陳述式或一個區塊的陳述式。 o如果條件式為 True 則執行陳述式n當條件式為 True 時，若只要執行一個陳述式，則您可以使用 單行的 If.Then.Else 語法。單行語法，可省略了 Elseo當條件式為 True，執行某些陳述式；條件式為 False， 執行其餘的陳述式 n使用 If.Then.Else 陳述式可以定義兩個可執行的陳述式區塊 ：其中一個區塊會在條件式為True 時執行；而另一個區塊會 在條件式為 False 時執行。最後要以End If結束。MsgBox函數的語法oMsgBox(prompt, buttons , title , helpfile, context)
6、nprompt必要引數。做為顯示在對話方塊中之訊息的字串運算 式。nbuttons選擇性引數。數值運算式，用來指出顯示按鈕的數 目及形式，使用的圖示樣式，預設按鈕為何，以及訊息方塊的 強制回應等。如果沒有指定，則 buttons 的預設值是 0。ntitle選擇性引數。顯示在對話方塊標題列中的字串運算式。 如果沒有 title，則將應用程式的名稱放在標題列中。nhelpfile選擇性引數。用來辨識提供給對話方塊文字感應說明 的說明檔案的字串運算式。如果指定了 helpfile，則也必須 指定 context。ncontext選擇性引數。數值運算式，由說明檔案的作者來指 定適當的說明主題的說明主
7、題代碼 。如果指定了 context， 則也必須指定 helpfile。Sub ClearAllData()Dim myBtn As IntegerDim myMsg As String, myTitle As StringmyMsg = “刪除所有資料？“myTitle = “確認刪除資料“myBtn = MsgBox(myMsg, vbYesNo + vbExclamation, myTitle)If myBtn = vbYes ThenWorksheets(“Sheet1“).ActivateCells.ClearContentsRange(“E1“) = “會員名冊“Range(“A2“) = “編號“Range(“B2“) = “會員姓名“Range(“C2“) = “住址“Range(“D2“) = “TEL“Range(“E2“) = “性別“Range(“F2“) = “入會日“End If End Sub
