【VBAリファレンス】VBA練習問題VBA100本ノック 8本目：点数の合否判定

VBA100本ノック第8本目：点数の合否判定を極める

Excel VBAのスキルを磨く上で、定石とも言えるのが「条件分岐」と「ループ処理」の組み合わせです。今回は、VBA100本ノックの第8本目にあたる「点数の合否判定」という課題を深掘りします。単に「合格・不合格を出す」というコードを書くことは誰にでもできますが、プロフェッショナルなエンジニアとして、保守性、拡張性、そして処理速度を考慮したコードを書くための思考プロセスを解説します。

詳細解説：なぜこの課題が重要なのか

この課題の本質は、単なるIf文の練習ではありません。実務において、大量のデータの中から特定の条件に合致するものを抽出し、別セルに結果を書き込むという処理は、日常的に発生する自動化業務の典型例です。

ここで考慮すべき重要なポイントは以下の3点です。

1. データの可変性への対応：データが10行しかない場合も、1万行ある場合も同じコードで処理できる「最終行の取得」が必須となります。
2. 処理速度（パフォーマンス）：セルに一つずつアクセスするのではなく、可能であれば配列に格納して一括処理を行うという視点です。
3. 可読性と保守性：将来的に「60点以上」という基準が変更された場合、あるいは「優・良・可」のような多段階評価に変更された場合に、どこを修正すればよいかを明確にする構造化が必要です。

サンプルコード：プロフェッショナルな実装

以下に、実務レベルで推奨される、可読性とパフォーマンスを両立させたコードを提示します。

Sub 合否判定処理()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim scores As Variant
    Dim results As Variant
    Const PASS_SCORE As Integer = 60 ' 合格基準を定数化
    
    ' 対象シートの設定
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 最終行の取得（A列が点数、B列に判定を書き込むと仮定）
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' データ範囲を配列に格納（セルへのアクセス回数を減らす）
    scores = ws.Range("A2:A" & lastRow).Value
    ReDim results(1 To UBound(scores, 1), 1 To 1)
    
    ' ループ処理による判定
    For i = 1 To UBound(scores, 1)
        If IsNumeric(scores(i, 1)) Then
            If scores(i, 1) >= PASS_SCORE Then
                results(i, 1) = "合格"
            Else
                results(i, 1) = "不合格"
            End If
        Else
            results(i, 1) = "未入力または無効"
        End If
    Next i
    
    ' 結果を一括でセルに出力
    ws.Range("B2").Resize(UBound(results, 1), 1).Value = results
    
    MsgBox "判定処理が完了しました。", vbInformation
End Sub

このコードのポイントは、セルへの直接アクセスを最小限に抑えている点です。`Range.Value`を配列に格納し、メモリ上で計算を行った後に一括で出力することで、データ量が増えても処理速度が低下しにくい設計になっています。

実務アドバイス：エンジニアとしてのプラスアルファ

実務では、単にコードが動くだけでは不十分です。以下の観点を加えることで、あなたのVBAコードは一段上の品質になります。

1. 定数の活用：コード内で直接「60」と書くのではなく、`Const PASS_SCORE = 60`のように定数として定義してください。これにより、仕様変更時にコード内を検索して修正する必要がなくなり、ミスを劇的に減らせます。
2. 型の明示：`Dim i As Long`のように、必ず変数の型を明示してください。特にデータ量が多い場合、`Integer`ではなく`Long`を使用することはメモリ管理上、必須の作法です。
3. エラーハンドリング：`IsNumeric`関数を使用して、セルに文字や空値が入っていた場合の挙動を制御しています。実務データは往々にして汚れているものです。「正常系」だけでなく「異常系」を考慮した防御的プログラミングを心がけましょう。
4. ユーザーへのフィードバック：処理が完了した際に`MsgBox`で通知を出す、あるいは`Application.ScreenUpdating = False`を使用して画面更新を止めることで、ユーザー体験（UX）を向上させることができます。

まとめ

VBA100本ノックの8本目、「点数の合否判定」は、VBAにおける「データ操作の基礎」を固める非常に重要なマイルストーンです。初心者のうちは、とにかくIf文で結果を出すことに注力しがちですが、中級者、そしてプロフェッショナルを目指すのであれば、今回紹介した「配列処理」「定数の活用」「防御的プログラミング」という視点を常に忘れないでください。

VBAは、Excelという強力なプラットフォームを最大限に活かすためのツールです。コードの書き方一つで、同じ結果でもその背後にある「保守性」や「拡張性」が大きく変わります。ぜひ、この8本目をきっかけに、自身のコードを「動くコード」から「信頼できるコード」へと進化させていってください。継続的な練習こそが、唯一無二のエンジニアへの近道です。