【VBAリファレンス】VBA練習問題解答集：今日から始める実践的マクロ開発

はじめに

Excel VBA（Visual Basic for Applications）は、Excelの機能を拡張し、定型業務の自動化やデータ処理の効率化に絶大な威力を発揮します。しかし、学習を進める上で「自分で問題を解き、解答を確認する」というプロセスは、理解を深め、スキルを定着させるために不可欠です。このブログ記事では、Excel VBAの練習問題とその解答を豊富に提供し、読者が実践的なスキルを習得できるようサポートします。単なる解答の提示に留まらず、各問題の解説、コードのポイント、そして実務で応用するためのアドバイスまで、網羅的に解説していきます。

問題1：指定したセルの値を取得する

問題概要

アクティブシートのA1セルに格納されている値を取得し、メッセージボックスで表示するVBAコードを作成してください。

解答コード

Sub GetCellValue()
    Dim cellValue As Variant

    ' A1セルの値を取得
    cellValue = ActiveSheet.Range("A1").Value

    ' メッセージボックスで表示
    MsgBox "A1セルの値は: " & cellValue

End Sub

解説

この問題では、VBAの基本的な要素である「変数宣言」と「セルの値の取得・表示」を学びます。

• Dim cellValue As Variant: 取得するセルの値は数値、文字列、日付など様々な型が考えられるため、ここでは汎用性の高いVariant型で変数を宣言しています。
• ActiveSheet.Range("A1").Value: 現在アクティブになっているシートの、A1セルを指定し、そのValue（値）を取得しています。Cells(1, 1)という表現でも同じセルを指定できます。
• MsgBox "A1セルの値は: " & cellValue: 取得した値を文字列リテラルと結合して、メッセージボックスに表示します。&演算子は文字列を結合するために使用されます。

問題2：指定したセルに値を書き込む

問題概要

アクティブシートのB2セルに「VBA学習中」という文字列を書き込むVBAコードを作成してください。

解答コード

Sub SetCellValue()

    ' B2セルに文字列を書き込む
    ActiveSheet.Range("B2").Value = "VBA学習中"

End Sub

解説

前問とは逆に、セルに値を書き込む方法を学びます。

• ActiveSheet.Range("B2").Value = "VBA学習中": A1セルの値を取得したときと同様に、B2セルを指定し、そのValueプロパティに代入演算子=を使って文字列「VBA学習中」を代入しています。

問題3：セルの値を条件によって変更する

問題概要

アクティブシートのA1セルの値が100より大きい場合、B1セルの値を「大きい」と設定し、100以下の場合は「小さい」、または「等しい」と設定するVBAコードを作成してください。

解答コード

Sub ConditionalCellValue()
    Dim a1Value As Variant

    ' A1セルの値を取得
    a1Value = ActiveSheet.Range("A1").Value

    ' 条件分岐
    If a1Value > 100 Then
        ActiveSheet.Range("B1").Value = "大きい"
    Else
        ActiveSheet.Range("B1").Value = "小さい、または等しい"
    End If

End Sub

解説

この問題では、VBAにおける条件分岐の基本であるIf...Then...Else...End If文を使用します。

• If a1Value > 100 Then: 変数a1Valueの値が100より大きいかどうかを判定します。
• ActiveSheet.Range("B1").Value = "大きい": 条件が真（True）の場合に実行されます。
• Else: 条件が偽（False）の場合に実行される処理の開始を示します。
• ActiveSheet.Range("B1").Value = "小さい、または等しい": 条件が偽の場合に実行されます。
• End If: If文の終了を示します。

より複雑な条件分岐にはElseIf文も利用できます。

問題4：複数のセルに連続して値を書き込む

問題概要

アクティブシートのA列に、1から10までの連番を書き込むVBAコードを作成してください。

解答コード

Sub FillSequentialNumbers()

    Dim i As Integer

    ' Forループを使用して1から10まで繰り返す
    For i = 1 To 10
        ' A列のi行目に数値を書き込む
        ActiveSheet.Cells(i, 1).Value = i
    Next i

End Sub

解説

繰り返し処理の基本であるFor...Nextループを使用します。

• Dim i As Integer: ループカウンタとして使用する変数を宣言します。ここではInteger型（整数型）を使用しています。
• For i = 1 To 10: 変数iを1から10まで1ずつ増やしながら、Next iまでの処理を繰り返します。
• ActiveSheet.Cells(i, 1).Value = i: Cells(行番号, 列番号)という書式でセルを指定しています。ここでは、i行目の1列目（A列）に、変数iの値を書き込んでいます。
• Next i: ループの次の繰り返しに進みます。

このFor...Nextループは、指定回数処理を繰り返したい場合に非常に便利です。

