配列名を取得するVBA？

質問

ACCESSを使って勉強中です。
VBAを記述中に疑問がわきましたのでどなたか教えてください。。

配列　a(4)の中には１か２のデータが格納されるようになっています。
格納されるのはランダムになっています。
そこで、配列の中に1があったら、それが何番目にはいっているのか　a（？）というのを取得したいのですが、そういうことは可能でしょうか？

よろしくお願いします。

回答No.3

hana-hana3

こんな感じでしょうか。

Sub test1()

Dim i As Integer
Dim Mes As String
Dim a As Variant

a = Array(1, 4, 1, 7, 3, 1)

For i = LBound(a) To UBound(a)
If a(i) = 1 Then
If Mes <> "" Then Mes = Mes & " , "
Mes = Mes & i
End If
Next

If Mes = "" Then
Mes = "見つかりませんでした。"
Else
Mes = Mes & " 番の配列で見つかりました。"
End If

MsgBox Mes

End Sub

回答No.2

ape5

Dim strIndex as string
Dim i as integer

for i = 0 to 4
if a(i) = 1 then
strIndex = " " & i
end if
next i

msgbox "一致したのは、" & strIndex & "です。"

回答No.1

hana-hana3

FOR文を使って配列の数字をチェックします。

Flg = Flse
For i=Lbound(a) to Ubound(a)
If a(i) = 1 then
flg=True
Exit For
endif
Next

If flg then
msgbox i
Else
msgbox "見つかりませんでした"
endif

補足

早速のお返事ありがとうございます！
もうひとつ質問よろしいですか？
これは最初の配列しかもってこないようなのですが、
a(0)～a(4)までの間には

a(0)・・・１
a(1)・・・２
a(2)・・・２
a(3)・・・１
a(4)・・・１
となったりもするのですが、
このときはどのようにすれば１があるデータをメッセージボックスに表示できますか？イメージとしてはメッセージボックスに「0,3,4」という感じで出るといいのですが・・
ご面倒でしょうがよろしくお願いします！