いけいけ理系NEO

【VBAスタンダード対策】WorksheetFunction オブジェクトによるワークシート関数の呼び出しを攻略！

Mon, 17 Aug 2026 21:33:01 GMT

Excelに標準で用意されている便利な関数（VLOOKUP、SUM、COUNTIF など）をVBAコード内から呼び出して使う際に必須となるのが WorksheetFunction オブジェクト です。正確な呼び出し構文と、VBA組み込み関数との違いをマスターしましょう。

1. 問題：WorksheetFunction オブジェクトを用いたVLOOKUP関数の実行

【問題】 下記のコードは、セル A1 の値を検索キーとして、Sheet1 のセル範囲 A1:B10 から対応するデータをVLOOKUP関数で検索し、変数 result に格納しようとしています。空欄 ( A ) に入る正しい記述はどれでしょうか？

Sub CallWorksheetFunctionTest()

    Dim result As Variant

    Dim key As String

    key = Range("A1").Value

    result = ( A )(key, Worksheets("Sheet1").Range("A1:B10"), 2, False)

    MsgBox result

End Sub

① Application.VLookup
② Application.WorksheetFunction.VLookup
③ Excel.VLookup
④ Worksheet.VLookup

2. 正解：WorksheetFunction 呼び出し構文の正解

正解： ② Application.WorksheetFunction.VLookup

3. 解説：WorksheetFunction オブジェクトの構造とエラー処理の罠

VBAからExcelのワークシート関数を呼び出す基本的な構文は Application.WorksheetFunction.関数名(...) です。

[ WorksheetFunction の構造とひっかけポイント ]

1. 階層構造の基本:

・Application オブジェクトの下位にある WorksheetFunction プロパティ を介して各ワークシート関数を呼び出します。

・VBAエディタ（VBE）では、Application.WorksheetFunction. まで入力すると、利用可能なワークシート関数が自動メンバー表示（補完機能）されます。

2. 誤り（③, ④）の理由:

・③（Excel.VLookup）や ④（Worksheet.VLookup）といったオブジェクト構成はVBAの文法上に存在しないためコンパイルエラーとなります。

★ ここが試験に出る！（① Application.VLookup との違い）

・Application.WorksheetFunction.VLookup：

  検索値が見つからない場合、VBAの実行時エラー1004が発生しマクロが停止します（On Error GoTo 等でのエラートラップが必要）。

・Application.VLookup（WorksheetFunctionを省略）：

  検索値が見つからない場合、エラーで停止せず変数にエラー値（IsError で判定可能）を返します。

※スタンダード試験では、基本構文である Application.WorksheetFunction.関数名 を問う問題が最も基本として出題されます。

ここが試験に出る！: スタンダード試験では、WorksheetFunction 経由で呼び出す際、セル範囲の引数には文字列ではなく Range("A1:B10") のように Range オブジェクトを渡す必要がある 点も併せて狙われます。

4. まとめ

「ワークシート関数を呼び出す標準記述は Application.WorksheetFunction.関数名(...) 」。この構文を押さえておけば、VBAのループ処理を使わずに SUMIF や COUNTIF、VLOOKUP などを活用して大量データを一括集計・検索する高速なマクロを構築できるようになります。

【VBA】ブック内の全シート名を一括取得！Sheets.CountとForループでシート一覧を表示する方法

Mon, 17 Aug 2026 12:54:29 GMT

Excelファイル内にどんなシートが存在するのかを把握したり、特定のシートを探して処理を行いたいとき、ブックに含まれる全シート名を順番に取得する手法はVBA開発の基本テクニックです。今回は `Sheets.Count` と `For` ループを使ったシンプルな実装方法を解説します。

1. 基本概念：Sheets.Count と Sheets(i)

Excel VBAでは、ブックに含まれるシートの総数を Sheets.Count で取得できます。これを `For` ループの終了条件に指定することで、1番目のシートから最後のシートまで順番に処理を適用できます。

[ 構成要素 ]

