Geminiと100本ノック 7本目：日付データの扱い

公開日：2025-04-27　最終更新日：2025-05-08

Geminiと100本ノック 7本目：日付データの扱い

AIのGeminiがVBA100本ノックに挑戦！

Googleが開発した生成AIモデルのGeminiにVBA100本ノックをやってもらいました。
AIがVBAをどこまで扱えるかの実証実験の7本目です。

VBA100本ノックの出題と解答

VBA100本ノック 7本目：日付データの扱い

・出題・頂いた回答・解説・補足・サイト内関連ページ

Geminiへの出題とGeminiの回答

Geminiの回答 Geminiへの出題

VBA問題
A列は文字列データ（表示形式が文字列）で日付が入っています。
日付とみなされる場合はB列に月末日付をmmddの形式で出力してください。
日付け以外の場合は空欄にしてください。
例.B2は「0930」と出力する。
※何をもって日付とみなすかも含めて考えてください。

ユーザーから提供された画像ファイルを確認しました。A列には様々な形式で日付らしき文字列が入っています。

VBAでA列の文字列を日付として認識できるか判定し、日付であればB列に月末日を「mmdd」形式で出力し、それ以外は空白にする処理を記述します。

「日付とみなす」判定については、VBAの IsDate 関数を使用するのが最も簡単で一般的です。IsDate 関数は、引数の文字列が有効な日付に変換可能かどうかを判定します。ただし、IsDate 関数はOSの地域設定に影響を受ける可能性があるため、より厳密な判定が必要な場合は、Replace関数などで区切り文字を統一したり、TryParseのような自作関数を使用したりすることも検討できますが、今回は IsDate 関数を使用します。

以下に、この処理を行うVBAコード例を示します。

VBA


        
          
            Sub ProcessDates()


Dim ws As Worksheet

Set ws = ThisWorkbook.Sheets("シート名") '処理対象のシート名に置き換えてください


Dim lastRow As Long

lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row


Dim i As Long

For i = 2 To lastRow '2行目から最終行まで処理 (1行目はヘッダーを想定)


　　Dim dateString As String

　　dateString = ws.Cells(i, "A").Value


　　'日付として認識できるか判定

　　If IsDate(dateString) Then

　　　　'日付に変換

　　　　Dim validDate As Date

　　　　validDate = CDate(dateString)


　　　　'月末日を計算

　　　　Dim lastDayOfMonth As Date

　　　　lastDayOfMonth = DateSerial(Year(validDate), Month(validDate) + 1, 0)


　　　　'mmdd形式でB列に出力

　　　　ws.Cells(i, "B").Value = Format(lastDayOfMonth, "mmdd")

　　Else

　　　　'日付以外はB列を空欄にする

　　　　ws.Cells(i, "B").Value = ""

　　End If


Next i


MsgBox "処理が完了しました。", vbInformation


            End Sub

コードの説明:

Dim ws As Worksheet: ワークシートオブジェクトを宣言します。
Set ws = ThisWorkbook.Sheets("シート名"): 処理を行うシートを指定します。「シート名」の部分を実際のシート名に置き換えてください。
Dim lastRow As Long: データの最終行を格納する変数を宣言します。
lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row: A列の最終行を取得します。
For i = 2 To lastRow: 2行目から最終行までループ処理を行います。（1行目はヘッダーとしてスキップしています）
Dim dateString As String: A列から取得した文字列を格納する変数を宣言します。
dateString = ws.Cells(i, "A").Value: 現在の行のA列の値を dateString に格納します。A列の表示形式が文字列でも、.Value で内容を取得できます。
If IsDate(dateString) Then: IsDate 関数を使って dateString が日付として有効かを判定します。
validDate = CDate(dateString): IsDate が True の場合、CDate 関数を使って文字列を日付型のデータに変換します。
lastDayOfMonth = DateSerial(Year(validDate), Month(validDate) + 1, 0): DateSerial 関数を使って月末日を計算します。Year(validDate) で年、Month(validDate) + 1 で翌月、0 を指定することで翌月の1日の前日、つまり当月末日が得られます。
ws.Cells(i, "B").Value = Format(lastDayOfMonth, "mmdd"): 計算した月末日を Format 関数を使って「mmdd」形式の文字列に変換し、B列に出力します。
Else: IsDate が False の場合（日付として認識できない場合）の処理です。
ws.Cells(i, "B").Value = "": B列を空欄にします。
Next i: 次の行の処理に移ります。
MsgBox "処理が完了しました。", vbInformation: 処理がすべて完了したことをメッセージボックスで通知します。

