第十九章节VBA设计基础幻灯片.pptVIP

第十九章 VBA 設計基礎 Visual Basic 編輯器 儲存格的觀念 資料型態 IF…Then…End If Select Case…End Select Do…Loop Until Do…Loop while For…Next 對話方塊 MsgBox 讀取輸入資訊 InputBox 範圍物件 目前活頁簿 程式物件 Visual Basic 編輯器 VBA是適用於Office 2000的巨集語言 執行工具功能表巨集指令內的Visual Basic 編輯器指令 儲存格的觀念 屬性名 中文對照表 Name 使用字型的名稱 FontStyle 字型格式 Size 字型大小 Strikethrough 水平刪除線 Superscript 上標字 Superscript 下標字 OutlineFont 外框字 Shadow 陰影字 Underline 底線字 ColorIndex 字顏色 資料型態 資料型態 所佔空間 Byte 1 Bytes Integer 2 Bytes Long 4 Bytes Single 4 Bytes Double 8 Bytes Currency 8 Bytes Decimal 14 Bytes If…Then…End If If condition1 Then statements1 Else If Condition2 Then statements2 ……….. Else statementsn End if 如果condition1成立則執行此敘述 如果condition2成立則執行此敘述 如果 先前條件均不成立則執行此敘述 Select Case…End Select Select Case expression Case valuel statement1 Case value2 statement2 … Case Else Statementn End Select 如果expression等於value1則執行此敘述 如果expression等於value2則執行此敘述 如果都不等於則執行此敘述 Do…Loop Until Do…Loop Until是一種重覆迴圈 Do statement Looop Until condition 如果condition條件符合時，整個執行動作才會結束，如果condition條件一直不符合，則迴圈將一直進行 Do…Loop while Do…Loop while也是一種重覆式的迴圈，其格式如下： Do Statement Loop while Condition 如果Condition條件符合則迴路繼續進行，如此可重覆執行Statement敘述，如果Condition條件不符合則迴圈執行結束 For…Next For…Next也是一個重覆迴圈，其使用格式如下： For counter = start To end (step value) statement Next Counter 如果省略(step value) ，則每次執行迴圈之後，counter的值加1，當counter的值等於end的值，則代表迴圈結束 對話方塊 MsgBox（一） MsgBox 函數可令在螢幕上出現對話方塊，MsgBox函數的基本使用格式如下： Result = MsgBox (MsgText 〔,Buttonoptions〕 〔,Titletext〕〔,Helpfile,Context〕 MsgText是指將在對話方塊內出現的訊息 Buttonoptions是一個數值供指出對話方塊應出現那一個功能按鈕， 請參考下張投影片 Titletext是指對話方塊的標題 Helpfile是列出輔助說明檔的檔名 Context是列出物件編號 Result是儲存MsgBox函數的傳回值 對話方塊 MsgBox（二） Buttonoptions 常數名稱 值 敘述 vbOKOnly vbOKCancel vbYesNoCancel vbYesNo vbRetryCancel 0 1 3 4 5 顯示確定鈕 顯示確定和取消鈕 顯示是、否、取消鈕 顯示是和否鈕 顯示重試及取消鈕 vbCritical vbQuestionvbAbort vbExclamation 16 32 48 出現Ｘ圖示 出現？圖示 出現！圖示 vbDefaulButton1 vbDefaulButton2 vbDefaulButton3 vbDefaulButton4 0 256 512 768 第一個按鈕為預設值 第二個按鈕為預設值 第三個按鈕為