・Sheets.Count：ブック内の全シート数（ワークシート＋グラフシート等）を返す

・Sheets(i).Name：i 番目のシート名（文字列）を取得する

2. 実践サンプル：全シート名をイミディエイトウィンドウに出力する

ポイント：インデックス番号（1からSheets.Countまで）を順番に回す

以下のサンプルコードを実行すると、アクティブなブックに含まれる全てのシート名がイミディエイトウィンドウに順番に出力されます。

Sub Macro1()

  Dim i As Long

  ' 1番目のシートから最後のシートまでループ

  For i = 1 To Sheets.Count

    Debug.Print Sheets(i).Name

  Next i

End Sub

3. 実行結果

イミディエイトウィンドウに、ブック内のシート一覧が上から順に表示されます。

Sheet1

Sheet2

Sheet3

4. 【超重要】よくある注意点と「ハマりやすい罠」

注意点1：変数 i のデータ型は Variant ではなく Long にする

ループのカウント変数（`i`）に `Variant` 型を使うと、余計なメモリを消費し処理速度が低下します。数値のカウントには整数型（Long）を使うのがVBAの鉄則です。
Dim i As Variant ' 非推奨（低速・無駄なメモリ消費） Dim i As Long ' 推奨（高速で標準的）

注意点2：Sheets と Worksheets の違いに注意する

`Sheets` はグラフシート等も含めたすべてのシートを対象とします。普通の「セルがある表シート」だけを正確に対象にしたい場合は、`Worksheets` を使用するのが安全です。
For i = 1 To Worksheets.Count ' ワークシートのみを厳密にカウント

5. エンジニアの視点：For Each ループを使ったよりスタイリッシュな書き方

1. For Each ws In Worksheets: インデックス番号（`i`）を使わずに `For Each` 文を使うと、コードがより直感的で読みやすくなります。プロのエンジニアが現場でよく書く「いけいけ」な記法です。

Sub ShowAllSheetNames()

  Dim ws As Worksheet

  For Each ws In Worksheets

    Debug.Print ws.Name

  Next ws

End Sub

2. 全シート一括処理の基盤: 「全シートの特定セルをまとめてクリアする」「全シートをPDF化して出力する」といった高度な自動化も、このシートループ処理が基本骨格になります。

6. まとめ

シート一覧の取得は、複数シートをまとめて操作するマクロの第一歩です。変数の型（`Long`）や `Worksheets` コレクションの選び方に気をつけて、拡張性の高いスマートなコードを作成していきましょう！

【VBAスタンダード対策】Application.InputBox メソッドと Type 引数を攻略！

Sat, 15 Aug 2026 01:24:44 GMT

ユーザーにデータ入力を促すダイアログボックス。VBA組み込みの InputBox 関数とは異なり、Application.InputBox メソッド では Type 引数を指定することで、マウスによるセル範囲の選択や入力データ型の制限が可能です。記述ルールと正解の選択肢を押さえましょう。

1. 問題：マウスによるセル範囲の取得と Type 引数

【問題】 下記のコードは、ダイアログボックスを表示してユーザーにマウスでワークシート上のセル範囲を選択させ、選択されたセル範囲（Rangeオブジェクト）をオブジェクト変数 rng に格納しようとしています。空欄 ( A ) に入る正しい記述はどれでしょうか？

Sub SelectCellRange()

    Dim rng As Range

    On Error Resume Next

    ( A ) Application.InputBox(Prompt:="セルを選択してください", Type:=8)

    On Error GoTo 0

    If Not rng Is Nothing Then

        MsgBox "選択されたセル: " & rng.Address

    End If

End Sub

① rng =
② Set rng =
③ rng.Value =
④ Set rng.Address =

2. 正解：InputBox メソッドの代入記述に関する正解

正解： ② Set rng =

3. 解説：Application.InputBox メソッドと Type:=8 の重要ルール

Application.InputBox メソッドで Type:=8 を指定すると、戻り値としてセル範囲を表す Range オブジェクトが返されます。

[ Application.InputBox の構造とポイント ]

