Excel VBA質問箱 IV

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

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


68016 / 76734 ←次へ | 前へ→

【13265】Re:合計の算出法について
回答  Hirofumi E-MAIL  - 04/4/29(木) 16:11 -

引用なし
パスワード
   >試してみましたが、以下の部分でエラーが出てしまいます。
>エラー内容は「型が一致しません」です。
>どうしてなんでしょうか?
>
>>         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

1 hits

【13168】合計の算出法について ハルコ 04/4/25(日) 17:07 質問
【13171】Re:合計の算出法について Hirofumi 04/4/25(日) 21:11 回答
【13200】Re:合計の算出法について ハルコ 04/4/27(火) 15:45 質問
【13209】Re:合計の算出法について Hirofumi 04/4/27(火) 19:38 回答
【13252】Re:合計の算出法について ハルコ 04/4/28(水) 18:32 質問
【13256】Re:合計の算出法について Hirofumi 04/4/28(水) 23:58 回答
【13264】Re:合計の算出法について ハルコ 04/4/29(木) 14:37 質問
【13265】Re:合計の算出法について Hirofumi 04/4/29(木) 16:11 回答
【13266】Re:合計の算出法について ハルコ 04/4/29(木) 19:53 質問
【13273】Re:合計の算出法について Hirofumi 04/4/29(木) 21:16 回答
【13274】Re:合計の算出法について ハルコ 04/4/29(木) 22:03 お礼

68016 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free