VBA - Instr

InStr 函数返回一个字符串在另一个字符串中出现的第一个位置。从左到右进行搜索。

语法

InStr([start,]string1,string2[,compare])

参数描述

• 开始 - 可选参数。指定搜索的起始位置。从左到右从第一个位置开始搜索。

• 字符串1 - 必需参数。要搜索的字符串。

• 字符串2 - 必需参数。在其中搜索字符串1的字符串。

• 比较 - 可选参数。指定要使用的字符串比较。它可以采用以下提到的值。

  • 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