VBA Instr函數
InStr
InStr 函數返回另一個字符串中的一個字符串的第一次出現。從左向右搜索。
語法:
InStr([start,]string1,string2[,compare])
描述 :
Start是一個可選的參數。指定搜索的起始位置。搜索從左到右並從第一位置開始。
String1, 必需的參數。要搜索的字符串。
String2, 必需的參數。字符串對其中String1搜索。
Compare是一個可選的參數。指定字符串比較中使用。它可以採用下述值：
0 = vbBinaryCompare - 執行二進制比較（默認）
1 = vbTextCompare - 執行文本比較
示例 :
添加一個按鈕，並添加以下功能
Private Sub Constant_demo_Click() Dim Var As Variant Var = "Microsoft VBScript" MsgBox ("Line 1 : " & InStr(1, Var, "s")) MsgBox ("Line 2 : " & InStr(7, Var, "s")) MsgBox ("Line 3 : " & InStr(1, Var, "f", 1)) MsgBox ("Line 4 : " & InStr(1, Var, "t", 0)) MsgBox ("Line 5 : " & InStr(1, Var, "i")) MsgBox ("Line 6 : " & InStr(7, Var, "i")) MsgBox ("Line 7 : " & InStr(Var, "VB")) End Sub
當執行函數的輸出如下所示：
Line 1 : 6 Line 2 : 0 Line 3 : 8 Line 4 : 9 Line 5 : 2 Line 6 : 16 Line 7 : 11