|
>試してみましたが、以下の部分でエラーが出てしまいます。
>エラー内容は「型が一致しません」です。
>どうしてなんでしょうか?
>
>> For j = 0 To 3
>> vntSum(j) = vntSum(j) + vntSubSum(j) ←ここです
>> vntSubSum(j) = 0
>> Next j
変ですね、其の部分で「型が一致しません」のエラーは考え難いのですが?
以下の部分では、エラーが出る可能性は有ります
'小計にF〜H列値、及びカウントを加算
vntSubSum(0) = vntSubSum(0) + 1
For j = 1 To 3
vntSubSum(j) = vntSubSum(j) + vntData(1, 4 + j) ←この部分
Next j
これが出る理由は、F〜H列の金額部分に数値では無く文字列が入っている場合に起きます
対策は、金額部分に文字列を入れない様にするか
そのセルを無視する為、以下の様にします
'小計にF〜H列値、及びカウントを加算
vntSubSum(0) = vntSubSum(0) + 1
For j = 1 To 3
vntSubSum(j) = vntSubSum(j) _
+ Val(vntData(1, 4 + j))
Next j
|
|