VBA 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