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

1、1,第20章,VBA,2,What is VBA?,Visual Basic for Application (VBA) 設計一個Excel本身沒有內建的函數或副程式，開發巨集，或是設計成自動化資訊系統，如會計資訊系統等等。 語法基礎同 Visual Basic 有些功能被拿掉，Ex: 轉成執行檔、製作ActiveX元件,3,What is VBA? (contd),Sub 函數或程序名稱( ) Dim x as . Dim y as . . x=. y=. . End Sub,巨集,4,巨集實例,Sub UseFunction() Dim myRange As Range Set myRan

2、ge = Worksheets(Sheet1).Range(“B3:E18) answer = Application.WorksheetFunction.Min(myRange) MsgBox answer End Sub,5,VBA編輯環境,”工具/巨集/Visual Basic編輯器”或按Alt+F11。,6,VBA編輯環境 (contd),選取專案名稱 (Ex: VB Project)，按右鍵，設定此專案的屬性，可設定密碼。,7,Function or Subroutine,執行 ”插入/程序”。,8,執行巨集,“Alt+F8”，開啟巨集交談窗，選取一個巨集名稱來執行。,9,Funct

3、ion or Subroutine 實例,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,在模組內新增,10,Function or Subroutine 實例,選取任一儲存格，按一般工具列上的”插入函數”鈕，在”插入函數”交談窗中，選取類別為使用者定義類別。,11,VBA基本結構,Excel中常見的物件有按鈕、儲存格範圍、工作表等等，

4、在程式中為了使用方便，將同型態的物件集合在一起，稱為物件集，其關鍵字為英文的複數型態，如Workbooks, Worksheets 例如想在 test.xls 的sheet1工作表中的B1儲存格放入數值8，可以這樣寫： Workbooks(“test.xls”).Worksheets(“sheet1”).Range(“B1”).Value=8,Application,Workbook,Worksheet,Range,12,VBA基本結構 (contd),在一般工具列上按瀏覽物件，可看到所有的物件類型。,13,VBA基本結構 (contd),按右鍵，執行快顯功能表中的”說明”。,14,重要物件-

5、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,15,重要物件-Cells,可用 Cells(row, column) 傳回單個儲存格，其中 row 為列索引，column 為欄索引。 Worksheets(1).Cells(1, 1).Value = 24 ActiveSheet.Cells(2, 1).Formula = =Sum(B1:B5)“,16,VBA基本結構-事件,活頁簿或工作表上的常用事件如下。 ,17,使用表單,執行”插入/自訂表單”,18,使用表單 (contd),每次開啟此活頁簿檔案時就自動執行此表單 Private Sub Workbook_Open() Load UserForm1 UserForm1