【VBAリファレンス】VBA入門総合練習問題5：実践力養成！コード理解から応用まで徹底解説

概要

本記事では、VBA（Visual Basic for Applications）の学習者が、これまでに学んだ知識を体系的に定着させ、実践的なスキルを身につけるための総合練習問題「VBA入門総合練習問題5」を徹底的に解説します。この練習問題は、単なるコードの書き写しに留まらず、コードの意図を理解し、自ら応用できる力を養うことを目的としています。条件分岐、繰り返し処理、変数、配列、オブジェクト操作といったVBAの基本要素を網羅し、実際の業務で遭遇する可能性のあるシナリオを想定した問題設定となっています。各問題の解説はもちろん、サンプルコードとその実行結果、さらには実務で役立つアドバイスまで、学習者がつまずきやすいポイントを丁寧にフォローアップしていきます。この練習問題を通して、VBAプログラミングの基礎を固め、より複雑なタスクを自動化する第一歩を踏み出しましょう。

詳細解説

「VBA入門総合練習問題5」は、以下の4つのパートに分かれています。それぞれのパートで、異なるVBAの概念に焦点を当て、段階的に難易度を上げていきます。

パート1：条件分岐と変数操作の応用

このパートでは、`If…Then…Else…End If`文や`Select Case`文といった条件分岐構文と、変数の宣言・代入・型変換の理解を深めます。特定の条件に基づいて処理を分岐させたり、複数の条件を効率的に記述したりするスキルを習得します。

**問題例1：成績判定プログラム**
あるクラスの生徒の点数データがA1:B10の範囲に入力されています。点数（B列）が60点未満の場合は「不合格」、60点以上100点未満の場合は「合格」、100点以上の場合は「要確認」と、C列に表示するVBAコードを作成してください。

**解説：**
この問題では、まず各行の点数を取得し、`If…Then…ElseIf…Else…End If`構文を使って点数に応じた判定を行います。点数は数値型として扱うため、`CInt()`関数などで明示的に型変換が必要になる場合もあります。

**サンプルコード：**

Sub 成績判定()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long

Set ws = ThisWorkbook.Sheets(“Sheet1”) ‘ 対象シート名を指定

‘ データ最終行を取得
lastRow = ws.Cells(Rows.Count, “A”).End(xlUp).Row

‘ ヘッダー行をスキップする場合（A1がヘッダーなら2から開始）
For i = 2 To lastRow
Dim score As Variant
score = ws.Cells(i, “B”).Value ‘ B列の点数を取得

‘ 点数が数値であるかチェック
If IsNumeric(score) Then
If score < 60 Then ws.Cells(i, "C").Value = "不合格" ElseIf score >= 60 And score < 100 Then ws.Cells(i, "C").Value = "合格" Else ws.Cells(i, "C").Value = "要確認" End If Else ws.Cells(i, "C").Value = "無効な点数" ' 数値でない場合の処理 End If Next i MsgBox "成績判定が完了しました。", vbInformation End Sub **実行結果（例）：** | 名前 | 点数 | 結果 | | ---- | ---- | -------- | | 山田 | 75 | 合格 | | 佐藤 | 45 | 不合格 | | 田中 | 105 | 要確認 | | 鈴木 | 90 | 合格 | | 高橋 | -10 | 不合格 | | 伊藤 | abc | 無効な点数 |

パート2：繰り返し処理と配列の活用

このパートでは、`For…Next`ループ、`Do While…Loop`、`Do Until…Loop`などの繰り返し処理と、一次元配列・二次元配列の宣言、要素へのアクセス、操作方法を習得します。大量のデータを効率的に処理したり、複雑なデータ構造を扱ったりする際に不可欠なスキルです。

**問題例2：配列を使ったデータ集計**
A1:C10の範囲に、商品名（A列）、単価（B列）、数量（C列）のデータが入力されています。各商品の合計金額（単価 × 数量）をD列に計算し、さらにE列に全商品の合計金額を表示するVBAコードを作成してください。

**解説：**
この問題では、まずA1:C10のデータを二次元配列に読み込みます。その後、配列をループ処理しながら、各商品の合計金額を計算し、結果をD列に書き戻します。最後に、全商品の合計金額を計算し、指定したセル（例：E1）に表示します。

**サンプルコード：**

Sub データ集計_配列使用()
Dim ws As Worksheet
Dim dataArray As Variant
Dim i As Long
Dim totalAmount As Double ‘ 合計金額を格納する変数

Set ws = ThisWorkbook.Sheets(“Sheet1”) ‘ 対象シート名を指定