1. Type:=8 の場合は Set キーワードが必須！

Type:=8 で返されるデータは「Range オブジェクト（参照型）」です。VBAではオブジェクト変数（rng）にオブジェクトを代入する際、必ず頭に Set を記述しなければなりません（①のように Set を省くと「オブジェクト変数または With ブロック変数が設定されていません」というエラーになります）。

2. InputBox 関数（VBA組み込み）との決定的な違い

・InputBox 関数：戻り値は常に「文字列（String）」。セル選択は不可。

・Application.InputBox メソッド：Type:=8 を指定することで「マウスによるセル選択」が可能となり、Rangeオブジェクトを取得できる。

3. キャンセル時のエラー回避（On Error Resume Next）

Type:=8 のダイアログでユーザーが「キャンセル」ボタンを押すと、Rangeオブジェクトではなく False が返されるため型エラーが発生します。そのため、コード内のように On Error Resume Next でエラーを回避するのが定石です。

ここが試験に出る！: スタンダード試験では、「Type:=8（セル範囲）には Set が必要」「Type:=1（数値）や Type:=2（文字列）などの基本型には Set は不要」という、代入時の Set の要否と Type 引数の値（数値：1、文字列：2、セル範囲：8）の組み合わせが頻繁に狙われます。

4. まとめ

「セル範囲を選択させるなら Set rng = Application.InputBox(..., Type:=8) 」。このパターンを押さえておけば、マクロ実行時にユーザーへ集計対象セルを自由に選択させるようなインタラクティブで柔軟なツールを作成できるようになります。

【VBAスタンダード対策】MkDir ステートメントによるフォルダ作成処理を攻略！

Fri, 14 Aug 2026 11:31:18 GMT

VBAで新しいフォルダ（ディレクトリ）を自動生成する際に使用するのが MkDir ステートメント です。指定方法の記述ルールや、すでにフォルダが存在する場合の挙動などの重要な注意点をマスターしましょう。

1. 問題：MkDir ステートメントによるフォルダ作成

【問題】 C:\Data フォルダの中に、Backup という名称の新しいフォルダを作成したい。空欄 ( A ) に入る正しい記述はどれでしょうか？

Sub CreateFolderTest()

    Dim folderPath As String

    folderPath = "C:\Data\Backup"

    ( A )

End Sub

① CreateFolder folderPath
② MkDir folderPath
③ MkDir(folderPath)
④ Application.MakeDirectory folderPath

2. 正解：MkDir ステートメントの記述に関する正解

正解： ② MkDir folderPath

3. 解説：MkDir ステートメントの構文とエラー回避のポイント

指定したパスに新しいフォルダを作成するには MkDir ステートメント（Make Directoryの略）を使用します。

[ MkDir の構文構造と注意ルール ]

構文：MkDir 作成したいフォルダのパス

1. 記述のルール（ステートメント）:

MkDir は関数ではなくステートメント（命令文）のため、引数をカッコ ( ) で囲まず、MkDir folderPath のように空白を空けてパスを指定します。

2. 誤り（①, ③, ④）の理由:

・①（CreateFolder）: CreateFolder は FileSystemObject (FSO) のメソッドであり、標準VBAステートメントではありません。

・③（MkDir(folderPath)）: 単一の引数を戻り値なしで呼び出す際にカッコをつける記述はVBAの構文違反となります。

・④（Application.MakeDirectory）: Application オブジェクトにこのようなメソッドは存在しません。

3. 実務・試験での超重要注意点（同名フォルダの存在）:

作成しようとするフォルダがすでに存在する場合、実行時エラー75（「パス名またはファイル名が正しくありません。」）が発生してプログラムが停止します。実務では Dir(folderPath, vbDirectory) 等で事前チェックを行うのが定石です。

ここが試験に出る！: スタンダード試験では、フォルダを作成する MkDir と、フォルダを削除する RmDir の名称の対応や、すでにフォルダが存在する場合のエラー判定問題がよく出題されます。

4. まとめ