問題5：特定の条件に一致するセルの値を取得する

問題概要

アクティブシートのA列に格納されている値のうち、50より大きい値を持つセルのアドレス（例: $A$3）と値を取得し、メッセージボックスに表示するVBAコードを作成してください。

解答コード

Sub FindValuesGreaterThan50()
    Dim lastRow As Long
    Dim i As Long
    Dim cellValue As Variant
    Dim outputMessage As String

    ' 最終行を取得 (A列)
    lastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row

    ' 初期メッセージ
    outputMessage = "50より大きい値を持つセル:" & vbCrLf

    ' A列を1行目から最終行までループ
    For i = 1 To lastRow
        cellValue = ActiveSheet.Cells(i, "A").Value ' A列のi行目の値を取得

        ' 値が数値で、かつ50より大きいかチェック
        If IsNumeric(cellValue) Then
            If cellValue > 50 Then
                ' 条件に一致した場合、アドレスと値を追加
                outputMessage = outputMessage & "セル " & ActiveSheet.Cells(i, "A").Address(True, True) & ": " & cellValue & vbCrLf
            End If
        End If
    Next i

    ' 結果を表示
    If outputMessage = "50より大きい値を持つセル:" & vbCrLf Then
        MsgBox "50より大きい値を持つセルはありませんでした。"
    Else
        MsgBox outputMessage
    End If

End Sub

解説

この問題では、ループ処理と条件分岐を組み合わせ、さらに「最終行の取得」という実務で頻繁に使うテクニックを導入しています。

• lastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row: これはA列の最終行を取得するための定型句です。Excelの最大行数（Rows.Count）から開始し、End(xlUp)で上に移動して最初に見つかったデータのあるセルの行番号を取得します。
• For i = 1 To lastRow: 取得した最終行までループします。
• If IsNumeric(cellValue) Then: セルの値が数値であるかを確認します。数値でない場合に比較演算子>を使うとエラーになるため、このチェックは重要です。
• If cellValue > 50 Then: 数値である場合に、50より大きいか判定します。
• ActiveSheet.Cells(i, "A").Address(True, True): セルのアドレスを絶対参照形式（$A$1のような形式）で取得します。True, Trueは両方を絶対参照にすることを意味します。
• vbCrLf: 改行コードを表します。メッセージボックスで見やすくするために使用します。
• 最後に、条件に一致するセルが一つもなかった場合のメッセージも考慮しています。

問題6：シート名を変更する

問題概要

アクティブシートの名前を「集計結果」に変更するVBAコードを作成してください。

解答コード

Sub RenameSheet()

    ' アクティブシートの名前を変更
    ActiveSheet.Name = "集計結果"

End Sub

解説

シートのプロパティを変更する基本的な例です。

• ActiveSheet.Name = "集計結果": ActiveSheetオブジェクトのNameプロパティに新しいシート名を代入しています。

既存のシート名と同じ名前に変更しようとするとエラーになるため、注意が必要です。

問題7：新しいシートを追加する

問題概要

アクティブシートの直後に新しいシートを追加し、そのシート名を「新規シート」とするVBAコードを作成してください。

解答コード

Sub AddNewSheet()
    Dim ws As Worksheet

    ' アクティブシートの直後に新しいシートを追加
    Set ws = ActiveSheet.Parent.Sheets.Add(After:=ActiveSheet)

    ' 新しいシートの名前を設定
    ws.Name = "新規シート"

End Sub

解説

新しいシートを作成し、その名前を設定する方法です。

• Set ws = ActiveSheet.Parent.Sheets.Add(After:=ActiveSheet):
  • ActiveSheet.Parent: アクティブシートが存在するブック（ThisWorkbook）を表します。
  • Sheets.Add(After:=ActiveSheet): ブックのSheetsコレクションに新しいシートを追加します。After:=ActiveSheetを指定することで、アクティブシートの直後に追加されます。指定しない場合は末尾に追加されます。
  • Set ws = ...: 新しく追加されたシートオブジェクトを、変数wsに格納します。シート操作を行う際は、このようにオブジェクト変数に格納してから操作するのが一般的です。
• ws.Name = "新規シート": 変数wsに格納された新しいシートの名前を「新規シート」に変更します。

シートの追加位置はAfterまたはBefore引数で指定できます。

問題8：シートを削除する

問題概要

「削除対象シート」という名前のシートが存在する場合、そのシートを削除するVBAコードを作成してください。

解答コード

