Vba-instrrev-function

VBA -InString Reverse

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

構文

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

Copy

パラメータ説明

• String1 -必須パラメーター。 検索する文字列。
• String2 -必須パラメーター。 String1が検索される対象の文字列。
• 開始-オプションのパラメーター。 検索の開始位置を指定します。 検索は、右から左への最初の位置から始まります。
• 比較-オプションのパラメーター。 使用する文字列比較を指定します。 次の値を取ることができます。
• 0 = vbBinaryCompare-バイナリ比較を実行します（デフォルト）
• 1 = vbTextCompare-テキスト比較を実行します

例

ボタンを追加して、次の関数を配置します。

Private Sub Constant_demo_Click()
   var = "Microsoft VBScript"
   msgbox("Line 1 : " & InStrRev(var,"s",10))
   msgbox("Line 2 : " & InStrRev(var,"s",7))
   msgbox("Line 3 : " & InStrRev(var,"f",-1,1))
   msgbox("Line 4 : " & InStrRev(var,"t",5))
   msgbox("Line 5 : " & InStrRev(var,"i",7))
   msgbox("Line 6 : " & InStrRev(var,"i",7))
   msgbox("Line 7 : " & InStrRev(var,"VB",1))
End Sub

Copy

上記のスクリプトを実行すると、次の結果が生成されます。

Line 1 : 6
Line 2 : 6
Line 3 : 8
Line 4 : 0
Line 5 : 2
Line 6 : 2
Line 7 : 0

Copy