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

Geminiと100本ノック 6本目：セルに計算式

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

VBA100本ノックの出題と解答

Geminiへの出題とGeminiの回答

Geminiの回答	Geminiへの出題
	VBA問題 画像のようにA1から始まる表があります。 D列にB列×C列の計算式を入れてください。 ただし商品コードに"-"の枝番が付いている場合は計算式を入れずそのままにしてください。 例.D2にはA2×B2の計算式を入れる。D4:D5には計算式を入れない。
はい、承知いたしました。画像のような表に対して、A列の「商品コード」にハイフンが含まれていない行のD列に、B列×C列の計算式を入力するVBAコードを作成します。 以下のVBAコードをVBE（VBAエディタ）に貼り付けて実行してください。 VBA Sub CalculateAmount() 　Dim lastRow As Long 　Dim i As Long 　' データの最終行を取得 　' A列を基準に最終行を判定します 　lastRow = Cells(Rows.Count, "A").End(xlUp).Row 　' 2行目から最終行までループ 　For i = 2 To lastRow 　　' A列の値にハイフンが含まれているかチェック 　　If InStr(Cells(i, "A").Value, "-") = 0 Then 　　　' ハイフンが含まれていない場合、D列に計算式を入力 　　　Cells(i, "D").Formula = "=" & Cells(i, "B").Address(False, False) & "*" & Cells(i, "C").Address(False, False) 　　End If 　Next i End Sub コードの説明: Sub CalculateAmount(): このプロシージャ名でVBAコードが開始されます。 Dim lastRow As Long: データの最終行を格納するための変数を宣言します。 Dim i As Long: ループカウンターとして使用する変数を宣言します。 lastRow = Cells(Rows.Count, "A").End(xlUp).Row: A列の一番下から上に辿って、データが入力されている最終行の行番号を取得します。 For i = 2 To lastRow: 2行目から取得した最終行まで、各行に対して処理を繰り返します。（1行目はヘッダーなのでスキップします） If InStr(Cells(i, "A").Value, "-") = 0 Then: InStr関数を使って、現在の行のA列の値にハイフン("-")が含まれているかを確認します。 InStr(文字列, 検索文字)は、文字列の中に検索文字が見つかった場合にその位置を返します。見つからなかった場合は0を返します。 = 0 なので、ハイフンが見つからなかった場合（ハイフンが含まれていない場合）に条件が真となります。 Cells(i, "D").Formula = "=" & Cells(i, "B").Address(False, False) & "*" & Cells(i, "C").Address(False, False): ハイフンが含まれていない場合、現在の行のD列に計算式を入力します。 Cells(i, "D").Formula: 現在の行のD列のセルに対して、計算式を設定することを示します。 Cells(i, "B").Address(False, False): 現在の行のB列のセルのアドレスを絶対参照（例: B2）ではなく相対参照（例: B2）で取得します。False, Falseは行と列の絶対参照指定をオフにしています。 Cells(i, "C").Address(False, False): 同様に、現在の行のC列のセルのアドレスを相対参照で取得します。 "=" & ... & "*": これらを組み合わせて、例えば =B2*C2 のような計算式文字列を作成し、D列のセルに設定します。 Next i: ループの次の行に進みます。 End Sub: プロシージャの終了です。 VBAコードの実行方法: Excelを開き、Alt + F11キーを押してVBEを起動します。 VBEのメニューバーから「挿入」>「標準モジュール」を選択します。 表示されたコードウィンドウに上記のVBAコードを貼り付けます。 Excelシートに戻り、Alt + F8キーを押して「マクロ」ダイアログを表示します。 リストから「CalculateAmount」を選択し、「実行」ボタンをクリックします。 これにより、A列の商品コードにハイフンが含まれていない行のD列に、B列とC列を掛け合わせる計算式が入力されます。

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

Geminiの回答	Geminiへの出題
	R1C1形式でセルに計算式を入れてください。
承知いたしました。D列に計算式をR1C1形式で入力するVBAコードを作成します。 先ほどのコードの計算式を入力する部分を、R1C1形式に対応するように変更します。 VBA Sub CalculateAmount_R1C1() 　Dim lastRow As Long 　Dim i As Long 　' データの最終行を取得 　' A列を基準に最終行を判定します 　lastRow = Cells(Rows.Count, "A").End(xlUp).Row 　' 2行目から最終行までループ 　For i = 2 To lastRow 　　' A列の値にハイフンが含まれているかチェック 　　If InStr(Cells(i, "A").Value, "-") = 0 Then 　　　' ハイフンが含まれていない場合、D列にR1C1形式の計算式を入力 　　　' D列(列番号4)から見て、B列(列番号2)は -2 のオフセット 　　　' D列(列番号4)から見て、C列(列番号3)は -1 のオフセット 　　　Cells(i, "D").FormulaR1C1 = "=RC[-2]*RC[-1]" 　　End If 　Next i End Sub 変更点: Cells(i, "D").Formula = ... の代わりに Cells(i, "D").FormulaR1C1 = "... を使用しています。 入力する計算式文字列をR1C1形式の "=RC[-2]*RC[-1]" に変更しました。 RC は、計算式が入力されるセル（現在の行、現在の列 = D列）を指します。 RC[-2] は、現在の行の、現在の列から左に2列目のセル（つまりB列）を指します。 RC[-1] は、現在の行の、現在の列から左に1列目のセル（つまりC列）を指します。 したがって、=RC[-2]*RC[-1] は「現在の行のB列の値」と「現在の行のC列の値」を掛け合わせる計算式になります。 VBAコードの実行方法: 実行方法は先ほどと同様です。 Excelを開き、Alt + F11キーを押してVBEを起動します。 「挿入」>「標準モジュール」を選択し、上記のVBAコードを貼り付けます。 Excelシートに戻り、Alt + F8キーでマクロダイアログを開きます。 「CalculateAmount_R1C1」を選択し、「実行」ボタンをクリックします。 これにより、対象となるD列のセルにR1C1形式の =RC[-2]*RC[-1] という計算式が入力されます。