EXCEL

將數字轉為英文
將游標移向數字右方,執行巨集

' ' CHANGE NUMBER TO ENGLISH Macro ' Macro recorded 1997/10/11 by RAYMOND LEUNG ' ' Public RST As String Public number As Single Sub ASK_FOR_NUMBER() 'Dim number As Single 'number = Application.InputBox("Pls enter number?") number = ActiveCell.Offset(0, -1) CHANGE_TO_ENGLISH number End Sub Function CHANGE_TO_ENGLISH(number As Single) Dim ST As Single 'OUTPUT = "" RST = "Hong Kong Dollars " RESULT = 0 ST = 0 Select Case number Case Is >= 10000 X = CHANGE_TO_#(Val(Left(Str(Int(number)), 3))) RST = RST & " Thousand " ST = Val(Mid(Str(Int(number)), 4, 1)) If ST <> 0 Then If number - Int(number) = 0 And _ Val(Mid(Str(Int(number)), 5, 2)) = 0 Then RST = RST & " and " End If X = CHANGE_TO_#(ST) RST = RST & " Hundred " End If ST = Val(Mid(Str(Int(number)), 5, 2)) If ST <> 0 Then If number - Int(number) = 0 Then RST = RST & " and " End If X = CHANGE_TO_#(ST) End If If number - Int(number) <> 0 Then RST = RST & " and " ST = Val(Mid(Str(number), 8, 2)) ST = ST * 10 X = CHANGE_TO_#(ST) RST = RST + " Cents" End If 'MsgBox RST ActiveCell.Value = RST & " only" Case Is >= 1000 X = CHANGE_TO_#(Val(Left(Str(Int(number)), 2))) RST = RST & " Thousand " ST = Val(Mid(Str(Int(number)), 3, 1)) If ST <> 0 Then If number - Int(number) = 0 And _ Val(Mid(Str(Int(number)), 4, 2)) = 0 Then RST = RST & " and " End If X = CHANGE_TO_#(ST) RST = RST & " Hundred " End If ST = Val(Mid(Str(Int(number)), 4, 2)) If ST <> 0 Then If number - Int(number) = 0 Then RST = RST & " and " End If X = CHANGE_TO_#(ST) End If If number - Int(number) <> 0 Then RST = RST & " and " ST = Val(Mid(Str(number), 7, 2)) ST = ST * 10 X = CHANGE_TO_#(ST) RST = RST + " Cents" End If 'MsgBox RST ActiveCell.Value = RST & " only" Case Is < 1000, Is > 100 ST = Val(Mid(Str(Int(number)), 2, 1)) If ST <> 0 Then X = CHANGE_TO_#(ST) RST = RST & " Hundred " End If ST = Val(Mid(Str(Int(number)), 3, 2)) If ST <> 0 Then If number - Int(number) = 0 Then RST = RST & " and " End If X = CHANGE_TO_#(ST) End If If number - Int(number) <> 0 Then RST = RST & " and " ST = Val(Mid(Str(number), 6, 2)) ST = ST * 10 X = CHANGE_TO_#(ST) RST = RST + " Cents" End If 'MsgBox RST ActiveCell.Value = RST & " only" Case Is >= 100 X = CHANGE_TO_#(Val(Left(Str(number), 2))) 'MsgBox RST & " HUNDRED" 'ActiveCell.Value = RST End Select With Selection.Font .Name = "Times New Roman" .FontStyle = "Regular" .Size = 12 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlNone .ColorIndex = xlAutomatic End With End Function Function CHANGE_TO_#(NUM As Single) SOMETHING = False Dim A(99) A(1) = "One" A(2) = "Two" A(3) = "Three" A(4) = "Four" A(5) = "Five" A(6) = "Six" A(7) = "Seven" A(8) = "Eight" A(9) = "Nine" A(10) = "Ten" A(11) = "Eleven" A(12) = "Twelve" A(13) = "Thirteen" A(14) = "Fourteen" A(15) = "Fifteen" A(16) = "Sixteen" A(17) = "Seventeen" A(18) = "Eighteen" A(19) = "Nineteen" A(20) = "Twenty" A(30) = "Thirty" A(40) = "Forty" A(50) = "Fifty" A(60) = "Sixty" A(70) = "Seventy" A(80) = "Eighty" A(90) = "Ninety" If NUM < 20 Then 'RST = RST & " " & A(NUM) RST = RST & A(NUM) Else lwk = NUM / 10 RST = RST & A(Int(lwk) * 10) If NUM > Int(lwk) * 10 Then RST = RST & "-" & A(NUM - Int(lwk) * 10) End If End If End Function