‘ A1:C10の範囲を配列に読み込む
‘ データがない場合や範囲が異なる場合は調整してください
On Error Resume Next ‘ エラーが発生しても続行（データがない場合など）
dataArray = ws.Range(“A1:C10”).Value
On Error GoTo 0 ‘ エラーハンドリングを元に戻す

‘ 配列が正しく読み込まれたかチェック
If Not IsArray(dataArray) Then
MsgBox “データ範囲の読み込みに失敗しました。”, vbCritical
Exit Sub
End If

totalAmount = 0 ‘ 初期化

‘ 配列をループ処理して合計金額を計算
‘ 配列のインデックスは1から始まることに注意
For i = LBound(dataArray, 1) To UBound(dataArray, 1) ‘ 行方向のループ
Dim unitPrice As Double
Dim quantity As Long
Dim lineTotal As Double

‘ 各要素から単価と数量を取得
‘ データが数値であることを確認
If IsNumeric(dataArray(i, 2)) And IsNumeric(dataArray(i, 3)) Then
unitPrice = CDbl(dataArray(i, 2)) ‘ 単価 (B列)
quantity = CLng(dataArray(i, 3)) ‘ 数量 (C列)
lineTotal = unitPrice * quantity ‘ 各商品の合計金額

‘ D列に結果を書き込む
ws.Cells(i + 1, “D”).Value = lineTotal ‘ 行番号は配列インデックス+1

‘ 全体の合計金額に加算
totalAmount = totalAmount + lineTotal
Else
‘ 数値でない場合の処理
ws.Cells(i + 1, “D”).Value = “計算不可”
End If
Next i

‘ E列（例：E1セル）に全体の合計金額を表示
ws.Range(“E1”).Value = totalAmount

MsgBox “データ集計が完了しました。”, vbInformation
End Sub

**実行結果（例）：**
| 商品名 | 単価 | 数量 | 合計金額 | 総計 |
| —— | —- | —- | ——– | —- |
| りんご | 100 | 5 | 500 | |
| みかん | 50 | 10 | 500 | 3200 |
| バナナ | 80 | 3 | 240 | |
| ぶどう | 200 | 2 | 400 | |
| いちご | 150 | 4 | 600 | |

パート3：オブジェクト操作とイベント処理

このパートでは、`Range`オブジェクト、`Worksheet`オブジェクト、`Workbook`オブジェクトなどを操作する方法を学びます。さらに、セルの値変更やブックのオープンといったイベントをトリガーとしてVBAコードを実行するイベントプロシージャの基本を習得します。

**問題例3：セルの値変更をトリガーにした自動書式設定**
A1セルの値が「完了」になったら、B1セルの背景色を黄色にし、フォントを太字にするVBAコードを作成してください。

**解説：**
この問題は、`Worksheet_Change`イベントプロシージャを使用して実装します。`Target`引数で変更されたセルを参照し、そのセルがA1であり、かつ値が「完了」であることを確認します。条件が満たされた場合に、B1セルの書式を変更します。

**サンプルコード（ThisWorkbookモジュールに記述）：**

Private Sub Worksheet_Change(ByVal Target As Range)
‘ 変更されたセルがA1であり、かつ値が「完了」であるかチェック
If Target.Address = “$A$1” And Target.Value = “完了” Then
‘ B1セルの書式を設定
With ThisWorkbook.Sheets(“Sheet1”).Range(“B1”) ‘ 対象シート名を指定
.Interior.Color = vbYellow ‘ 背景色を黄色に
.Font.Bold = True ‘ フォントを太字に
End With
MsgBox “A1セルの値が「完了」に更新されました。B1セルの書式が変更されました。”, vbInformation
End If
End Sub

**実行結果：**
A1セルに「完了」と入力すると、B1セルの背景色が黄色になり、フォントが太字になります。

パート4：エラーハンドリングとデバッグ

VBA開発において、エラーは避けて通れません。このパートでは、`On Error Resume Next`や`On Error GoTo`といったエラーハンドリング構文を学び、予期せぬエラーが発生した場合でもプログラムが停止しないように、またはエラーの原因を特定しやすくするためのデバッグ手法を習得します。

**問題例4：ファイル存在チェックとデータ読み込み**
指定したフォルダ（例：C:\Data\）に特定のファイル（例：SalesData.xlsx）が存在するかどうかを確認し、存在すればそのファイルをアクティブにして、A1セルの値をメッセージボックスで表示するVBAコードを作成してください。ファイルが存在しない場合は、その旨をメッセージボックスで表示してください。

**解説：**
この問題では、`Dir()`関数を使ってファイルの存在を確認します。`Dir()`関数は、指定したファイルが存在すればファイル名、存在しなければ空文字列を返します。エラーハンドリングとしては、`On Error Resume Next`を使って、ファイルを開く際に発生する可能性のあるエラー（例：ファイルが壊れている）を捕捉します。

