配列から特定の値を探す

配列hairetuに「a」「b」「c」「d」「e」「f」と6個の要素が入っています。
そこからアルファベットfを探してみましょう。

（１）配列を作り、そこに上記のアルファベットを代入します。
Dim hairetu As Variant hairetu = Array("a", "b", "c", "d", "e", "f")

（２）次に、その配列の要素を順番に見ていきます。

For i = 0 To 5
　MsgBox hairetu(i)
Next

そして、配列変数が「f」なら『見つかりました』と表示させます。
上の２つのコードをガッチャンコするとこうなります。

Private Sub CommandButton1_Click()
　Dim hairetu As Variant
　Dim i As Long

　hairetu = Array("a", "b", "c", "d", "e", "f")
　For i = 0 To 5
　　If hairetu(i) = "f" Then
　　　MsgBox "見つかりました"
　　End If
　Next
End Sub