配列で格納したものをmsgboxで表示する方法について

質問

教えてください。
a(i)の配列で、たくさん格納したものを、
MSGBOXで表示したいと思います。
iの数は不定で毎回かわるため、
MsgBox a(1) & vbCrLf & & a(2) & vbCrLf & a(3) & ・・・
と表示してしまうと、いくつまで表示したらよいかわからなくなってしまいます。
msgbox　a(i) だと、最後の一つしか表示されませんし・・・。

こういう場合どのように対処していますか？
どうぞよろしくお願いします。

回答No.1

kawais070 · ベストアンサー

For ～ Next を使いましょう。以下のような感じ。

Dim msg As String
Dim x As Integer
msg = ""
For x = 1 To i
　msg = msg & a(x) & vbCrLf
Next
MsgBox msg

お礼

すごくわかりやすい回答ありがとうございます！
一回msgに溜め込めばいいんですね。

早速実行して、OKでした！
ありがとうございました。

回答No.3

o_chi_chi

一度変数につなげてから表示するようにしたらいいと思いますが。
i = 1
strW = ""
Do While a(i) <>""
strW = strW & a(i) & vbCrLf
Loop

配列aを動的配列にすれば
For i = 1 to Ubound(a)
strW = strW & a(i) & vbCrLf
Next

回答No.2

cj_mover

こんにちは
MsgBox Join(a, vbLf)
ということでしょうか。