コードを添付して、プロンプトを短くする事例

通常のプロンプト

下記の処理の概要に沿ったVBAコードを作成できますか？
マクロ名：「 デモ 」
概要： 
指定したセル範囲を、「 ２つ 」の条件でフィルターし、その結果をコピーする。
手順：
・「 Sheet1 」シートのセル範囲「 A1 」セルから「 D1 」セルの最終行のセルまでを選択する。
・選択した範囲にオートフィルタを適用する。
・選択した範囲の「 １列目 」を「 りんご 」、および「 2列目 」を「 100 」でフィルターする。
全体的な指針：
・コードの最初に画面の更新と警告の表示を停止し、コードの最後でそれらを再開する。

プロンプトは１０行です。

VBAコードを添付したプロンプト

下記のフィルター条件を、「 １列目 」を「 りんご 」、および「 2列目 」を「 100 」に変更できますか？
コード： 
Sub デモ() 'フィルター条件１つ
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim  cellRange As String, myCell As Range, bottomRightCell As String
Sheets("Sheet1").Select
Dim lastRow As Long
lastRow = Cells(Rows.Count, Range("A1").Column).End(xlUp).Row
cellRange = "a1" & ":" & Cells(lastRow, Range("d1").Column).Address(False, False)
Range(cellRange).Select
Application.Calculation = xlCalculationManual
Range(cellRange).AutoFilter Field:= 1, Criteria1:="=りんご"
Application.Calculation = xlCalculationAutomatic
Application.DisplayAlerts = true
Application.ScreenUpdating = True
End Sub 

コードの部分を除いたプロンプトは２行です。

なお、上記の灰色のコードはアプリの空欄を埋めるだけで作成できます。

結論

通常のプロンプトは１０行ですが、コードを添付すると２行です。

プロンプトが短いため、プロンプト作成で悩みません。

また、プロンプトの作成には様々な作法がありますが、コードの添付は「コード：」と書いて、コードを貼り付けるだけです。