|
▼八家九僧陀 さん:
>試してみたのですが、
>> 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)
に直して実行したばあいの、結果をお知らせください。
|
|