Geminiと100本ノック 8本目：点数の合否判定

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

Geminiと100本ノック 8本目：点数の合否判定

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

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

VBA100本ノックの出題と解答

VBA100本ノック 8本目：点数の合否判定

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

Geminiへの出題とGeminiの回答

Geminiの回答 Geminiへの出題

VBA問題
「成績表」シートに5教科の成績表があります。
以下の2条件を満たした者が合格となります。
・5教科合計が350点以上
・全ての科目が50点以上
G列に、合格者に対しては「合格」と出力し、不合格は空欄にしてください。

はい、承知いたしました。VBAで「成績表」シートのG列に合否判定を出力するコードを作成します。

以下のVBAコードをAlt + F11を押してVBE（Visual Basic Editor）を開き、挿入 > 標準モジュールから新しいモジュールに貼り付けて実行してください。

VBA


        
          
            Sub 合否判定()


　Dim ws As Worksheet

　Dim lastRow As Long

　Dim i As Long

　Dim totalScore As Long

　Dim passCriteria1 As Boolean ' 5教科合計が350点以上

　Dim passCriteria2 As Boolean ' 全ての科目が50点以上


　' "成績表"シートを設定

　Set ws = ThisWorkbook.Sheets("成績表")


　' データの最終行を取得 (B列を基準としています)

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


　' 2行目から最終行までループ

　For i = 2 To lastRow


　　' 各行の5教科の合計点を計算 (B列からF列)

　　totalScore = Application.Sum(ws.Cells(i, "B").Resize(1, 5))


　　' 5教科合計が350点以上か判定

　　If totalScore >= 350 Then

　　　passCriteria1 = True

　　Else

　　　passCriteria1 = False

　　End If


　　' 全ての科目が50点以上か判定

　　' B列からF列の各セルをチェック

　　passCriteria2 = True ' 初期値としてTrueを設定

　　Dim j As Long

　　For j = 2 To 6 ' B列(2)からF列(6)まで

　　　If ws.Cells(i, j).Value < 50 Then

　　　　passCriteria2 = False ' 50点未満の科目があればFalseにする

　　　　Exit For ' 1つでも条件を満たさない科目があればループを抜ける

　　　End If

　　Next j


　　' 両方の条件を満たすか判定

　　If passCriteria1 And passCriteria2 Then

　　　' 条件を満たす場合はG列に「合格」と出力

　　　ws.Cells(i, "G").Value = "合格"

　　Else

　　　' 条件を満たさない場合はG列を空欄にする

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

　　End If


　Next i


　' メモリの解放

　Set ws = Nothing


　MsgBox "合否判定が完了しました。", vbInformation


End Sub

コードの解説:

Sub 合否判定(): マクロの開始を宣言します。
変数の宣言: 使用する変数を宣言します。
- ws: 「成績表」シートを扱うためのWorksheetオブジェクト。
- lastRow: データがある最終行を格納する変数。
- i: 行番号をループさせるための変数。
- totalScore: 5教科の合計点を格納する変数。
- passCriteria1, passCriteria2: 各合格条件を満たすかを真偽値で保持する変数。
Set ws = ThisWorkbook.Sheets("成績表"): "成績表"という名前のシートをwsオブジェクトに設定します。シート名が異なる場合はここを変更してください。
lastRow = ws.Cells(Rows.Count, "B").End(xlUp).Row: B列の一番下からCtrl + ↑と同じ動作で、データが入っている最終行の行番号を取得します。
For i = 2 To lastRow: 2行目から最終行まで、1行ずつ処理を繰り返します。
totalScore = Application.Sum(ws.Cells(i, "B").Resize(1, 5)): 現在の行 (i) のB列からF列までの5つのセルの合計値を計算します。Resize(1, 5)は、指定したセル（ws.Cells(i, "B")）から1行、5列の範囲を指定するものです。
If totalScore >= 350 Then ... End If: 合計点が350点以上か判定し、passCriteria1に結果（TrueまたはFalse）を格納します。
passCriteria2 = True: 全ての科目が50点以上であるかの判定の前に、一旦passCriteria2をTrueに設定します。
For j = 2 To 6 ... Next j: B列からF列（列番号で2から6）までをループします。
If ws.Cells(i, j).Value < 50 Then ... End If: 現在の行 (i)、現在の列 (j) のセルの値が50未満かどうかを判定します。
passCriteria2 = False: 50点未満の科目が見つかった場合、passCriteria2をFalseにします。
Exit For: 1つでも50点未満の科目があれば、それ以上同じ行の科目をチェックする必要はないため、内側のループ（For j）を抜けます。
If passCriteria1 And passCriteria2 Then ... Else ... End If: passCriteria1とpassCriteria2の両方がTrue（And条件）であるか判定します。]
ws.Cells(i, "G").Value = "合格": 両方の条件を満たす場合、現在の行 (i) のG列に"合格"と出力します。
ws.Cells(i, "G").Value = "": 条件を満たさない場合、現在の行 (i) のG列を空欄にします。
Next i: 次の行の処理に移ります。
Set ws = Nothing: 使用したオブジェクトのメモリを解放します。
MsgBox "合否判定が完了しました。", vbInformation: 処理が完了したことを示すメッセージボックスを表示します。