Sub DeleteSheet()
    Dim ws As Worksheet
    Dim sheetExists As Boolean

    sheetExists = False ' シートが存在するかどうかのフラグ

    ' ブック内の各シートをチェック
    For Each ws In ThisWorkbook.Sheets
        If ws.Name = "削除対象シート" Then
            ' シートが見つかった場合
            If MsgBox("「削除対象シート」を削除しますか？", vbYesNo + vbQuestion) = vbYes Then
                ' ユーザーが「はい」を選択した場合のみ削除
                Application.DisplayAlerts = False ' 確認メッセージを非表示
                ws.Delete
                Application.DisplayAlerts = True  ' 確認メッセージを再度表示可能に
                MsgBox "「削除対象シート」を削除しました。", vbInformation
            Else
                ' ユーザーが「いいえ」を選択した場合
                MsgBox "削除をキャンセルしました。", vbInformation
            End If
            sheetExists = True ' シートが見つかったフラグを立てる
            Exit For ' シートが見つかったのでループを抜ける
        End If
    Next ws

    ' シートが見つからなかった場合
    If Not sheetExists Then
        MsgBox "「削除対象シート」は見つかりませんでした。", vbExclamation
    End If

End Sub

解説

シートの削除は、意図しないデータ消失につながる可能性があるため、慎重に行う必要があります。このコードでは、確認メッセージを表示し、ユーザーの同意を得てから削除するようにしています。

• For Each ws In ThisWorkbook.Sheets: ThisWorkbook（VBAコードが書かれているブック）内の全てのシートを順番に処理します。
• If ws.Name = "削除対象シート" Then: 現在処理しているシートの名前が「削除対象シート」と一致するか確認します。
• Application.DisplayAlerts = False: Excelの標準的な確認メッセージ（例：「シートを削除すると、元に戻すことはできません。続行しますか？」）を非表示にします。これにより、VBAコードから自動的に削除を実行できます。**この設定は、処理が終わったら必ずTrueに戻すことが重要です。**
• ws.Delete: 指定したシートを削除します。
• If MsgBox(...) = vbYes Then: ユーザーに削除の意思を確認するためのメッセージボックスを表示します。vbYesNoは「はい」「いいえ」ボタン、vbQuestionは疑問符アイコンを表示します。ユーザーが「はい」を選択した場合（vbYesが返された場合）に削除処理を実行します。
• sheetExists = True: シートが見つかったことを示すフラグを立てます。
• Exit For: シートが見つかり、処理が終わったのでループを終了します。
• 最後に、シートが見つからなかった場合のメッセージも表示します。

**注意点**: 削除対象のシートがアクティブシートである場合、削除後にアクティブシートがなくなってしまうため、エラーが発生する可能性があります。削除する前に別のシートをアクティブにするなどの処理を追加すると、より堅牢なコードになります。

問題9：ブックを保存する

問題概要

アクティブなブックを、指定したファイル名（例：「バックアップ_YYYYMMDD.xlsm」）で、マクロ有効ブック（.xlsm）形式で保存するVBAコードを作成してください。日付は実行時の日付とします。

解答コード

Sub SaveWorkbookWithDate()
    Dim fileName As String
    Dim filePath As String

    ' 実行時の日付を取得し、ファイル名を作成 (例: バックアップ_20231027.xlsm)
    fileName = "バックアップ_" & Format(Date, "yyyymmdd") & ".xlsm"

    ' 保存場所を指定 (ここではマクロを実行しているブックと同じフォルダ)
    filePath = ThisWorkbook.Path & "\" & fileName

    ' ブックを保存
    ' Application.DisplayAlerts = False ' 同名ファイルが存在する場合の上書き確認を非表示にする場合
    ThisWorkbook.SaveAs fileName:=filePath, FileFormat:=xlOpenXMLWorkbookMacroEnabled
    ' Application.DisplayAlerts = True ' 必要に応じて元に戻す

    MsgBox "ブックを '" & filePath & "' として保存しました。", vbInformation

End Sub

解説

ブックの保存は、データのバックアップや共有の際に非常に重要です。

• fileName = "バックアップ_" & Format(Date, "yyyymmdd") & ".xlsm":
  • Date: 実行時のシステム日付を取得します。
  • Format(Date, "yyyymmdd"): 日付を指定した書式（年4桁、月2桁、日2桁）の文字列に変換します。
  • &: 文字列を結合します。
  • これにより、例えば2023年10月27日に実行した場合、「バックアップ_20231027.xlsm」というファイル名が作成されます。
• filePath = ThisWorkbook.Path & "\" & fileName:
  • ThisWorkbook.Path: VBAコードが記述されているブックの保存フォルダのパスを取得します。
  • & "\" & fileName: フォルダパスとファイル名を結合し、完全なファイルパスを作成します。

  このコードでは、マクロが含まれるブックと同じフォルダに保存されます。必要に応じて、別のパスを指定することも可能です（例： `”C:\Backup\” & fileName`）。