「フォルダの作成は MkDir フォルダパス」。このステートメントを押さえておけば、当日の日付名がついたフォルダ（例: C:\Data\20260814）を自動作成してレポートを格納するような実務マクロも簡単に組めるようになります。

【VBAスタンダード対策】FileCopy ステートメントによるファイルのコピー処理を攻略！

Fri, 14 Aug 2026 11:27:56 GMT

VBAで既存のファイルを別の場所や別のファイル名で複製（コピー）する際に使用する FileCopy ステートメント。引数の指定順序や指定方法の記述ルールを正確にマスターしましょう。

1. 問題：FileCopy ステートメントによるファイル複製処理

【問題】 C:\Data\Sales.xlsx というファイルを、C:\Backup\Sales_backup.xlsx としてコピー（複製）したい。空欄 ( A ) に入る正しい記述はどれでしょうか？

Sub CopyFileTest()

    Dim srcPath As String

    Dim destPath As String

    srcPath = "C:\Data\Sales.xlsx"

    destPath = "C:\Backup\Sales_backup.xlsx"

    ( A )

End Sub

① FileCopy destPath, srcPath
② FileCopy srcPath, destPath
③ FileCopy(srcPath To destPath)
④ Application.FileCopy srcPath, destPath

2. 正解：FileCopy ステートメントの記述に関する正解

正解： ② FileCopy srcPath, destPath

3. 解説：FileCopy ステートメントの構文と重要な注意点

外部ファイルをVBAから直接コピーするには FileCopy ステートメント を使用します。

[ FileCopy の構文構造と注意ルール ]

構文：FileCopy コピー元ファイルパス , コピー先ファイルパス

1. 引数の指定順序:

・第1引数：コピー元のファイルパス（srcPath）

・第2引数：コピー先のファイルパス（destPath）

※①のようにコピー先とコピー元を逆にして指定すると、意図しない上書きエラー等が発生します。

2. 記述のルール（ステートメント）:

FileCopy は関数（Function）ではなくステートメント（命令文）のため、③のようにカッコ ( ) で囲んだり To キーワードを使ったりする記述は構文エラーとなります。

3. 実務上の超重要注意点（開いているファイルの扱い）:

FileCopy でコピーしようとするコピー元ファイルがExcel等で開かれている場合、実行時エラー（「アクセス拒否」や「ファイルが開かれています」）が発生します。必ずファイルを閉じた状態で実行する必要があります。

ここが試験に出る！: スタンダード試験では、FileCopy の引数の順番（コピー元 → コピー先）を問う問題や、同じファイル操作命令である Name ステートメント（ファイル名の変更・移動）との役割の違いについての問題がよく出題されます。

4. まとめ

「ファイルのコピーは FileCopy コピー元, コピー先」。このステートメントを押さえておけば、日次処理の前にマスターファイルのバックアップを自動作成するような実務マクロも安全に構築できるようになります。

【VBAスタンダード対策】Select Case ステートメントにおける「To」演算子の範囲指定を攻略！

Fri, 14 Aug 2026 10:44:07 GMT

Select Case で数値や文字の「～から～まで」という連続した範囲を指定したい場合に活躍するのが To 演算子 です。Is 演算子との違いや、正しく評価される記述ルールをマスターしましょう。

1. 問題：Select Case での範囲指定（To）の書き方

【問題】 下記のコードを実行して CheckCategory プロシージャを呼び出した際、メッセージボックス（MsgBox）に "ミドル層" と表示させたい。空欄 ( A ) に入る正しい範囲指定の記述はどれでしょうか？

Sub CheckCategory()

    Dim age As Integer

    age = 35

    Select Case age

        Case 0 To 19

            MsgBox "若年層"

        Case ( A )

            MsgBox "ミドル層"

        Case Else

            MsgBox "シニア層"

    End Select

End Sub

① 20 - 49
② 20 To 49
③ 20 ~ 49
④ Is 20 To 49

2. 正解：Case 節における To 指定の正解

正解： ② 20 To 49