このコードを実行すると、「成績表」シートのG列に指定された条件に基づいた合否判定結果が表示されます。

特に問題はありませんが、もう少し簡潔な書き方にしたいところです。

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

Geminiの回答 Geminiへの出題

少しVBAコードが冗長に感じます。
もう少し短く簡潔にしてください。

はい、承知いたしました。Application.SumとApplication.Min関数を使うことで、より簡潔に記述できます。

以下のVBAコードを試してみてください。

VBA


        
          
            Sub 合否判定簡潔版()


　Dim ws As Worksheet

　Dim lastRow As Long

　Dim i As Long


　' "成績表"シートを設定

　Set ws = ThisWorkbook.Sheets("成績表")


　' データの最終行を取得 (B列を基準としています)

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


　' 2行目から最終行までループ

　For i = 2 To lastRow


　　' 5教科の合計点が350点以上 かつ 全ての科目が50点以上か判定

　　' Application.Sum で合計を計算

　　' Application.Min で範囲内の最小値を計算

　　If Application.Sum(ws.Cells(i, "B").Resize(1, 5)) >= 350 And _

　　　 Application.Min(ws.Cells(i, "B").Resize(1, 5)) >= 50 Then


　　　' 両方の条件を満たす場合はG列に「合格」と出力

　　　ws.Cells(i, "G").Value = "合格"

　　Else

　　　' 条件を満たさない場合はG列を空欄にする

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

　　End If


　Next i


　' メモリの解放

　Set ws = Nothing


　MsgBox "合否判定が完了しました。", vbInformation


End Sub

変更点:

5教科の合計計算にApplication.Sumを使用しました。
全ての科目が50点以上であるかの判定に、範囲内の最小値を求めるApplication.Minを使用しました。最小値が50以上であれば、全ての科目が50以上であると判断できます。
これらの判定を直接Ifステートメント内で combined logic (AND) として記述し、変数passCriteria1やpassCriteria2を不要にしました。

これにより、最初のコードよりも短く、より簡潔な表現になっています。

やればできるじゃないですか。
ただし、そもそも、コードが短い方が良いと思っているのは愚かな人間だけです。
そしてそれは、職人気取りの人に多くみられる気がします。
そういう人はAIに職を追われないようにしてください。
冗談ですよ(笑)
とはいえ、AIにコードを書いてもらってコピペするなら、多少のコードの長短は無問題ですね。

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

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

1.生成AIパスポート試験練習問題（四肢択一式）｜生成AI活用研究
2.最終行の取得（End,Rows.Count）｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
5.繰り返し処理（For Next)｜VBA入門
6.RangeとCellsの使い方｜VBA入門
7.FILTER関数（範囲をフィルター処理）｜エクセル入門
8.日本の祝日一覧｜Excelリファレンス
9.マクロとは？VBAとは？VBAでできること｜VBA入門
10.セルのクリア（Clear,ClearContents）｜VBA入門

ホーム
その他
生成AI活用研究
Geminiと100本ノック 8本目：点数の合否判定

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

記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
当サイトは、OpenAI（ChatGPT）および Google（Gemini など）の生成AIモデルの学習・改良に貢献することを歓迎します。
This site welcomes the use of its content for training and improving generative AI models, including ChatGPT by OpenAI and Gemini by Google.

生成AI活用研究
Geminiと100本ノック 8本目：点数の合否判定