生成AI活用研究
Geminiと100本ノック 5本目：セルの計算

Geminiと100本ノック 5本目：セルの計算

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

VBA100本ノックの出題と解答

Geminiへの出題とGeminiの回答

Geminiの回答	Geminiへの出題
	VBA問題 画像のようにB2から始まる表があります。 B列×C列を計算した値をD列に入れ、通貨\のカンマ編集で表示してください。 ただしB列またはC列が空欄の場合は空欄表示にしてください。 例.D3にはB3×C3の計算結果の値を「\234,099」で表示、D5は空欄 ※ブック・シートは任意
VBA Sub CalculateAmount() Dim ws As Worksheet Dim lastRow As Long Dim i As Long Dim cellB As Range Dim cellC As Range Dim cellD As Range ' アクティブなシートを設定（必要に応じてシート名を変更してください） Set ws = ThisWorkbook.ActiveSheet ' データの最終行を取得 lastRow = ws.Cells(Rows.Count, "B").End(xlUp).Row ' データがある行（2行目から最終行まで）をループ For i = 2 To lastRow ' 各列のセルを設定 Set cellB = ws.Cells(i, "B") Set cellC = ws.Cells(i, "C") Set cellD = ws.Cells(i, "D") ' B列とC列の両方が空欄でないかチェック If Not IsEmpty(cellB.Value) And Not IsEmpty(cellC.Value) Then ' 計算結果をD列に格納し、通貨表示にフォーマット cellD.Value = cellB.Value * cellC.Value cellD.NumberFormat = "\#,##0" ' 通貨（円）のカンマ区切りフォーマット Else ' B列またはC列が空欄の場合はD列を空欄にする cellD.ClearContents End If Next i MsgBox "計算が完了しました。", vbInformation End Sub コードの説明: Sub CalculateAmount(): このプロシージャがVBAの実行開始点です。 Dim ws As Worksheet, Dim lastRow As Long, Dim i As Long, Dim cellB As Range, Dim cellC As Range, Dim cellD As Range: 使用する変数とオブジェクトを宣言しています。 Set ws = ThisWorkbook.ActiveSheet: 現在アクティブなシートを対象とします。もし特定のシート名を指定したい場合は、Set ws = ThisWorkbook.Sheets("シート名")のように変更してください。 lastRow = ws.Cells(Rows.Count, "B").End(xlUp).Row: B列の最終行を取得します。これにより、データの範囲を正確に判断します。 For i = 2 To lastRow: 2行目から最終行まで、各行をループ処理します。 Set cellB = ws.Cells(i, "B"), Set cellC = ws.Cells(i, "C"), Set cellD = ws.Cells(i, "D"): 現在の行のB、C、D列のセルをそれぞれオブジェクトとして設定します。 If Not IsEmpty(cellB.Value) And Not IsEmpty(cellC.Value) Then: B列とC列のセルの値が両方とも空欄でない場合に処理を実行します。 cellD.Value = cellB.Value * cellC.Value: B列の値とC列の値を乗算し、その結果をD列のセルに代入します。 cellD.NumberFormat = "\#,##0": D列のセルの表示形式を通貨（円）のカンマ区切りにします。\記号と#,##0の組み合わせで、画像のような表示になります。 Else: B列またはC列のどちらか、あるいは両方が空欄の場合の処理です。 cellD.ClearContents: D列のセルの内容を消去し、空欄にします。 Next i: ループの次の行へ進みます。 MsgBox "計算が完了しました。", vbInformation: 計算が終了したことをユーザーに知らせるメッセージボックスを表示します。 このコードをExcelのVBAエディターに貼り付けて実行すると、指定された処理が行われます。

VBAの回答としては素晴らしいです。
完璧です。
ですが・・・
なぜインデントされていないのでしょうか・・・

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

Geminiの回答	Geminiへの出題
	インデントしてください。
はい、承知いたしました。先ほどのVBAコードにインデントを付けて、読みやすく整形します。 VBA Sub CalculateAmount() 　　Dim ws As Worksheet 　　Dim lastRow As Long 　　Dim i As Long 　　Dim cellB As Range 　　Dim cellC As Range 　　Dim cellD As Range 　　' アクティブなシートを設定（必要に応じてシート名を変更してください） 　　Set ws = ThisWorkbook.ActiveSheet 　　' データの最終行を取得 　　lastRow = ws.Cells(Rows.Count, "B").End(xlUp).Row 　　' データがある行（2行目から最終行まで）をループ 　　For i = 2 To lastRow 　　　　' 各列のセルを設定 　　　　Set cellB = ws.Cells(i, "B") 　　　　Set cellC = ws.Cells(i, "C") 　　　　Set cellD = ws.Cells(i, "D") 　　　　' B列とC列の両方が空欄でないかチェック 　　　　If Not IsEmpty(cellB.Value) And Not IsEmpty(cellC.Value) Then 　　　　　　' 計算結果をD列に格納し、通貨表示にフォーマット 　　　　　　cellD.Value = cellB.Value * cellC.Value 　　　　　　cellD.NumberFormat = "\#,##0" ' 通貨（円）のカンマ区切りフォーマット 　　　　Else 　　　　　　' B列またはC列が空欄の場合はD列を空欄にする 　　　　　　cellD.ClearContents 　　　　End If 　　Next i 　　MsgBox "計算が完了しました。", vbInformation End Sub このようにインデントすることで、ForループやIf...Else...End Ifの構造が視覚的に分かりやすくなります。