Ａ 函數：ABS 語法：Abs(數值) 說明：傳回某一數值的絕對值。 範例： 例如：Abs(50)，則會傳回 50 例如：Abs(-50)，則會傳回 50 函數：APPACTIVATE 語法：AppActivate 標題文字 說明：啟動一個應用程式。 範例： 如：AppActivate "未命名 - 記事本" (啟動記事本 , 如果沒有標題為 "未命名 - 記事本" 的應用程式 , 則會產生錯誤) 函數：Array 語法：Array(項目1 , 項目2 , ...) 說明：建立一個未定型態的集合。 範例： 例如： Dim A As Variant A = Array("春天", "夏天", "秋天", "冬天") Print A(0) ，則會傳回 "春天" Print A(1) ，則會傳回 "夏天" 函數：ASC 語法：Asc(字串) 說明：傳回字串中第一個字元的字元碼，傳回的值從 0~255。 範例： 例如：Asc("A")，則會傳回 65 如果第一個字元是中文字的話，則傳回的值為 -32768~32767 例如：Asc("一")，則會傳回-23488 函數：ATN 語法：Atn(數值) 說明：傳回某一個數值的反正切值;這個值的單位為弧度,如果要轉成角度,只要乘上 180 / 3.1415926535897932 即可。 範例： 如：Atn(45),會傳回 1.54857776146818 (弧度) 如：Atn(45) * 180 / 3.1415926535897932,會傳回 88.7269699799434 (角度) Ｂ 函數：BEEP 語法：Beep 說明：由電腦的喇叭發出聲音。 範例： Ｃ 函數：CALL 語法：Call 副程式名稱 說明：將控制權轉移到副程式 , 當執行完畢時會將控制權一併傳回。 範例： 如： ... Call xxx , 呼叫名為 XXX 的副程式 , 當副程式執行完畢後 , 會從行標 b2 繼續執行。 b2: ... 函數：CHDIR 語法：ChDir 路徑名稱 說明：變更目前的目錄。 範例： 如：ChDir "c:\windows" 函數：CHDRIVE 語法：ChDrive 磁碟機代號 說明：變更目前的磁碟機。 範例： 如：ChDrive "C" 函數：Choose 語法：Choose(數值,項目1,項目2,...) 說明：傳回一個項目值。 範例： 例如：Print Choose(2, "春", "夏", "秋", "冬")，則會傳回 "夏" 這個字 函數：CHR 語法：Chr(數值) 說明：將所設定的數值傳回相對應的字元。 範例： 如：Chr(65)，則會傳回 A 這個字元。 函數：CLOSE 語法：Close [檔案代號] 說明：關閉由 Open 指令所開啟的檔案 ; 如果省略檔案代號 , 則會關閉所有已開啟的檔案。 範例： 如：Close 2，則會關閉代號為 2 的已開啟檔案。 如：Close，則所有已開啟的檔案全部關閉。 函數：Command 語法：Command 說明：傳回命令列的引數部份，(假如我們編譯後的程式名為 myexe.exe ) 範例： 例如：myexe abc，則在程式中使用 Command 指令時會傳回 abc 函數：CONST 語法：Const 變數 = 數值或文字 說明：將某個變數定義為常數。 範例： 如：Const x = 5 (這個定義後 , x 的內容為 5 ) 可是這和 x = 5 有什麼不同 ? 1.後者是將 5 放入變數 x 中 , 可以更改 x 的內容 , 執行速度較慢。 2.前者是將 x 視為 5 這個數字而非變數 , 不可以更改內容 , 執行速度較快。 函數：COS 語法：Cos(數值) 說明：傳回某一個數值的餘弦值;這個值的單位為弧度,如果要轉成角度,只要乘上 180 / 3.1415926535897932 即可。 範例： 如：Cos(45),會傳回 0.52532198881773 (弧度) 如：Cos(45) * 180 / 3.1415926535897932,會傳回 30.0987328446746 (角度) 函數：Createobject 語法：Createobject(類別名稱) 說明：建立一個 ActiveX 物件。 範例： 函數：CURDIR 語法：CurDir[(磁碟機)] 說明：指定目前磁碟機的所在位置。 範例： 例如：CurDir，則會傳回 "c:\windows" (注意 : 這個值會視當時的路徑而有所不同)。 例如：CurDir("d") ，則會傳回 "d:\vb60" (注意 : 這個值會視當時的路徑而有所不同)。 函數：CVErr 語法：CVErr(數值) 說明：傳回一個錯誤代碼訊息。 範例： 例如：CVErr(10)，則會傳回 "錯誤 10" 函數：DATE 語法：Date 說明：傳回目前的系統日期。 範例： 如：Date,會傳回 "1999/2/14"(注意：這個值會視當時的日期而有所不同)。 Ｄ 函數：DATE 語法：Date=日期 說明：設定系統日期。 範例： 如：Date = "1999/3/21",系統日期會變更為 1999/3/21 函數：DateAdd 語法：Date(單位,數值,日期) 說明：將"日期"加上(或減去)"數值"後傳回;至於這個"數值"的單位為何,則由"單位"來決定。 範例： 如：DateAdd("d" , 5 , "1999/02/26"),會傳回 1999/3/3 (因為 1999/2/26 加上 5 天為 1999/3/3 日) 如：DateAdd("m" , 5 , "1999/02/26"),會傳回 1999/7/26 (因為 1999/2/26 加上 5 個月為 1999/7/26 日) 如：DateAdd("yyyy" , -2 , "1999/02/26"),會傳回 1997/2/26 (因為 1999/2/26 減 2 年為 1997/2/26 日) 函數：DateDiff 語法：DateDiff(單位,日期1,日期2) 說明：傳回 "日期1" 與 "日期2" 相差多久。 範例： 如：DateDiff("d" , "1999/02/18" , "1999/12/31"),會傳回 316 (因為 1999/12/31 減 1999/02/18 為 316 天) 如：DateDiff("m" , "1999/02/18" , "1999/12/31"),會傳回 10 (因為 1999/12/31 減 1999/02/18 為 10 個月) 如：DateDiff("yyyy" , "1999/02/18" , "2000/12/31"),會傳回 1 (因為 2000/12/31 減 1999/02/18 為 1 年) 函數：DATEPART 語法：DatePart(型態,日期) 說明：指定傳回一特定日期的某一個部份。 範例： 如：DatePart("yyyy",Now),會傳回 1999。(因為今年為 1999 年) 關於型態的關鍵字除了上述的 yyyy 之外 , 還有下列幾個 ： 型態 說明 q 季 m 月 y 一年中的第幾天 d 日 w 一週中的第幾天 ww 一年中的第幾週 h 時 n 分 s 秒 函數：DATESERIAL 語法：DateSerial(年,月,日) 說明：將年月日組合後傳回。 範例： 如：DateSerial(1999,2,18),會傳回 1999/2/18 函數：DATEVALUE 語法：DateValue("日期") 說明：將某一個含有日期格式的字串轉成日期格式後傳回。 範例： 如：DateValue("1989/1/19"),會傳回 1989/1/19 函數：DAY 語法：Day(日期) 說明：傳回一特定日期的 "日" 部份。 範例： 如：Day("1999/02/14"),會傳回 14。 函數：DDB 語法：DDB(資產初始成本,資產最終成本,期間,週期,速率) 說明：傳回某一資產的折舊值。 範例： 函數：DECLARE 語法：Declare Sub 函數名稱 Lib DLL函數庫 (參數) Declare Function 函數名稱 Lib DLL函數庫 (參數) As 型態 說明：宣告外部的副程式。 範例： 如： Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long 上述的範例中 : 1.宣告 mciExecute 這個函數。 2.該函數放在 winmm.dll 這個 .DLL 檔案中。 (如果這個 DLL 檔不是放在 Windows 或 Windows\System 目錄中 , 則必須指定完整的路徑名稱) 3.該函數需要傳入一個字串 , 並且處理完畢後回傳一個長整數型態的值。 函數：DEFTYPE 語法：Def???? 說明：定義變數的資料型態。 範例： 如： DefInt a (往後以 a 開頭的變數都是整數) Sub ..... Dim ax (因為 DefInt 的原因 , 所以變數 ax 為整數) Dim ab As String (因為有定義型態 , 所以變數 ab 不受 DefInt 影響) ... End Sub 除了 DefInt 以外還可以使用下列這個： DefBool 佈林型態(Boolean) DefByte 位元組型態(Byte) DefLng 長整數型態(Long) DefCur 貨幣型態(Currency) DefSng 單精度浮點數值(Single) DefDbl 倍精度浮點數值(Double) DefDate 日期型態(Date) DefStr 字串型態(String) DefObj 物件型態(Object) DefVar 未定型態(Variant) 函數：DeleteSetting 語法：DeleteSetting 應用程式名稱,區段名稱,關鍵字 說明：刪除一個應用程式的註冊區。 範例： 函數：DIM 語法：Dim 變數名稱 As 資料型態 Dim 變數名稱(數值) As 資料型態 說明：宣告一個陣列或是變數。 範例： 如：Dim x As String,宣告變數 x 為字串型態。 如：Dim x(5) As String,宣告變數 x 為一維字串陣列 , 範圍為 0 到 5(因為沒有設定啟值,所以內定為 0)。 如：Dim x(3 to 9) As String,宣告變數 x 為一維字串陣列 , 範圍為 3 到 9 如：Dim x(1 to 3,1 to 5) As String,宣告變數 x 為二維字串陣列 , 範圍為 (1,1) 到 (3,5)。 函數：Dir 語法：Dir(檔名) Dir 說明：傳回符合屬性條件的目錄或檔案名稱，當您第一次搜尋時必須設定條件，而第二次以後則只須要使用 Dir 即可傳回該目錄或檔案名稱。 範例： 例如：(假設我們要傳回 c:\windows 下全部的 EXE 檔) x = Dir("c:\windows\*.exe"): Print x Do If x = "" Then Exit Do x = Dir: Print x Loop 函數：DO ... LOOP 語法：Do ... Loop 說明：重覆執行某一段程式 , 這個陳述句有下列 3 種用法 : 範例： Do ... If x = 1 Then Exit Do (如果 x = 1 就離開 Do 迴圈) Loop Do While x = 1 (如果 x = 1 就執行迴圈) ... Loop Do Until x = 1 (如果 x = 1 就離開迴圈) ... Loop 這個陳述句適用於不確定次數的迴圈 , 如果您已經確定迴圈次 , 那麼使用 For ... To ... Next 指令。 函數：DOEVENTS 語法：Doevents 說明：將控制權交還給作業系統,以便讓作業系統能處理其他的應用程式。 範例： Ｅ 函數：END 語法：End 說明：結束程式或區塊。 End 結束程式執行 End Function 結束 Function 區塊 End Sub 結束 Sub 區塊 End If 結束 If 區塊 End Select 結束 Select Case 區塊 範例： 函數：ENUM 語法：Enum 名稱 成員=數值 ... End Enum 說明：宣告一個物件集合(這個指令只可以用在一般模組中 , 並且這些成員的值在執行階段是唯讀的)。 範例： 如： 1.在一般模組的開頭定義如下： Enum MyColor Red = &HFF Blue = &HFF0000 Green = &HFF00 End Enum 2.在任意模組或任意 Sub 或任意 Function 中使用： Sub ... ... x = MyColor.Red ... End Sub 函數：Environ 語法：Environ(變數名稱或數值) 說明：傳回作業系統的環境變數。 範例： 例如：Environ(1)，則會傳回 PROMPT=$p$g (請注意：這個值會有所不同) 函數：EOF 語法：EOF(檔案代號) 說明：傳回某個檔案是否處理檔尾。 範例： 例如：If Eof(1)=True Then，則若檔案代號為 1 的檔案處於檔尾，則繼續執行 函數：ERASE 語法：Erase 變數名稱 說明：釋放變數陣列的空間。 範例： 如： Dim x(1 to 100) ... Erase x,將陣列 x 釋放。 函數：ERROR 語法：Error 數值 說明：產生一個錯誤 , 就好像真得發生錯誤一樣。 範例： 如：Error 255 , 會產生代號 255 的錯誤。 函數：ERROR 語法：Error(數值) 說明：傳回某個數值的錯誤訊息文字。 範例： 例如：Error(10)，則會傳回 "陣列長度固定或被暫時鎖定" 這些字元 函數：EVENT 語法：Event 事件名稱(參數) 說明：宣告自定的事件 , 這個事件可以用RaiseEvent 來觸發。 範例： 如：Event Eve(s as string) (定義一個名為 Eve 事件 , 觸發本事件時需傳入一個字串) 函數：EXIT 語法：Exit 說明：脫離程式區塊。 範例： Exit For　　脫離 For 迴圈 Exit Do　　脫離 Do 迴圈 Exit Sub　　脫離 Sub 副程式 Exit Function 脫離 Function 副程式 函數：Exp 語法：Exp(數值) 說明：傳回 e (自然對數)的某次方。 範例： 例如：Exp(2)，則會傳回 7.38905609893065 Ｆ 函數：FILEATTR 語法：FileAttr(檔案代號) 說明：傳回檔案的開啟模式。 檔案模式 值 Input 1 Output 2 Random 4 Append 8 Binary 32 範例： 如： Open "c:\temp\xxx" for output as #1 DeBug.Print FileAttr(1) 會傳回 2 ,因為開啟模式為 Output 所以會傳回 2 函數：FILECOPY 語法：FileCopy 原始檔,目的檔 說明：複製某一個檔案。 範例： 如果要將 c:\test.dat 複製到 c:\temp\xx.dat 如：FileCopy "c:\test.dat","c:\temp\xx.dat"。 函數：FILEDATETIME 語法：FileDateTime(檔案名稱) 說明：傳回某一個檔案的日期與時間。 範例： 如：FileDateTime("c:\windows\win.ini"),會傳回 1997/7/3 04:19:46 PM (這個值可能會不一樣) 函數：FILELEN 語法：FileLen(檔案名稱) 說明：傳回某一個檔案的長度，單位為位元組(Byte)。 範例： 如：FileLen("c:\windows\win.com") 會傳回 24791 函數：FOR ... TO ... NEXT 語法：For 變數 = 啟始值 To 終止值 Next 變數 說明：執行固定次數的迴圈。 範例： 如： For i = 1 To 30 (執行 30 次迴圈) ... Next i 函數：FOR EACH ... NEXT 語法：For Each 元素 In 集合 ... Next 說明：逐一傳回集合或是陣列中的元素。 範例： 如： Dim a(1 To 10) As String Dim i As Integer Dim s As Variant '必須是 Variant 型態 For i = 1 To 10: a(i) = Chr(64 + i): Next i '逐一填入 "A" "B" "C" ... 到陣列中 For Each s In a Print s '逐一顯示 "A" "B" "C" ... Next s 函數：Format 語法：Format(運算式,格式) 說明：傳回一個格式化後的字串。 範例： 例如：Format(12345, "###,###")，則會傳回 12,345，其他的格式可以參考下列，除了這些字有特殊意義外，其他字元都會被傳回： # 傳回一個數值 yy 傳回兩位數的年 yyyy 傳回四位數的年 mm 傳回月份 dd 傳回日 hh 傳回小時 mm 傳回分鐘 ss 傳回秒 函數：FreeFile 語法：FreeFile 說明：當我們要以 open 指令開啟一個檔案時需要一個檔案代號，您可以利用這個指令來傳回可以使用的檔案代號。 範例： 例如：x = FreeFile，則會傳回一個整數值 (如：1 , 2 , 3 ...) 函數：FUNCTION 語法：Function 名稱(參數) As 型態 說明：宣告函數名稱。 範例： 如： Function Add(a as integer) as integer (宣告一個名為 Add 的函數) ... Add= ... (將處理的結果放在 Add 中 , 以便將處理過的值傳出去) End Function 函數：FV 語法：FV(利率,期數,每期付款金額) 說明：傳回定期定額支付而且固定利率下的年金未來值。 範例： Ｇ 函數：GET 語法：Get #檔案代號 , 記錄數 , 變數 Get #檔案代號 , 位元組數 , 變數 說明：讀取檔案到變數中(這個指令和 Put 相應)。 範例： 如：Get #1 , 5 , x (讀取代號 1 的已開啟檔到變數 x 中)。 如果檔案開啟的模式為隨機檔 , 則是讀取第 5 筆記錄。 如果檔案開啟的模式為二進制檔 , 則是從第 5 個位元組開始讀取。 函數：GetAllSettings 語法：GetAllSettings(應用程式名稱,區段名稱) 說明：傳回註冊區中某個應用程式的設定值。 範例： 函數：GETATTR 語法：GetAttr(檔名) 說明：傳回一個檔案的屬性。 這個屬性值是下列值的總合 : 0 一般 1 唯讀 2 隱藏 4 系統 16 資料夾 32 保存檔 範例： 如：GetAttr("c:\windows\system.dat"), 會傳回 3 (因為這個檔案是唯讀及隱藏檔,所以傳回 3 )。 函數：GetAutoSaveSettings 語法：元件.GetAutoSaveSettings 說明：傳回某個元件的註冊資訊。 範例： 函數：GetObject 語法：GetObject(檔名,類別) 說明：傳回檔案中的某個 ActiveX 物件。 範例： 函數：GetSetting 語法：GetSetting(應用程式名稱,區段名稱,主設定名稱) 說明：傳回註冊區中某個應用程式的主設定值。 範例： 函數：Gosub ... Return 語法：GoSub 標籤 ... Return 說明：程式跳到標籤後繼續執行 , 執行完後返回(這個指令是為了和以前的 Basic 相容 , 建議您使用 Sub 或 Function 方式來設計)。 範例： 如： Gosub Ext nt: ... Ext: ... Return 程式跳到 Ext 後繼續執行 , 執行完後會回到 nt 繼續執行。 函數：GOTO 語法：GoTo 標籤 說明：程式跳到標籤後繼續執行。 範例： 如： Goto Ext ... Ext: ... 程式跳到 Ext 後繼續執行。 Ｈ 函數：HEX 語法：Hex(數值) 說明：傳回某一個數值的十六進制碼。 範例： 如：Hex(255) 會傳回 FF 函數：HOUR 語法：Hour(時間) 說明：傳回一特定時間的"小時"部份。 範例： 如：Hour("23:17:35"),會傳回 23 。 Ｉ 函數：IF ... THEN ... ELSE 語法：If 條件式 Then 程式1 Else 程式2 說明：如果條件式成立則執行程式1 否則執行程式2 。 範例： 如：If x=1 Then y="男" else y="女" (如果 x=1 則 y="男" , 否則 y="女") 您也可以寫成 : If x = 1 Then y = "男" Else y = "女" End If 函數：IIf 語法：IIf(條件 , 值1 , 值2) 說明：當 "條件" 成立時會傳回 "值1" 的值,否則傳回 "值2"。 範例： 如: x=IIf(i<>0 , 10 , 20),相當於下列的程式: If i<>0 then x=10 else x=20 當 i<>0 則 x 等於 10,否則 x=20 函數：IMEStatus 語法：IMEStatus 說明：傳回目前的輸入法狀態，如果目前處於中文輸入狀態則會傳回 1 否則會傳回 2 範例： 函數：Implements 語法：Implements 類別名稱 說明：定義一個物件類別名稱(只能在物件類別模組中使用) 範例： 函數：INPUT 語法：Input(字元數,檔案代號) 說明：讀取某一檔案中的幾個字元。 範例： 如：InputBox(5,#1),會傳回檔案代號 1 中的 5 個字元。 函數：Input # 語法：Input #檔案代號,變數 說明：讀取循序檔中的資料。 範例： 例如：Input#1,x，則會讀取檔案代號 1 的資料 函數：INPUTBOX 語法：InputBox(顯示文字[,標題] [,內定值] [,水平座標] [,垂直座標] [,說明檔,主題代碼]) 說明：顯示一個輸入框，並讓使用者按下按鍵後傳回所輸入的內容。 範例： 如：x = InputBox("請重新輸入 !!!", "警告", "5"),會出現像這樣的對話框： <入圖0-1> 函數：INSTR 語法：Instr( [開始位置] , 字串1 , 字串2 , [比對模式] ) 說明：傳回 "字串2" 在 "字串1" 中出現的位置,如果找不到,則會傳回 0 變數 "開始位置" 是指定要從哪一個字元開始搜尋,如果省略的話,那內定值為 1 變數 "比對模式" 可以讓您指定二元比對(0),文字比對(1),資料庫比對(2),如果省略的話那內定為 0 範例： 如：InStr("this is a book", "i"),會傳回 3(因為 i 這個字元第一次出現在第3個字元) 如：InStr(4,"this is a book", "i"),會傳回 6(因為從第 4 個字元開始搜尋,會找到第 6 個字元的 i) 函數：INT 與 FIX 語法：Int(數值) Fix(數值) 說明：傳回某一個數值的整數部份,函數 Int 與 Fix 最大的不同點在於負數部份;Int 會無條件去除小數部份,Fix 會去掉小數後增加 1,所以,如果您只是要單純的去掉小數值的話,那麼建議您使用 Fix。 範例： 如：Int(4.1), Fix(4.1),這兩個函數都會傳回 4 如：Int(-4.1), Fix(-4.1),則函數 Int 會傳回 -5,函數 Fix 會傳回 -4 函數：IPmt 語法：IPmt(每期的利率,付款週期,付款總期數,付款的現值) 說明：傳回定期定額支付而且固定利率的年金。 範例： 函數：IRR 語法：IRR(陣列,利率) 說明：傳回一個現金流量的實質報酬率。 範例： 函數：ISARRAY 語法：IsArry(變數) 說明：傳回某一變數是否為陣列。 範例： 如： Dim i(1 To 10) As Integer, j Debug.Print IsArray(i),會傳回 True(因為變數 i 是陣列) Debug.Print IsArray(j),會傳回 False(因為變數 j 不是陣列) 函數：ISDATE 語法：IsDate(值) 說明：傳回某一特定值是否可以轉換成日期格式。 範例： 如：IsDate("1999/01/19"),會傳回 True 如：IsDate("12345"),會傳回 False 函數：ISEMPTY 語法：IsEmpty(變數) 說明：傳回某一變數是否已經初始化。 範例： 如： Dim x, y x = 50 Debug.Print IsEmpty(x),會傳回 False(因為變數 x 宣告後有指定 50 這個值) Debug.Print IsEmpty(y),會傳回 True(因為變數 y 只宣告並沒有指定任何值) 函數：ISERROR 語法：IsError(值) 說明：傳回某一特定值是否為錯誤值，若這個特定值為一個錯誤碼，那麼會傳回True。 範例： 函數：ISMISSING 語法：IsMissing(變數) 說明：傳回選擇性參數中,該變數是否有被傳入(只適用於經由 Optional 宣告的變數)。 範例： 如： Call test(, 50) ... Sub test(Optional x, Optional y) Debug.Print IsMissing(x),會傳回 True Debug.Print IsMissing(y),會傳回 False End Sub 函數：ISNULL 語法：IsNull(變數) 說明：傳回某一變數是否沒有含有任何資料。 範例： 如：i=Null :Debug.Print IsNull(i),會傳回 True 如：i=5 :Debug.Print IsNull(i),會傳回 False 函數：ISNUMERIC 語法：IsNumeric(變數) 說明：傳回某一變數是否為數值。 範例： 如：i = 5: Debug.Print IsNumeric(i),會傳回 True 如：i = "a": Debug.Print IsNumeric(i),會傳回 False 函數：ISOBJECT 語法：IsObject(變數) 說明：傳回某一變數名稱是否為物件名稱。 範例： 如：IsObject(Command1),會傳回 True(因為在 Form 上放一個名為 Command1 的元件)。 如：IsObject(x),會傳回 False(因為並沒有名為 x 的物件)。 Ｋ 函數：KILL 語法：Kill 檔案名稱 說明：刪除檔案。 範例： 如：Kill "d:\test.txt" Ｌ 函數：LBound 語法：LBound(陣列名稱) 說明：傳回某陣列的最小索引值。 範例： 例如： Dim x(5 To 10) LBound(x)，則會傳回 5 函數：LCASE 語法：LCase(字串) 說明：將字串的內容全部轉成小寫後傳回。 範例： 如：Ucase("AbCd") 會傳回 abcd 函數：LEFT 語法：Left(字串,長度) 說明：傳回字串的左邊幾個字元。 範例： 如：Left("abcdefg",4) 會傳回 abcd 這四個字元。 如果設定的長度比字串的總字數多,則會全部傳回。 如：Left("abcdef", 8) 會傳回 abcdef 這六個字元。 函數：LEN 語法：Len(字串) 說明：傳回字串的長度，這個長度為該字串的總字數。 範例： 如：Len("abcde") 會傳回 5 如：Len("第1名") 會傳回 3 函數：LET 語法：Let 變數 = 值 說明：將值指定給變數 ; 其實關鍵字 Let 是可以省略的 , 這個陳述句相當於 變數 = 值。 範例： 如：Let x = 100 , 則變數 x 的內容為 100 如：x = 100 , 則變數 x 的內容也是 100 函數：Line Input# 語法：Line Input #檔案代號,變數 說明：讀取循序檔中的資料(本函數一次讀取一列 , 而 Input # 會因為逗號隔開) 範例： 例如：Line Input#1,x，則會讀取檔案代號 1 的資料 函數：LOAD 語法：Load 物件名稱 說明：將物件載入記憶體(您可以參考 UnLoad 陳述句)。 範例： 如：Load Form2 , 將 Form2 載入記憶體中。 函數：LOADPICTURE 語法：LoadPicture(檔名) 說明：將特定圖檔載入到元件中。 範例： 如：Picture1.Picture = LoadPicture("d:\x1.jpg"),會將 d:\x1.jpg 這個檔案載入到 Picture1 這個元件中。 函數：Loc 語法：Loc(檔案代號) 說明：用 Open 指令開啟檔案後，可以用這個指令來傳回目前讀寫的位置。 範例： 函數：Lock , UnLock 語法：Lock #檔案代號 , 開始筆數 To 結束筆數 UnLock #檔案代號 , 開始筆數 To 結束筆數 說明：鎖定或解除鎖定某些記錄(只有隨機及二進制模式有效) , 當您使用 Lock 之後 , 必須要使用 UnLock 解除鎖定 , 否則會發生不可預期的錯誤。 範例： 如： Lock #1 , 5 To 10 ... UnLock #1 , 5 To 10 將記錄 5 到 10 鎖定 (如果是二進制模式則鎖定第 5 位元組到第 10 位元組) 函數：LOF 語法：LOF(檔案代號) 說明：用 Open 開啟後，可以用這個指令傳回檔案的大小。 範例： 函數：Log 語法：Log(數值) 說明：傳回一個以 1 為基底的對數值。 範例： 例如：Log(100)，則會傳回 4.60517018598809 如果您需要以 10 為基底的話則可以使用下列公式來轉換： Log(數值) / Log(10) 函數：LSET 語法：Lset 字串 1 = 字串 2 說明：將字串 2 放入字串 1 中 , 並且往左對齊。 範例： 如： Dim c As String * 4 LSet c = "abc" (變數 c 的內容為 "abc " ) 函數：LTRIM,RTRIM,TRIM 語法：LTrim(字串)，RTrim(字串)，Ｔrim(字串) 說明：將字串的左邊(LTrim)或右邊(RTrim)或左右(Trim)空白去除後傳回。 範例： 如：LTrim(" 測試 ")會傳回 "測試 "。 如：RTrim(" 測試 ")會傳回 " 測試"。 如：Trim(" 測試 ")會傳回 "測試"。 Ｍ 函數：MakeCompiledFile 語法：物件.MakeCompiledFile 說明：將物件編譯成控制項或執行檔或 DLL 檔。 範例： 函數：MID 語法：Mid(字串,啟始位置[,長度]) 說明：從啟始位置開始傳回字串的某幾個字元 , 如果省略長度 , 則會一直傳回到字串尾端。 範例： 如：Mid("ABCDEFGH",3,4)，會傳回 "CDEF"。(從第 3 個字元開始傳回 , 共傳回 4 個字元) 如：Mid("ABCDEFGH",3)，會傳回 "CDEFGH"。(從第 3 個字元開始傳回 , 一直到最後) 函數：MID 語法：Mid(原字串,開始位置,長度)=取代字串 說明：將原字串中的某幾個字元改成取代字串。 範例： 如：x = "abcdefgh": Mid(x, 5, 3) = "---" , 則變數 x 變成 "abcd---h"(因為將變數 x 的第 5 個字到第 7 個字改成"---") 函數：MINUTE 語法：Mintue(時間) 說明：傳回一特定時間的"分"部份。 範例： 如：Minute("23:17:35"),會傳回 17 。 函數：MIRR 語法：MIRR(現金流量陣列,支付利息利率,再投資的利息利率) 說明：傳回現金流量的實質報酬率。 範例： 函數：MKDIR 語法：MkDir 路徑名稱 說明：建立一個新的目錄。 範例： 如：MkDir "c:\temp" 函數：MONTH 語法：Month(日期) 說明：傳回一特定日期的"月"部份。 範例： 如：Month("1999/02/14"),會傳回 2 。 函數：MonthName 語法：MonthName(代號) 說明：傳回月份的名稱。 範例： 例如：MonthName(2)，則會傳回'二月' 函數：MSGBOX 語法：MsgBox(顯示文字[,按鍵型態] [,標題] [,說明檔,主題代碼]) 說明：顯示一個訊息框，並讓使用者按下按鍵後傳回所按的按鍵。 按鍵型態有下列幾種常用的組合： 按鍵型態 說明 vbOKOnly 只顯示一個確定鍵 vbOKCancel 顯示確定鍵與取消鍵 vbAbortRetryIgnore 顯示異常終止鍵與重試鍵與略過鍵 vbYesNoCancel 顯示是鍵與否鍵與取消鍵 vbYesNo 顯示是鍵與否鍵 vbRetryCancel 顯示重試鍵與取消鍵 vbCritical 顯示 圖示 vbQuestion 顯示 圖示 vbExclamation 顯示 圖示 vbInformation 顯示 圖示 vbApplicationModal 必須回應此對話框後,程式才能繼續執行。 vbSystemModal 必須回應此對話框後,其他應用程式才能繼續執行。 範例： 如：x = MsgBox("您確定嗎 ?", vbYesNo, "警告") Ｎ 函數：NAME 語法：Name 舊檔名 As 新檔名 說明：將舊檔名改成新檔名。 範例： 如：Name "a.tmp" As "b.tmp" (將檔名 a.tmp 改成 b.tmp) ※您可以利用這個陳述句來達到搬移檔案的目的： 如：Name "c:\temp\test.tmp" As "d:\test.tmp" 函數：NOW 語法：Now 說明：傳回目前的日期與時間。 範例： 如：Now,會傳回 1999/2/14 11:45:18 PM(注意:這個值會因當時的日期與時間而有所不同)。 函數：NPer 語法：NPer(每一期利率,每期所付金額,付款的現值) 說明：傳回定期定額支付而且固定利率下的年金總期數。 範例： 函數：NPV 語法：NPV(折扣率,現金流量值) 說明：傳回定期的現金流量和折扣率的淨現值。 範例： Ｏ 函數：OCT 語法：Oct(數值) 說明：傳回某一個數值的八進制碼。 範例： 如：Hex(12) 會傳回 14 函數：ON ERROR 語法：On Error GoTo 行標 說明：啟動錯誤處理程式。 範例： 如： On Error GoTo 行標 (宣告當發生錯誤時跳到行標執行) On Error Resume Next (宣告當發生錯誤時忽略這個錯誤 , 繼續執行) On Error GoTo 0 (取消錯誤處理) 函數：ON ... GOSUB 語法：On 變數值 GoSub 行標 , 行標 , ... 說明：根據變數的值 , 跳到相對應的行標 , 執行完後會回到下一個指令(這個指令是為了和以前的 Basic 相容 , 建議您使用 Select Case 取代)。 範例： 如： On x GoSub t1, t2, t3 (當 x=1 則跳到 t1 , 當 x=2 則跳到 t2 ... , 執行完 t1 或 t2 或 t3 後會回到下一個指令) ... t1: ... Return t2: ... Return t3: ... Return 函數：ON ... GOTO 語法：On 變數值 GoTo 行標 , 行標 , ... 說明：根據變數的值 , 跳到相對應的行標(這個指令是為了和以前的 Basic 相容 , 建議您使用 Select Case 取代)。 範例： 如： On x GoTo t1, t2, t3 (當 x=1 則跳到 t1 , 當 x=2 則跳到 t2 ...) ... t1: ... t2: ... t3: ... 函數：OPEN 語法：Open 檔名 For 模式 as #代號 Len=長度 說明：開啟檔案。 範例： 如：Open "test.txt" For Input As #1 (將 test.txt 開啟成為讀取模式) 如：Open "test.txt" For Output As #1 (將 test.txt 開啟成為寫入模式) 如：Open "test.txt" For Append As #1 (將 test.txt 開啟成為附加模式) 如：Open "test.txt" For Binary As #1 (將 test.txt 開啟成為二進制模式) 如：Open "test.txt" For Random As #1 Len=100 (將 test.txt 開啟成為隨機模式 , 每次讀取或寫入 100 字元) 函數：Option Base 語法：Option Base 1 說明：定義陣列的下邊界 , 這個指令必須在一般模組中的第一行使用。 範例： 如：Option Base 1 (當您下次宣告陣列為Dim a(5) 時 , 則相當於Dim a(1 to 5)。) 函數：Option Private 語法：Option Private Module 說明：限制本身模組被跨專案使用(這個指令並不適用在 VB)。 範例： 函數：Option Compare 語法：Option Compare Binary 或 Text 說明：設定字串的比對模式 , 這個指令必須在一般模組中的第一行使用。 範例： 如 : Option Compare Text (將英文大小寫視為相同) 如 : Option Compare Binary (將英文大小寫視為不相同) 函數：Option Explicit 語法：Option Explicit 說明：所有的變數需宣告後才可以使用 , 這個指令必須在一般模組中的第一行使用。 宣告之後 , 如果您尚未宣告變數就使用 , 則會產生錯誤。 範例： Ｐ 函數：Partition 語法：Partition(數值,數值範圍開始值,數值範圍結束值,間隔) 說明：傳回某個數值範圍中第幾個出現的值。 範例： 函數：Pmt 語法：Pmt(每的利率,付款總期數,付款的現值) 說明：傳回定期定額而且固定利率的年金，在每期的支付額。 範例： 函數：PPmt 語法：PPmt(利率,付款週期,總期數,付款金額) 說明：傳回定期定額支付而且固定利率的年金，在指定期間內的本金償付額。 範例： 函數：PRINT# 語法：Print #檔案代號,變數 說明：將變數中的資料寫到循序檔中。 範例： 例如：Print #1 , x，則會將變數 x寫到代號為 1 的循序檔中。 函數：PRIVATE 語法：Private 變數名稱 As 資料型態 說明：將變數宣告為私有變數(只能在模組中宣告) 範例： 例如：Private x As Integer，變數 x 宣告為私有變數 函數：Property Let 語法：Property Let 屬性名稱 說明：這是在設計 OCX 時會用到，當設定某一個屬性值時會觸發這個事件。 範例： 函數：Property Set 語法：Property Set 屬性名稱 說明：這是在設計 OCX 時會用到，當傳回某一個屬性值時會觸發這個事件。 範例： 函數：Property Get 語法：Property Get 屬性名稱 說明： 範例： 這是在設計 OCX 時會用到，當設定某一個屬性值時會觸發這個事件。 函數：PUBLIC 語法：Public 變數名稱 As 資料型態 說明：將變數宣告為公共變數(只能在模組中宣告) 範例： 例如：Public x As Integer，變數 x 宣告為公共變數 函數：PUT 語法：Put #檔案代號 , 記錄數 , 變數 Put #檔案代號 , 位元組數 , 變數 說明：將變數的資料寫入檔案中(這個指令和 Get 相應)。 範例： 如：Put #1 , 5 , x (將變數 x 的資料寫入代號 1 的已開啟檔中)。 如果檔案開啟的模式為隨機檔 , 則是寫入第 5 筆記錄。 如果檔案開啟的模式為二進制檔 , 則是從第 5 個位元組開始寫入。 函數：PV 語法：PV(每期利率,付款總金額,每期所付金額) 說明：傳回定期定額未來支付而且固定利率的年金現值。 範例： Ｑ 函數：QBCOLOR 語法：QBColor(數值) 說明：傳回某一個數值(0~15)所代表的顏色值(這是為了和以前的BASIC版本相容的指令,現在已經用不上了)。 範例： 如：Form1.BackColor = QBColor(15),會將表單 FORM1 的背景色設為白色。 Ｒ 函數：RaiseEvent 語法：RaiseEvent 事件名稱(參數) 說明：觸動由 Event 所定義的事件。 範例： 如：RaiseEvent Eve("abc") (觸動一個名為 Eve 的事件 , 並且將 "abc" 傳入)。 函數：RANDOMIZE 語法：Randomize 數值 說明：啟動亂數因子 , 您可以利用 Rnd 函數來取得亂數 (其實沒有用這個指令一樣可以取得亂數)。 範例： 如：Randomize 100 函數：Rate 語法：Rate(總期數,付款金額,付款的現值) 說明：傳回每一期年金的利率。 範例： 函數：REDIM 語法：ReDim 變數名稱(數值) As 資料型態 說明：重新宣告一個陣列 ; 請注意：當您重新宣告陣列時 , 不可以變更維度。 範例： 如：ReDim x(3 to 9) As String,重新宣告變數 x 為一維字串陣列 , 範圍為 3 到 9。 如： Dim x(1 to 5) ... ReDim x(1 to 5 ,1 to 5) As String,會產生錯誤,因為變數 x 已經宣告為一維陣列,不可變更維度。 函數：REM 語法：Rem 註解文字 說明：鍵入一段註解的文字；這段文字只是有利於往後閱讀而已，並沒有任何作用。 範例： 例如：Rem 以下程式是偵測磁碟機 函數：RePlace 語法：RePlace(原始字串,字串一,字串二) 說明：將原始字串中包含字串一的部份全部改成字串二。 範例： 例如：RePlace("abacd","a","-") , 則會傳回 '-b-cd' 函數：RESET 語法：Reset 說明：關閉所有已開啟的檔案。 範例： 函數：RESUME 語法：Resume 說明：在錯誤處理程式執行完畢後返回（必須要 On Error 陳述句配合）。 範例： 如： on error goto xx: ... xx: ... resume (返回發生錯誤的地方繼續執行) 您也可以使用 : Resume Next (返回發生錯誤的下一個指令繼續執行) Resume 行標 (返回行標的地方繼續執行) 函數：RGB 語法：RGB(紅色值,綠色值,藍色值) 說明：傳入紅綠藍三原色的值(每些值必須介於 0 到 255 之間)，則會傳回一個 RGB 的顏色值。 範例： 函數：RIGHT 語法：Right(字串,長度) 說明：傳回字串的右邊幾個字元。 範例： 如：Right("abcdefg",4) 會傳回 defg 這四個字元。 如果設定的長度比字串的總字數多,則會全部傳回。 如：Right("abcdef", 8) 會傳回 abcdef 這六個字元。 函數：RMDIR 語法：RmDir 目錄名稱 說明：刪除一個空的目錄 , 也就是該目錄下不可以有任何檔案。 範例： 如：RmDir "temp" (將 temp 目錄刪除) 函數：Rnd 語法：Rnd 說明：傳回一個介於 0 於 1 之間的亂數值。 範例： 例如：Rnd ，則會傳回 0.5795186 (請注意：這個值會有所不同) 函數：RSET 語法：Rset 字串 1 = 字串 2 說明：將字串 2 放入字串 1 中 , 並且往右對齊。 範例： 如： Dim c As String * 4 RSet c = "abc" (變數 c 的內容為 " abc" ) Ｓ 函數：SAVEPICTURE 語法：SavePicture 元件名稱,檔案名稱 說明：將某一個元件中的影像存到檔案中。 範例： 如：SavePicture Picture1, "c:\temp\test.bmp",會將 Picture1 元件中的影像存到 c:\temp\test.bmp 中。 函數：SAVESETTING 語法：SaveSetting 應用程式名稱,區段名稱,關鍵字,設定值 說明：將一個應用程式建立一個註冊區。 範例： 函數：SECOND 語法：Second(時間) 說明：傳回一特定時間的"秒"部份。 範例： 如：Second("23:17:35"),會傳回 35 。 函數：SEEK 語法：Seek #檔案代號 , 位置 說明：檔案開啟後 , 指定下一次讀取的位置 , 通常這個指令會用在開啟二進制檔之後。 範例： Seek #1,500 (設定下一次要 Get 或 Put 時 , 是從第 500 位元組開始) 這個指令需配合 Get 或 Put 指令。 函數：Seek 語法：Seek(檔案代碼) 說明：當以 Open 開啟檔案後，可以用此函數來傳回目前所在的位置，這個值可能是記錄代號或位元組的值，視開啟檔案類型而定。 範例： 例如：Seek(1)，則會傳回檔案 1 目前在哪個位置 函數：SELECT CASE 語法：Select Case 條件 Case 值 ... End Select 說明：根據條件來決定要執行哪一段程式，這個陳述式和 If ... Then 陳述式相同，只是本陳述式適用一個變數多個值的判斷。 範例： 如： Select Case x case 1 如果 x=1 則執行下列的程式 ... case 2 如果 x=2 則執行下列的程式 ... End Select 上述的陳述句相當於這樣 ： If x = 1 Then ... Else If x = 2 Then ... End If End If 函數：SENDKEYS 語法：SendKeys 字串 說明：模擬在鍵盤按下按鍵。 範例： 如：SendKeys "Test" (在鍵盤上模擬按下 Test 四個字) 如果您要按組合鍵 , 則可以使用下列的字元 : 組合鍵 碼 ALT 鍵 ％ SHIFT 鍵 ＋ CTRL 鍵 ︿ 如：SendKeys "%F" (模擬同時按住 ALT 鍵和 F 鍵) 函數：SET 語法：Set 變數 = 物件 說明：將物件指定給變數。 範例： 如： Dim x As Object Set x = Form1 ( x 成為 Form1 物件) x.Caption = "xxx" (因為 x 和 Form1 已經完全相同 , 所以我們可以透過變數 x 來使用 Form1) 函數：SETATTR 語法：SetAttr 檔名 , 屬性值 說明：設定檔案的屬性。 範例： 如：SetAttr "c:\autoexec.bat" , vbReadOnly (將 "c:\autoexec.bat" 改成唯讀) 除了 vbReadOnly 之外還可以設定下列四種： vbNormal 一般檔 vbHidden 隱藏檔 vbSystem 系統檔 vbArchive 保存檔 函數：Sgn 語法：Sgn(數值) 說明：傳回某個數值的正負號。 < 0 傳回　- 1 = 0 傳回　0 > 0 傳回　1 範例： 例如：Sgn(10)，則會傳回 1 (因為 10 > 0 所以傳回 1) 函數：Shell 語法：Shell(檔案名稱，視窗狀態) 說明：執行一個檔案。 範例： 例如：Shell ("c:\windows\notepad.exe",VbNormalFocus)，則會啟動記事本，並且轉移輸入焦點到記事本上。 除了 VbNormalFocus 之外還可以是下列的狀態： vbHide 隱藏視窗，且擁有輸入焦點。 VbMinimizedFocus 視窗最小化，且擁有輸入焦點。 VbMaximizedFocus 視窗最大化，且擁有輸入焦點。 VbNormalNoFocus 正常視窗，沒有輸入焦點。 VbMinimizedNoFocus 視窗最小化，沒有輸入焦點。 函數：SIN 語法：Sin(數值) 說明：傳回某一個數值的正弦值;這個值的單位為弧度,如果要轉成角度,只要乘上 180 / 3.1415926535897932 即可。 範例： 如：Sin(45),會傳回 0.850903524534118 (弧度) 如：Sin(45) * 180 / 3.1415926535897932,會傳回 48.7531807286115 (角度) 函數：SLN 語法：SLN(資產的初始成本,可用年限後的價值,可用年限) 說明：傳回某項資產在可用年限後的折舊值。 範例： 函數：Space 語法：Space(數值) 說明：傳回一些空白字元。 範例： 例如：Space(10)，則會傳回 10 個空白字元 函數：Spc 語法：Spc(數值) 說明：這個指令通常和 Print # 或 Print 指令一起使用。 範例： 例如：Print Spc(5) "abc"，則會在本列先顯示出 5 個空白之後，再第 6 個字元的地方開始顯示字串 abc 函數：SQR 語法：Sqr(數值) 說明：傳回某一個數值的平方根。 範例： 如：Sqr(144),會傳回 12 函數：STATIC 語法：Static 變數名稱 As 資料型態 Static 變數名稱(數值) As 資料型態 說明：這個指令和 Dim 相同。 只是經由 Static 宣告的變數會一直存在記憶體中 , 一直到程式結束 ; 這樣會比較佔記憶體 , 但是執行上會比較快。 範例： 函數：STOP 語法：Stop 說明：暫時中斷程式的執行 ; 如果您在 VB 環境下執行 , 則相當於設定中斷點 , 否則會結束執行。 範例： 函數：StrComp 語法：StrComp(字串1,字串2,型態) 說明：比較兩個字串，如果： 字串 1 < 字串 2 則傳回 -1 字串 1 = 字串 2 則傳回 0 字串 1 > 字串 2 則傳回 1 範例： 例如：StrComp("abcd", "xyz")，則會傳回 -1 (因為 "xyz" > "abcd")， 至於可用的型態如下： 0 大小寫不相等 1 大小寫相等 函數：StrConv 語法：StrConv(字串,轉換格式) 說明：將某個字串轉換後轉回。 範例： 例如：StrConv("AbcD",VbUpperCase)，則會傳回 ABCD ,您可以參考下列的轉換格式： vbUpperCase 將字串字元轉成大寫 vbLowerCase 將字串字元轉成小寫 vbProperCase 將字串中字的開頭字母轉成大寫 vbWide 將字串中單位元組字元轉成雙位元組字元 vbNarrow 將字串中雙位元組字元轉成單位元組字元 函數：String 語法：String(數量,字元) 說明：傳回某個數量的字元。 範例： 例如：String(5,"A")，則會傳回 "AAAAA" 函數：SUB 語法：Sub 名稱(參數) 說明：宣告副程式名稱。 範例： 如： Sub Add(a as integer) (宣告一個名為 Add 的函數) ... End Sub 函數：Switch 語法：Switch(條件1,傳回值1,條件2,傳回值2,...) 說明：這個指令適合在多條件判斷，當條件 1 成立則傳回傳回值 1，當條件 2 成立則傳回傳回值 2 ... 範例： 例如： i = 2 Print Switch(i = 1, "春", i = 2, "夏", i = 3, "秋", i = 4, "冬")，則會傳回 "夏" 函數：SYD 語法：SYD(資產初始成本,年限結束後的價值,可用年限,折舊期間) 說明：傳回某資產在某個期間的折舊值。 範例： Ｔ 函數：Tab 語法：Tab(數值) 說明：這個指令通常和 Print # 或 Print 指令一起使用。 範例： 例如：Print Tab(5) "abc"，則會在本列先顯示出 4 個空白之後，再第 5 個字元的地方開始顯示字串 abc 函數：TIME 語法：Time=時間 說明：設定系統時間。 範例： 如：Time = "00:00:00",系統時間會變更為 AM 12:00:00 函數：TIME 語法：Time 說明：傳回目前的系統時間。 範例： 如：Time,會傳回 "23:15"(注意：這個值會視當時的時間而有所不同)。 函數：TIMER 語法：Timer 說明：傳回從零時到目前所經過的秒數。 範例： 如 : 假設現在是 01:25:29 AM,那麼執行 Timer 後會傳回 5965.4 函數：TimeSerial 語法：TimeSerial(時,分,秒) 說明：將時分秒組合後傳回一個合法的時間值。 範例： 例如：TimeSerial(2, 11, 22)，則會傳回 AM 02:11:22 函數：TimeValue 語法：TimeValue(日期或時間) 說明：傳回一個合法的時間值。 範例： 例如：TimeValue("02:11:22")，則會傳回 AM 02:11:22 函數：TYPE 語法：Type 名稱 變數 As 型態 ... End Type 說明：自定資料型態 , 如果您對 VB 提供的資料型態不夠用時 , 可以用這個指令自行定義資料型態(這個指令只可以用在一般模組中)。 範例： 如： 1.在一般模組的開頭定義如下： Type Yes (定義一個 Yes 的資料型態) x As Integer y As String * 10 End Type 2.在任意模組或任意 Sub 或任意 Function 中使用： Sub ... Dim a As Yes (定義一個變數 a , 型態為 Yes) ... a.x = ... a.y = ... ... End Sub 函數：TypeName 語法：TypaName(變數名稱) 說明：傳回某個變數名稱的資料型態。 範例： 例如： Dim s As String Print TypeName(s)，則傳回 String，(因為 s 為字串型態) Ｕ 函數：UBound 語法：UBound(陣列名稱) 說明：傳回某陣列的最大索引值。 範例： 例如： Dim x(5 To 10) UBound(x)，則會傳回 10 函數：UCASE 語法：UCase(字串) 說明：將字串的內容全部轉成大寫後傳回。 範例： 如：Ucase("AbCd") 會傳回 ABCD 函數：UNLOAD 語法：UnLoad 物件名稱 說明：將物件移出記憶體 ; 如果您認為某個物件會很佔記憶體的話 , 那麼可以用這個陳述句將該物件移除。 範例： 如：UnLoad Form2 , 將 Form2 移出記憶體。 函數：UNLOAD 語法：UnLoad 物件名稱 說明：將物件移出記憶體 , 如果您認為某個元件會太佔記憶體的話 , 那麼您可以使用這個指令將元件移除(您可以參考 Load 陳述句)。 範例： 如：UnLoad Form2 , 將 Form2 移出記憶體。 Ｖ 函數：VAL 語法：Val(字串) 說明：傳回字串中的數值部份。 範例： 如：Val("12345") 會傳回 12345　　 當遇到本字串的第一個不是數字時，會停止傳回。 如：Val("123xyz456") 因為 x 不是數字，所以只傳回 x 這個字的前一個字而已，所以只傳回 123　　 如果字串中包含十六進位的值，則會轉成十進位後傳回。　　 如：Val("&H7F") 會傳回 127，因為十六進位的 7F 轉成十進位為 127　 如果字串中包含八進位的值，則會轉成十進位後傳回。　　 如：Val("&O12") 會傳回 10，因為八進位的 12 轉成十進位為 10 函數：VarType 語法：VarType(變數名稱) 說明：傳回某個變數的資料型態。 0 未初始化 1 無有效資料 2 整數 3 長整數 4 單精度浮點數 5 倍精度浮點數 6 貨幣 7 日期 8 字串 9 物件 10 錯誤 11 佈林值 12 Variant 13 資料存取物件 14 十進位值 17 位元值 8192 陣列 　 　 範例： 例如： Dim x As String Print VarType(x)，會傳回 8 (因為 8 代表字串) Ｗ 函數：Weekday 語法：Weekday(日期) 說明：傳回某一天是星期幾，請注意：傳回 1 表示星期日，2 表示星期一 … 範例： 例如：x = Weekday(#7/21/1999#)，則會傳回 4 (表示星期三) 函數：WeekdayName 語法：WeekdayName(代號) 說明：傳回一星期中的某一天。 範例： 例如：WeekdayName(2)，則會傳回'星期一'(因為,一星期中的第二天是星期一) 函數：While ... Wend 語法：While 條件式 ... Wend 說明：當條件式成立時 , 重覆執行某一特定程式(建議您使用更有彈性的 Do ... Loop 而不要用這個指令)。 範例： While x = 0 (當 x = 0 則執行迴路) ... Wend 函數：WIDTH# 語法：Width #檔案代號,寬度 說明：利用 Open 指令開啟後,指定一個輸出行的最大寬度 範例： 例如：Width #1,50，則輸出到檔案代號 1 的字串寬度為 50 位元組 函數：WITH 語法：With 物件名稱 ... End With 說明：讓您在使用某個元件時 , 不必重覆輸入元件名稱。 範例： 如下列的兩個程式功能是相同的： 1. Form1.Left=0 Form1.Top=0 Form1.Caption="測試" 2. With Form1 .Left=0 .Top=0 .Caption="測試" End With 函數：WRITE# 語法：Write #檔案代號,變數 說明：將變數中的資料寫到循序檔中。 範例： 例如：Write #1 , x，則會將變數 x寫到代號為 1 的循序檔中。 Ｙ 函數：YEAR 語法：Year(日期) 說明：傳回一特定日期的"年"部份。 範例： 如：Year("1999/02/14"),會傳回 1999。