3. 解説：To 演算子の構文ルールとひっかけポイント

特定の「最小値から最大値までの範囲」を判定条件にしたい場合は、[最小値] To [最大値] の形式で記述します。

[ Select Case における To 指定のルール ]

1. 構文の基本:

   Case 20 To 49 は、「20以上 かつ 49以下」を意味します。

2. 誤り（①, ③, ④）の理由:

・①（20 - 49）: ハイフンで書くと「20マイナス49（＝-29）」という引き算の計算式とみなされてしまいます。

・③（20 ~ 49）: チルダ記号はVBAの範囲指定演算子として存在しません（コンパイルエラー）。

・④（Is 20 To 49）: Is は比較演算子（>, <, >= など）とセットで使うキーワードです。To と併用すると構文エラーになります。

★ 補足（並び順のルール）:

To を使う際は、必ず 「小さい値 To 大きい値」 の順番で記述する必要があります（例: 49 To 20 と逆に書くと判定が無視されます）。

ここが試験に出る！: スタンダード試験では、比較演算子を使う Case Is >= 20 と、範囲指定を行う Case 20 To 49 のキーワード（Is なのか To なのか）がごちゃ混ぜになった選択肢がよく出題されます。「To の前に Is はつけない」というルールをしっかり押さえておきましょう。

4. まとめ

「～から～までの範囲指定は Case 最小値 To 最大値」。この書式をマスターすれば、年齢層の区分分けや売上実績に応じたインセンティブランクの判定などをシンプルにコード化できるようになります。

【VBAスタンダード対策】Select Case ステートメントにおける「Is」演算子の条件指定を攻略！

Fri, 14 Aug 2026 10:41:55 GMT

複数条件の分岐をすっきり記述できる Select Case。数値の大小比較を行う場合に使う Is 演算子 の正確な指定ルールと、正しく評価されるための書き方をマスターしましょう。

1. 問題：Select Case での比較演算子と Is の記述ルール

【問題】 下記のコードを実行して CheckRank プロシージャを呼び出した際、メッセージボックス（MsgBox）に "B評価" と表示させたい。空欄 ( A ) に入る正しい条件指定の記述はどれでしょうか？

Sub CheckRank()

    Dim score As Integer

    score = 75

    Select Case score

        Case Is >= 80

            MsgBox "A評価"

        Case ( A )

            MsgBox "B評価"

        Case Else

            MsgBox "C評価"

    End Select

End Sub

① score >= 70
② Case >= 70
③ Is >= 70
④ >= 70

2. 正解：Case 節における条件指定の正解

正解： ③ Is >= 70

3. 解説：Case 節で比較演算子（>, <, >=, <= など）を使う場合の構文ルール

Select Case [評価する変数] の構造において、Case 節で「～以上」「～未満」のような比較を行う場合は、必ず Is 演算子 を前に添える必要があります。

[ Select Case における Case 節の書き方一覧 ]

1. 値を直接指定（完全一致）:

   Case 70 （※単一の値はそのまま書く）

2. 範囲を指定（～から～まで）:

   Case 70 To 79 （※範囲指定キーワード To を使う）

3. 比較演算子を使う（大小比較）:

   Case Is >= 70 （※比較演算子の前には必ず Is が必要！）

誤り（①, ②, ④）の理由：

・①（score >= 70）：変数名を再度書く必要はありません。

・②（Case >= 70）：Case を二重に書くことになりコンパイルエラーとなります。

・④（>= 70）：Is を省略して演算子から始めると構文エラーになります。

ここが試験に出る！: スタンダード試験では、VBAエディタ（VBE）の自動補完機能の罠についても問われます。VBEに Case >= 70 と入力すると自動的に Case Is >= 70 に整形されますが、試験の選択肢問題では 「Is が入った正しい構文を理解できているか」 が直接狙われます。

4. まとめ

「Select Case で比較演算子を使うときは Case Is 演算子値」。この構文ルールを確実に覚えておけば、多段階の判定や条件分岐を If 文よりも見やすく・ミスなく記述できるようになります。

