Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

14650 / 76738

←次へ　｜　前へ→


	【67577】Re:Dictionaryについて

kanabun - 10/12/15(水) 9:25 -


	引用なし

	パスワード

▼八家九僧陀さん：

>試してみたのですが、
>>　　vout(0, 1) = "ID"
>のところで「インデックスが有効範囲にありません」とのエラーが出て黄色に反転します。

こちらではそのとおりに書いてあればそのようなエラーは起きないので、
原因は不明ですが、

>>　　' ---社員ID別金額集計
>>　　ReDim vout(1000, 1 To 5)
>>　　vout(0, 1) = "ID"
>>　　vout(0, 2) = "氏名"
>>　　vout(0, 3) = "課税所得額"
>>　　vout(0, 4) = "社会保険控除額"
>>　　vout(0, 5) = "源泉徴収税額"

と書いてあるとき、
>>　　ReDim vout(1000, 1 To 5)
は
　　ReDim vout(0 To 1000, 1 To 5)
　　　　　　　^^^^^^
という意味です。（配列の要素番号の最小値は 0 ということです）

ところが、モジュールの先頭に
Option Base 1
ともし書いてあると、
>>　　ReDim vout(1000, 1 To 5)
は
　　ReDim vout(1 To 1000, 1 To 5)
　　　　　　　^^^^^^
の意味になってしまい、添字0 は含まれないことになるので、
>>　　vout(0, 1) = "ID"
>>　　vout(0, 2) = "氏名"
>>　　vout(0, 3) = "課税所得額"
>>　　vout(0, 4) = "社会保険控除額"
>>　　vout(0, 5) = "源泉徴収税額"
はエラーになります。

念のため、

　　ReDim vout(0 To 1000, 1 To 5)

に直して実行したばあいの、結果をお知らせください。

0 hits

▼

【67485】Dictionaryについて 八家九僧陀 10/12/9(木) 1:45