MAPI Architecture With the MAPI subsystem, you can easily add messaging features to any Windows-based application. This makes basic workgroup activities such as information sharing easy for end users. MAPI also gives organizations the freedom to choose messaging systems and applications that best meet their needs, rather than choosing from the few that might be compatible. And because MAPI is part of the Windows operating system, all messaging systems and applications can be integrated on a user's desktop with familiar graphical tools. This lesson explains the benefits of MAPI and how it works. MAPI includes all the functions and object-oriented interfaces that form the foundation for the MAPI subsystem's client application and service provider interfaces. You can use MAPI to create mail-enabled applications. MAPI's core system components allow you to connect any mail-enabled or workgroup application seamlessly to MAPI-compliant information services. For example, the Microsoft Exchange messaging system can be connected to most private or public e-mail systems through the use of MAPI drivers. The MAPI front-end, or client, APIs are available in three parts. Simple MAPI and the Common Messaging Calls (CMC) support those applications that require only basic messaging functions. Extended MAPI is used for creating advanced messaging-based applications. Simple MAPI Simple MAPI includes the most common functions for you to make applications mail-aware. Examples of mail-aware applications include spreadsheet programs and word processors. Simple MAPI can also be used to build custom messaging applications. Although Simple MAPI has limited functionality and can be used only in the Windows environment, it provides the ability to: Log on and off a messaging system. Find and read messages. Address new messages by adding recipients. Add attachments to messages. Save and send messages. Common Message Calls Just as with Simple MAPI, CMC contains functions for you to make applications mail-aware. It also can be used to create custom messaging applications. CMC was designed to minimize the number of function calls needed to send or receive a message. For example, a mail-enabled application can send a message with a single function call and receive a specific message with two calls. Unlike Simple MAPI, CMC: Is independent of the operating system and hardware used by the messaging service. Supports multiple network platforms. Allows you to use multiple messaging services. -------------------------------------------------------------------------------- Note The Simple MAPI and Common Messaging Call SDKs are available on the Microsoft Developer Network (MSDN). -------------------------------------------------------------------------------- Extended MAPI Extended MAPI is a more complex, object-oriented API that is intended for applications that need to make frequent, heavy use of a mail system. Extended MAPI provides the following messaging capabilities: Management of a large number of received messages. Management of complex message and addressing information. Unattended message filtering. Support for advanced message features such as custom forms and smart forms. With custom forms, an organization can replace a standard send and receive mail form with a custom timesheet or calendar form. In addition, the custom form can have its own predefined information fields. Smart forms are similar to custom forms, but they can link information from fields on a form to other applications. For example, timesheet information can be obtained automatically from the message system and sent to a host application such as a payroll program.