• ThisWorkbook.SaveAs fileName:=filePath, FileFormat:=xlOpenXMLWorkbookMacroEnabled:
  • ThisWorkbook.SaveAs: 現在開いているブックを新しい名前で保存します。
  • fileName:=filePath: 保存するファイル名（フルパス）を指定します。
  • FileFormat:=xlOpenXMLWorkbookMacroEnabled: 保存するファイル形式を指定します。xlOpenXMLWorkbookMacroEnabledはマクロ有効ブック（.xlsm）を表します。標準的なExcelブック（.xlsx）で保存したい場合はxlOpenXMLWorkbookを指定します。

同名のファイルが既に存在する場合、通常は確認メッセージが表示されますが、Application.DisplayAlerts = Falseを設定すると、確認なしで上書き保存されます。ただし、この設定は慎重に使用する必要があります。

問題10：ブックを閉じる

問題概要

アクティブなブックを、保存せずに閉じるVBAコードを作成してください。

解答コード

Sub CloseWorkbookWithoutSaving()

    ' ブックを保存せずに閉じる
    ' Application.DisplayAlerts = False ' 保存確認メッセージを非表示にする場合
    ThisWorkbook.Close SaveChanges:=False
    ' Application.DisplayAlerts = True ' 必要に応じて元に戻す

End Sub

解説

ブックを閉じる操作もVBAで自動化できます。

• ThisWorkbook.Close SaveChanges:=False:
  • ThisWorkbook.Close: 現在開いているブックを閉じます。
  • SaveChanges:=False: ブックに変更がある場合でも、保存せずに閉じることを指定します。Trueを指定すると、変更があった場合に保存するかどうか確認されます。

このコードを実行すると、ブックは保存されずに閉じられます。もし変更内容を保存したい場合は、SaveChanges:=Trueと指定するか、引数を省略します（省略した場合は、変更があれば保存するか確認されます）。

実務アドバイス

1. コードのコメント化を徹底する

今回紹介したコードは比較的シンプルですが、実務で作成するコードは複雑になりがちです。コードの意図や処理内容を明確にするために、コメント（'で始まる行）を積極的に活用しましょう。後からコードを見返したときや、他の人がコードを読んだときに、理解が格段に容易になります。

2. エラーハンドリングを意識する

今回の問題では、エラーが発生しにくいシンプルなシナリオを想定していますが、実務では予期せぬエラー（例：ファイルが存在しない、指定したシートがない、ユーザーが無効な値を入力するなど）が発生する可能性があります。On Error Resume NextやOn Error GoTo Labelといったエラーハンドリングの仕組みを学習し、コードの堅牢性を高めることが重要です。

3. オブジェクト指向の理解を深める

Excel VBAはオブジェクト指向に基づいています。Workbook, Worksheet, Rangeなどのオブジェクト、そしてそれらが持つプロパティ（値、名前など）やメソッド（操作）を理解することが、より高度なVBA開発の鍵となります。今回もActiveSheet.Range("A1").Valueのように、オブジェクトとそのプロパティを組み合わせて使用しました。

4. 処理速度を意識する

大量のデータを扱う場合、コードの書き方一つで処理速度が大きく変わることがあります。例えば、セルへの書き込みをループ内で行うのではなく、配列に一度格納してからまとめて書き込む（`Range.Value = ArrayData`）などのテクニックは、処理速度を劇的に向上させます。

5. 命名規則を統一する

変数名やプロシージャ名には、その役割が分かるような命名を心がけましょう。例えば、ループカウンタにはiやj、シートオブジェクトにはwsやsh、ブックオブジェクトにはwbなど、一般的に使われる略称や、意味の分かる名前をつけることで、コードの可読性が向上します。

まとめ

この記事では、Excel VBAの基本的な練習問題とその解答、詳細な解説を提供しました。セルの値の取得・設定、条件分岐、ループ処理、シート操作、ブック操作といった、VBAプログラミングの根幹をなす要素を網羅しています。これらの問題を解き、理解を深めることで、読者の皆さんはExcel VBAの基礎をしっかりと身につけることができるはずです。

さらに、実務で役立つアドバイスも紹介しました。コードの可読性を高めるコメント、エラーハンドリング、オブジェクト指向の理解、処理速度の最適化、そして命名規則の重要性です。これらの点を意識しながら学習を進めることで、より実践的で高品質なVBAコードを作成できるようになります。

VBAは、日々のルーチンワークを劇的に効率化できる強力なツールです。今回学んだ知識を基盤として、ぜひ様々な業務自動化に挑戦してみてください。継続的な学習と実践が、あなたのExcelスキルを飛躍的に向上させるはずです。