こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

VBA(EXCEL2000) 配列に文字列を格納する方法

VBA(EXCEL2000) 配列に文字列を格納する方法
VBAを使用している初心者です。
文字列の配列宣言と同時にデータを格納する方法を教えて下さい。

'/----現在のコード-----------------------------/
Dim member(47) As String

member(1) = "北海道"
member(2) = "青森県"
member(3) = "岩手県"

'(途中略)

member(46) = "鹿児島県"
member(47) = "沖縄県"
'/--------------------------------------------/

下記のようなコードは実現可能でしょうか?
Dim member() As String = {"北海道", "青森県", "岩手県",(途中略), "鹿児島県", "沖縄県"}

投稿日時 - 2010-04-20 20:00:04

QNo.5839704

暇なときに回答ください

質問者が選んだベストアンサー

 コードウィンドウ に「Array」と入力し [F1] キー を押下してみてください。
 [Array 関数] の ヘルプ が開きますので、[使用例] を クリック して [Array 関数の使用例] を開き、よくお読みください。

Dim member As Variant
Dim i As Integer
member = Array("北海道", "青森県", "岩手県", "宮城県", "秋田県", "山形県", "福島県", "茨城県", "栃木県", "群馬県", "埼玉県", "千葉県", "東京都", "神奈川県", "新潟県", "富山県", "石川県", "福井県", "山梨県", "長野県", "岐阜県", "静岡県", "愛知県", "三重県", "滋賀県", "京都府", "大阪府", "兵庫県", "奈良県", "和歌山県", "鳥取県", "島根県", "岡山県", "広島県", "山口県", "徳島県", "香川県", "愛媛県", "高知県", "福岡県", "佐賀県", "長崎県", "熊本県", "大分県", "宮崎県", "鹿児島県", "沖縄県")
For i = 0 To UBound(member)
Cells(i + 1, 1).Value = member(i)
Next

投稿日時 - 2010-04-20 20:28:48

お礼

回答ありがとうございました。
具体的例を示して頂いたので助かります。

投稿日時 - 2010-05-05 18:06:00

このQ&Aは役に立ちましたか?

2人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問