VBAでInStrを使用して指定文字位置を返す

VBAでInStrを使用して指定文字位置を返します。

Sub macro
  Dim str = As String
  str = "aiueo"
  Debug.Print InStr(str, "u")
  Debug.Print InStr(str, "x")
End Sub

結果は以下のようになります。

3
0

第二引数の文字列があれば指定文字位置を返しますが、ない場合は0を返します。

if文などで0と比較して使ったりします。

Sub macro()
  Dim str As String
  str = "DATE"
  If (InStr(str, "date") > 0) Then
    Debug.Print "処理する"
  Else
    Debug.Print "処理しない"
  End If
End Sub

コメント

タイトルとURLをコピーしました