生成AI活用研究
Geminiと100本ノック 1本目：セルのコピー

Geminiと100本ノック 1本目：セルのコピー

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

VBA100本ノックの出題と解答

Geminiへの出題とGeminiの回答

Geminiの回答	Geminiへの出題
	VBA問題 「Sheet1」のA1:C5のセル範囲を、「Sheet2」のA1:C5にコピーしてください。 値も数式も書式も全てコピーしてください。 ただしSelectメソッドは使用禁止 ※行高と列幅の設定はしなくて良い。
承知しました。「Sheet1」のA1:C5セル範囲を「Sheet2」のA1:C5に、Selectメソッドを使用せずにコピーするVBAコードです。 VBA Sub CopyRangeWithoutSelect() 　　Dim sourceRange As Range 　　Dim destinationRange As Range 　　' コピー元の範囲をSheet1に設定 　　Set sourceRange = ThisWorkbook.Sheets("Sheet1").Range("A1:C5") 　　' コピー先の範囲をSheet2に設定 　　Set destinationRange = ThisWorkbook.Sheets("Sheet2").Range("A1:C5") 　　' コピー元の範囲をコピー先の範囲に全て（値、数式、書式）コピー 　　sourceRange.Copy Destination:=destinationRange 　　' オブジェクトの解放 　　Set sourceRange = Nothing 　　Set destinationRange = Nothing End Sub コードの説明: Dim sourceRange As Range および Dim destinationRange As Range で、コピー元とコピー先のセル範囲を格納するための変数Sを宣言します。 Set sourceRange = ThisWorkbook.Sheets("Sheet1").Range("A1:C5") で、sourceRange変数に「Sheet1」のA1からC5までの範囲を設定します。ThisWorkbookを使用することで、マクロが実行されているブックのシートを指定します。 Set destinationRange = ThisWorkbook.Sheets("Sheet2").Range("A1:C5") で、destinationRange変数に「Sheet2」のA1からC5までの範囲を設定します。 sourceRange.Copy Destination:=destinationRange がコピーを実行する主要な行です。sourceRangeのCopyメソッドを使用し、Destination:=destinationRangeでコピー先を直接指定しています。これにより、Selectメソッドを使用することなくコピーが実行されます。この方法でコピーすると、値、数式、書式など、セルに含まれる全ての情報がコピーされます。 Set sourceRange = Nothing および Set destinationRange = Nothing で、使用したオブジェクト変数を解放しています。これは必須ではありませんが、メモリ管理の観点から推奨される習慣です。 このコードをVBAエディタに貼り付けて

素晴らしい、満点回答です。
・・・
私の回答とほぼ同じ