Vba-instr-function

VBA-Instr

InStr関数は、ある文字列が別の文字列内で最初に出現することを返します。 検索は左から右に行われます。

構文

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

パラメータ説明

• 開始-オプションのパラメーター。 検索の開始位置を指定します。 検索は、左から右への最初の位置から始まります。
• String1 -必須パラメーター。 検索する文字列。
• String2 -必須パラメーター。 String1が検索される対象の文字列。
• 比較-オプションのパラメーター。 使用する文字列比較を指定します。 次の値を取ることができます。
• 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