设计一个EXCEL本身没有内建的函数或副程式.pptVIP

第20章 VBA What is VBA? Visual Basic for Application (VBA) 設計一個Excel本身沒有內建的函數或副程式，開發巨集，或是設計成自動化資訊系統，如會計資訊系統等等。 語法基礎同 Visual Basic 有些功能被拿掉，Ex: 轉成執行檔、製作ActiveX元件 What is VBA? (cont’d) Sub 函數或程序名稱( ) Dim x as ….. Dim y as ….. ..... x=……. y=……. ..... End Sub 巨集實例 Sub UseFunction() Dim myRange As Range Set myRange = Worksheets(Sheet1).Range(“B3:E18) answer = Application.WorksheetFunction.Min(myRange) MsgBox answer End Sub VBA編輯環境 ”工具/巨集/Visual Basic編輯器”或按Alt+F11。 VBA編輯環境 (cont’d) 選取專案名稱 (Ex: VB Project)，按右鍵，設定此專案的屬性，可設定密碼。 Function or Subroutine 執行 ”插入/程序”。 執行巨集 “Alt+F8”，開啟巨集交談窗，選取一個巨集名稱來執行。 Function or Subroutine 實例 Function or Subroutine 實例 選取任一儲存格，按一般工具列上的”插入函數”鈕，在”插入函數”交談窗中，選取類別為「使用者定義」類別。 VBA基本結構 Excel中常見的物件有按鈕、儲存格範圍、工作表等等，在程式中為了使用方便，將同型態的物件集合在一起，稱為物件集，其關鍵字為英文的複數型態，如Workbooks, Worksheets 例如想在 test.xls 的sheet1工作表中的B1儲存格放入數值8，可以這樣寫： Workbooks(“test.xls”).Worksheets(“sheet1”).Range(“B1”).Value=8 VBA基本結構 (cont’d) 在一般工具列上按瀏覽物件，可看到所有的物件類型。 VBA基本結構 (cont’d) 按右鍵，執行快顯功能表中的”說明”。 重要物件-Range Range(arg) 傳回代表單個儲存格或多個儲存格的 Range 物件，其中 arg 為範圍名稱。 Worksheets(Sheet1).Range(“B1).Value =Worksheets(Sheet1).Range(A6).Value Worksheets(1).Range(“C3:D4”).ClearContents 常用方法: ClearContents, Merge, UnMerge, Copy, PasteSpecial 常用屬性: Value, Formula, Count, Row, Column 重要物件-Cells 可用 Cells(row, column) 傳回單個儲存格，其中 row 為列索引，column 為欄索引。 Worksheets(1).Cells(1, 1).Value = 24 ActiveSheet.Cells(2, 1).Formula = =Sum(B1:B5)“ VBA基本結構-事件 活頁簿或工作表上的常用事件如下。 /kb/291294/zh-tw 使用表單 執行”插入/自訂表單” 使用表單 (cont’d) 每次開啟此活頁簿檔案時就自動執行此表單 Private Sub Workbook_Open() Load UserForm1 UserForm1.Show End Sub References Excel VBA 功能索引式參考手冊 .tw/exep/prod/booksfile.php?item=0010287112 * * 巨集 Public Function sumX(x As Integer) As Integer Dim i As Integer Dim temp As Integer temp = 0 For i = 1 To x temp = temp + i Next i sumX = temp End Function 在模組內新增～～～ Application Workbook Worksheet Range