テストを受けなかった。つまり欠席の場合は0点にしないという場合、平均を出す場合は欠席分を除外して計算しなければなりません。
また、合計点も意味を持ちませんから、合計しないように配慮しなければなりませんが、下の図に示すように、0点を入力せず空白にすることでAvg関数は自動的に考慮してくれます。同時に合計点も計算されません。
ところが[順位]のボタンをクリックすると、下の図のようなエラーが表示され、VBAが中断されてしまいます。
これは、数値しか入れてはいけない変数に空白が入力されようとするため「型が合わない」というエラーが起こるからです。
そこで、このエラーを回避する対策を下図のように、コードを追加することにより回避します
。ここまでのAccessによる成績処理アプリはここよりダウンロードできます。ファイルは自己解凍になっていますから、ダウンロードしたらseiseki.EXEをダブルクリックすることにより解凍します。