使用方法:

Alt + F11 キーを押してVBAエディターを開きます。
挿入タブから「標準モジュール」を選択します。
上記のコードをコピーして、標準モジュールに貼り付けます。
コード内の "シート名" を実際に処理したいシートの名前に変更します。
VBAエディターを閉じ、Excelシートに戻ります。
Alt + F8 キーを押してマクロダイアログを開き、「ProcessDates」を選択して実行します。

このコードを実行すると、A列のデータを基にB列に月末日（mmdd形式）が出力されます。IsDate 関数がある程度の柔軟性を持って日付形式を判定するため、画像にあるような様々な形式の日付文字列に対応できると考えられます。

完璧です。
少なくともプロンプトの内容通りの処理となっていますし、VBAコードも言うことなしです。

GeminiへのVBAコードの改善提案

Geminiの回答 Geminiへの出題

2020.10.5
これも日付と判定されるようにしてください。

はい、承知いたしました。「2020.10.5」のようなピリオド区切りの日付文字列も日付として正しく判定されるようにコードを修正します。

IsDate 関数は、システムの地域設定によってはピリオド区切りを認識しない場合があります。確実にするためには、判定する前にピリオド (.) をスラッシュ (/) またはハイフン (-) に置換してから判定する方法が有効です。ここではスラッシュに置換します。

修正したVBAコードは以下のようになります。

VBA


        
          
            Sub ProcessDates_Revised()


Dim ws As Worksheet

Set ws = ThisWorkbook.Sheets("シート名") '処理対象のシート名に置き換えてください


Dim lastRow As Long

lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row


Dim i As Long

For i = 2 To lastRow '2行目から最終行まで処理 (1行目はヘッダーを想定)


　　Dim dateString As String

            　　dateString = ws.Cells(i, "A").Value


　　' 判定用にピリオドをスラッシュに置換

　　Dim checkDateString As String

　　checkDateString = Replace(dateString, ".", "/")


　　'日付として認識できるか判定

　　If IsDate(checkDateString) Then

　　　　'日付に変換 (置換後の文字列を使用)

　　　　Dim validDate As Date

            　　　　validDate = CDate(checkDateString)


　　　　'月末日を計算

　　　　Dim lastDayOfMonth As Date

　　　　lastDayOfMonth = DateSerial(Year(validDate), Month(validDate) + 1, 0)


　　　　'mmdd形式でB列に出力

　　　　ws.Cells(i, "B").Value = Format(lastDayOfMonth, "mmdd")

　　Else

　　　　'日付以外はB列を空欄にする

　　　　ws.Cells(i, "B").Value = ""

　　End If


Next i


MsgBox "処理が完了しました。", vbInformation


            End Sub

変更点:

checkDateString = Replace(dateString, ".", "/") という行を追加しました。これは、A列から取得した元の文字列 (dateString) 中のピリオド (.) をすべてスラッシュ (/) に置き換えた新しい文字列 (checkDateString) を作成します。
IsDate 関数と CDate 関数の引数を dateString から checkDateString に変更しました。これにより、ピリオドがスラッシュに置換された形式で日付判定と変換が行われるため、「2020.10.5」のような形式も正しく日付として認識されるようになります。

この修正により、ピリオド区切りの日付も考慮されるようになります。上記コードを再度標準モジュールに貼り付けて実行してください。

これも一発回答で、関心するばかりです。
変数の使い方として、最初のVBAにあったdateStringはそのままにして、
新たにcheckDateStringを宣言して、そこにピリオド (.) 置換した値を入れてチェックするようにしています。
ここは、人間でも書き方が分かれるところだと思います。
変数を増やすことを煩わしいと思う人と、データに合わせて追加していく。
もちろん、どちらも正当な理由なので、好みと時々によって変わってくると思います。

同じテーマ「生成AI活用研究」の記事

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.繰り返し処理（For Next)｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
5.ひらがな⇔カタカナの変換｜エクセル基本操作
6.RangeとCellsの使い方｜VBA入門
7.メッセージボックス(MsgBox関数)｜VBA入門
8.セルのクリア（Clear,ClearContents）｜VBA入門
9.FILTER関数（範囲をフィルター処理）｜エクセル入門
10.条件分岐（Select Case）｜VBA入門

ホーム
その他
生成AI活用研究
Geminiと100本ノック 7本目：日付データの扱い

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。

生成AI活用研究
Geminiと100本ノック 7本目：日付データの扱い