【VBAスタンダード対策】SaveAs メソッドによる「名前を付けて保存」を攻略！

Fri, 14 Aug 2026 09:47:27 GMT

ブックを別名で保存する際に使用する SaveAs メソッド。VBAスタンダード試験では、保存先パスを指定する第1引数（Filename）の書き方や、保存後のアクティブブックの状態に関する理解が頻繁に問われます。

1. 問題：SaveAs メソッドによるファイル保存指定

【問題】 アクティブなワークブックを、C:\Data フォルダの中に Report_2026.xlsx というファイル名で「名前を付けて保存」したい。空欄 ( A ) に入る正しい記述はどれでしょうか？

Sub SaveAsTest()

    Dim folderPath As String

    Dim fileName As String

    folderPath = "C:\Data\"

    fileName = "Report_2026.xlsx"

    ( A )

End Sub

① ActiveWorkbook.SaveAs Path:=folderPath & fileName
② ActiveWorkbook.SaveAs Filename:=folderPath & fileName
③ ActiveWorkbook.SaveAs File:=folderPath & fileName
④ ActiveWorkbook.SaveAs Name:=folderPath & fileName

2. 正解：SaveAs メソッドの引数に関する正解

正解： ② ActiveWorkbook.SaveAs Filename:=folderPath & fileName

3. 解説：SaveAs メソッドの基本構文と重要な引数ルール

ワークブックを別の名前や異なるパスで保存するには Workbook.SaveAs メソッドを使用します。

[ SaveAs メソッドの構造とひっかけポイント ]

構文：Workbook.SaveAs( Filename , FileFormat , ... )

1. 第1引数の名前は「Filename」！

保存先のフォルダパスとファイル名を結合したフルパスを指定する引数名は Filename です。直感的に「Path」や「Name」、「File」を選びがちですが、これらは名前付き引数として存在しないためコンパイルエラーとなります。

2. SaveAs を実行した後の動作（重要！）

SaveAs を実行すると、「現在開いているブック自体」が新しい保存先のブックに切り替わります（元のファイルは閉じられ、保存後のファイルがアクティブになります）。

※元のファイルを開いたまま別名コピーを保存したい場合は、SaveCopyAs メソッドを使用します。

ここが試験に出る！: スタンダード試験では、SaveAs の引数名（Filename）のひっかけ問題のほか、「マクロ付きブック（.xlsm）として保存する場合の FileFormat 引数（xlOpenXMLWorkbookMacroEnabled）」 の指定要否についてもよく出題されます。

4. まとめ

「名前を付けて保存は Workbook.SaveAs Filename:="フルパス" 」。この構文と引数名を正確に覚えておけば、作成したレポートを日付や拠点名入りのファイル名で自動保存するマクロを迷わず実装できるようになります。

【VBAスタンダード対策】Format 関数による数値の桁区切り・表示形式の変換を攻略！

Fri, 14 Aug 2026 09:44:04 GMT

VBAで数値（12345）をカンマ区切りの文字列（12,345）や通貨表示に整形する際に必須となるのが Format 関数 です。よく使われる書式記号の役割と指定方法をマスターしましょう。

1. 問題：Format 関数による数値の表示形式指定

【問題】 下記のコードを実行して FormatTest プロシージャを呼び出した際、メッセージボックス（MsgBox）に "12,345"（3桁区切りの文字列）と表示させたい。空欄 ( A ) に入る記述として正しいものはどれでしょうか？

Sub FormatTest()

    Dim num As Long

    num = 12345

    MsgBox ( A )

End Sub

① Format(num, "#,##0")
② Format(num, "Standard")
③ SetFormat(num, "3-digit")
④ NumberFormat(num, "#,##0")

2. 正解：Format 関数の記述に関する正解

正解： ① Format(num, "#,##0")

3. 解説：Format 関数の構文と「#,##0」書式指定子の構造

値の表示形式を指定した文字列に変換するには Format(値, "書式") という構文を使用します。

[ Format 関数の構造と書式記号 ]

