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

高橋

KHI入社して退社。今はCONFRAGEで正社員です。関西で140-170/80～120万から受け付けております^^
得意技はJS(ES6),Java,AWSの大体のリソースです
コメントはやさしくお願いいたします^^
座右の銘は、「狭き門より入れ」「願わくは、我に七難八苦を与えたまえ」です^^