Using an ActiveX DLL In this exercise, you will create a DLL in Visual Basic and then use the DLL to create an object in Microsoft Access. * To create a DLL in Visual Basic Create a new ActiveX DLL project in Visual Basic. Name the project, SampleDLL. In the General Declarations section of the Class1 module, type the following code: Private UserName As String Private strMessage As String Public Sub SayHello() MsgBox "Hello " & UserName & "!" End Sub Public Property Let Name(Name As String) UserName = Name End Property Public Property Get Message() strMessage = "Hello from DLL." Message = strMessage End Property Start the application and leave it running. -------------------------------------------------------------------------------- Note Normally you would need to register the DLL before calling it. Leaving it running in Visual Basic allows us to test the DLL because it is currently loaded in memory. -------------------------------------------------------------------------------- * To use the DLL from a different application Start Microsoft Access and click Blank Database and then click OK. Save the new database as Lab8.mdb in the WA\Practice\Ch08 directory. When the database dialog box appears, click the Forms tab and click New. Select Design View and click OK. Add a Command button on Form1. When the Command Button Wizard appears, click Cancel. Add a Label on Form1. Type the word nothing for the label's caption. Right-click Command0 and click Properties. Click the Events tab and select On Click. Click the ellipses to the right of the On Click event. Select Code Builder, and click OK. From the Tools menu, click References. Scroll down the list of Available References and put a check mark next to SampleDLL and click OK. This will set a reference to your DLL project currently running in Visual Basic. In the Command0_Click event, type the following code: Dim MyObject As New Class1 MyObject.Name = InputBox("What is your name?") Label1.Caption = MyObject.Message MyObject.SayHello From the Run menu, click Go/Continue. Click the Command0 button. Enter your name and click OK. Switch to your Visual Basic application. A message box will appear with your name in it. Click OK. Switch to the Microsoft Access database application. Notice that the label caption has changed. Close Form1 and click Yes to save changes. Save the form as frmLab8. Exit Microsoft Access. Switch to Visual Basic. Stop the application and exit Visual Basic. You can save the project to WA\Practice\Ch08 if you prefer.