【アルゴリズム】 配列から特定の値を探す

配列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」なら『見つかりました』と表示させます。 上の２つのコードをガッチャンコするとこうなります。

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