**サンプルコード：**

Sub ファイル存在チェックとデータ読み込み()
Dim folderPath As String
Dim fileName As String
Dim filePath As String
Dim targetFile As Workbook

folderPath = “C:\Data\” ‘ 確認したいフォルダパスを指定
fileName = “SalesData.xlsx” ‘ 確認したいファイル名
filePath = folderPath & fileName

‘ Dir関数でファイルの存在を確認
If Dir(filePath) <> “” Then
‘ ファイルが存在する場合
On Error Resume Next ‘ ファイルを開く際のエラーを捕捉
Set targetFile = Workbooks.Open(filePath)
On Error GoTo 0 ‘ エラーハンドリングを元に戻す

If targetFile Is Nothing Then
MsgBox “ファイル ‘” & fileName & “‘ は存在しますが、開けませんでした。”, vbExclamation
Else
‘ ファイルが開けた場合、A1セルの値を取得
Dim cellValue As Variant
cellValue = targetFile.Sheets(1).Range(“A1”).Value ‘ 最初のシートのA1セル
MsgBox “ファイル ‘” & fileName & “‘ が見つかりました。A1セルの値は: ” & cellValue, vbInformation

‘ 必要であればここでファイルを閉じる
‘ targetFile.Close SaveChanges:=False
End If
Else
‘ ファイルが存在しない場合
MsgBox “ファイル ‘” & fileName & “‘ は ‘” & folderPath & “‘ に見つかりませんでした。”, vbExclamation
End If
End Sub

**実行結果（例）：**
* C:\Data\SalesData.xlsx が存在し、A1セルに「売上データ」と入力されている場合:
「ファイル ‘SalesData.xlsx’ が見つかりました。A1セルの値は: 売上データ」
* C:\Data\SalesData.xlsx が存在しない場合:
「ファイル ‘SalesData.xlsx’ は ‘C:\Data\’ に見つかりませんでした。」

実務アドバイス

* **コードの可読性を高める:** 変数名やプロシージャ名を分かりやすく命名しましょう。インデント（字下げ）を適切に行うことで、コードの構造が把握しやすくなります。コメント（`’`で始まる行）を積極的に活用し、コードの意図や処理内容を記述しておくと、後で見返したときに理解が容易になります。
* **エラーハンドリングは必須:** 実務で動くコードは、予期せぬ事態に遭遇することが多々あります。`On Error Resume Next`は安易な使用を避け、具体的なエラー処理を記述することが推奨されます。例えば、ファイルが存在しない場合、ユーザーにファイル選択を促す、といった処理です。
* **オブジェクト変数は解放する:** `Set obj = Nothing`のように、オブジェクト変数の使用が終わったら解放することで、メモリリークを防ぎ、パフォーマンスの低下を抑制できます。特に、ループ内で大量のオブジェクトを生成・解放する場合に有効です。
* **デバッグ機能を活用する:** Excel VBAには、ブレークポイントの設定、ステップ実行（F8キー）、イミディエイトウィンドウでの変数値の確認など、強力なデバッグ機能が備わっています。これらの機能を使いこなすことで、バグの原因究明と修正が格段に効率化されます。
* **段階的なテスト:** いきなり全てのコードを書き終えてからテストするのではなく、短いコードブロックごとに動作を確認しながら開発を進めましょう。これにより、問題の早期発見と修正が可能になります。
* **ユーザー定義関数（UDF）の検討:** 繰り返し使用する計算ロジックや処理は、ユーザー定義関数として作成すると、コードの再利用性が高まり、ブックの可読性も向上します。

まとめ

「VBA入門総合練習問題5」は、VBAの基礎から応用までを網羅し、実践的なプログラミングスキルを養成するための貴重な機会を提供します。条件分岐、繰り返し処理、配列、オブジェクト操作、イベント処理、エラーハンドリングといった、VBA開発に不可欠な要素を、具体的な問題を通して深く理解することができます。

本記事では、各問題の解説に加え、サンプルコードとその実行結果、そして実務で役立つアドバイスまでを詳細に記述しました。これらの内容を参考に、ご自身のペースで練習問題に取り組んでみてください。コードをただ写すのではなく、なぜそのように記述するのか、他の方法はないのか、といった点を常に意識することが、応用力を養う上で最も重要です。

この練習問題を通して、VBAプログラミングに対する自信を深め、日々の業務を効率化する強力なツールとしてVBAを活用していくための確かな一歩を踏み出していただければ幸いです。継続的な学習と実践が、あなたのVBAスキルをさらに向上させる鍵となります。