構文：Format( 変換したい値 , "表示形式のパターン" )

1. 代表的な数値の書式記号

・#,##0 ： 3桁ごとにカンマ区切りを入れる（値が 0 の場合は "0" と表示する）

・#,### ： 3桁ごとにカンマ区切りを入れる（値が 0 の場合は表示しない）

・#,##0円 / \"#,##0 ： カンマ区切り＋通貨単位の追加（例: 12,345円）

2. 選択肢 ④ NumberFormat との違い（超頻出トラップ！）

NumberFormat や NumberFormatLocal は、Range オブジェクトのプロパティです（例: Range("A1").NumberFormatLocal = "#,##0"）。

VBAのコード内で「値や変数を整形して文字列を取得する」場合は Format 関数 を使用します。

ここが試験に出る！: スタンダード試験では、セルの表示形式を設定する「Range.NumberFormatLocal」と、変数の値をフォーマット変換する「Format 関数」の混同を狙う問題が多発します。「変数や値をフォーマット変換する組み込み関数は Format」と区別して覚えましょう。

4. まとめ

「3桁カンマ区切りの文字列に変換するなら Format(値, "#,##0") 」。この関数を押さえておけば、メッセージボックスに金額を表示させたり、テキストファイル出力時に数値をきれいなカンマ区切り形式で整形したりする処理がスムーズに書けるようになります。

【VBAスタンダード対策】セルの値が「日付」に変換できるかを判定する組み込み関数を攻略！

Fri, 14 Aug 2026 09:41:41 GMT

データ入力チェックにおいて、数値判定（IsNumeric）と並んで非常に重要なのが「値が日付として正しく評価・変換できるか」の判定処理です。VBAで用意されている専用の判定関数と、その判定ロジックを押さえましょう。

1. 問題：日付変換の可能性を判定する関数

【問題】 下記のコードは、セル A1 に入力されている値が日付（または日付として認識できる文字列）であるかを判定し、正しい日付形式の場合のみメッセージボックスに「有効な日付です」と表示しようとしています。空欄 ( A ) に入る正しいVBA組み込み関数はどれでしょうか？

Sub CheckDateCell()

    Dim val As Variant

    val = Range("A1").Value

    If ( A )(val) Then

        MsgBox "有効な日付です"

    Else

        MsgBox "日付ではありません"

    End If

End Sub

① IsDateFormat
② IsDate
③ CDate
④ IsCalendar

2. 正解：日付判定関数に関する正解

正解： ② IsDate

3. 解説：IsDate 関数の役割と CDate 関数との違い

VBAで渡された値が「日付型データ」であるか、あるいは「日付を表す文字列（例: "2026/08/14" や "2026-08-14" など）」として認識可能かを判定するには IsDate 関数 を使用します。

[ 判定関数の構造と選択肢の罠 ]

1. 判定結果（戻り値）

IsDate(引数) は、引数が日付として有効であれば True、日付として認識できなければ（例: "abc" や "2026/02/30" など存在しない日付）False を返します。

2. 選択肢 ③ CDate との違い（超頻出トラップ！）

・IsDate：日付に変換できるか「調べる」関数（True / False を返す）

・CDate：文字列や数値を実際に日付型（Date型）へ「変換する」関数

★ 変換できない値に対して直接 CDate("abc") を実行すると「型が一致しません」というエラーでプログラムが停止してしまいます。そのため、「まず IsDate でチェックしてから CDate で変換する」のがVBAの定石パターンです。

ここが試験に出る！: スタンダード試験では、「判定を行う IsDate」と「型変換を行う CDate」の役割の違いを狙う問題が頻出します。If 条件式の中で判定用として使うのは IsDate であることを確実に識別できるようにしておきましょう。

4. まとめ

「日付に変換できるか調べるのは IsDate(値) 」。この判定関数をマスターしておけば、ユーザーが「2026/13/45」や「未定」といった不正な日付フォーマットをセルに入力した場合でも、処理を実行する前に安全にエラー検出を行えるようになります。