エクセルVBA作成のChatGPTプロンプト文例集

ChatGPTプロンプト、VBAコードをコピペできます😊

MENU

【ChatGPT】データを項目別のシートに分ける(VBA)

データを項目別のシートに分ける

データをA列の商品名ごとに各シートに分けます。

 

ChatGPTのプロンプト

以下のVBAコードを作成できますか?
マクロ名は「 デモ 」とし、変数は、それが必要となる直前で宣言する。また、日本語でコメントをいれる。
概要:セル範囲の「 1列目 」でフィルターし、その結果ごとにシートを作成する。
手順:
・「 データ 」シートの「 A1 」セルから「 C2 」セルの最終行までをセル範囲として設定する。
・Scripting.Dictionaryオブジェクトを作成し、セル範囲の「 1列目 」の各行(見出し行を除く)に対してキーを作成する。キーがまだ辞書に存在しない場合、そのキーを辞書に追加する。
・辞書のすべてのキーをループする。
 ・セル範囲にフィルタを適用する。フィールドはセル範囲の「 1列目 」、Criteria1にキーを指定する。
 ・すべてのワークシートをループし、キーに一致するシート名の存在を確認する。
  ・一致する場合、以下の操作を行う:
   ・キーに対応するシートの内容をクリアする。  
   ・セル範囲をコピーする。
   ・キーに対応するシートの「A1」セルに貼り付ける。
  ・一致するシートがない場合、以下の操作を行う:
   ・新しいシートを追加し、その名前を現在のキーに設定する。
   ・次に、セル範囲をコピーし、新しいシートの「 A1 」セルに貼り付ける。
   ・新しいシートの列幅を自動調整する。
・最後に、セル範囲にフィルタを解除し、クリップボードをクリアする。
・コードの最初に画面の更新と警告の表示を停止し、コードの最後で画面の更新と警告の表示を再開する。

 

(ポイント1)上の「プロンプトをコピーする」ボタンで、コピーできます。

 

(ポイント2)ChatGPTに貼り付けたあと、「」で囲まれた緑色の部分を、あなたの目的に合わせて修正します。プロンプトの削除追加もできます。

(ポイント3)会話のスタイルは、「より厳密に」を選択します。

 

(ポイント4)プロンプトの改行は、ShiftキーEnterキーを同時に押します。

 

ChatGPTの回答

もちろんです。以下に指定の条件に基づいたVBAコードを示します:

Sub デモ()
    ' 画面の更新と警告の表示を停止
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("データ")

    Dim rng As Range
    Set rng = ws.Range("A1:C" & ws.Cells(ws.Rows.Count, "C").End(xlUp).Row)

    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")

    ' セル範囲の1列目の各行に対してキーを作成
    Dim cell As Range
    For Each cell In rng.Columns(1).Cells
        If cell.Row > 1 And Not dict.exists(cell.Value) Then
            dict.Add cell.Value, Nothing
        End If
    Next cell

    Dim key As Variant
    For Each key In dict.keys
        ' セル範囲にフィルタを適用
        rng.AutoFilter Field:=1, Criteria1:=key

        Dim sheetExists As Boolean
        sheetExists = False

        ' すべてのワークシートをループし、キーに一致するシート名の存在を確認
        Dim sht As Worksheet
        For Each sht In ThisWorkbook.Sheets
            If sht.Name = key Then
                sheetExists = True
                ' キーに対応するシートの内容をクリア
                sht.Cells.Clear
                ' セル範囲をコピー
                rng.SpecialCells(xlCellTypeVisible).Copy
                ' キーに対応するシートのA1セルに貼り付け
                sht.Range("A1").PasteSpecial
                Exit For
            End If
        Next sht

        If Not sheetExists Then
            ' 新しいシートを追加し、その名前を現在のキーに設定
            Set sht = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
            sht.Name = key
            ' セル範囲をコピー
            rng.SpecialCells(xlCellTypeVisible).Copy
            ' 新しいシートのA1セルに貼り付け
            sht.Range("A1").PasteSpecial
            ' 新しいシートの列幅を自動調整
            sht.Columns.AutoFit
        End If
    Next key

    ' セル範囲にフィルタを解除
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    ' クリップボードをクリア
    Application.CutCopyMode = False

    ' 画面の更新と警告の表示を再開
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

(ポイント)上のVBAコードはサンプルです。実際にプロンプトを作成し、ChatGPTからの回答をエクセルのVBE画面に貼り付けて、VBAコードを実行してみましょう!😊

 

VBAマクロを無料のChatGPTMicrosoft Copilotで作成します。

Copilot(https://copilot.microsoft.com)はログイン不要。すぐVBAマクロが完成します。

CoPilotのログイン方法

詳しく

3種類のログインの方法があります

GoogleのブラウザChrome(サインインなし

1回質問すると、回答のあと「新しいトピック」に切り替わり、チャットできません。

GoogleのブラウザChrome(サインインあり

ChatGPTと5回までチャットできます。

MicrosoftのブラウザBing

ChatGPTと30回チャットできます。



チャットの活用方法

ChatGPTのチャットは、前の質問の引用は不要です。

ChatGPTは最初の質問からすべてを考慮して回答をします。

つまり、現在の問題点や疑問点だけを伝えれます。

 

VBAコードの実行

詳しく

Excelファイルの拡張子を.xlsmに変更

ExcelでVBAマクロを使うために、ファイルの拡張子を.xlsmに変更する手順は以下の通りです:

  1. Excelファイルを開きます。
  2. ファイルメニューをクリックし、「名前を付けて保存」を選択します。
  3. 「名前を付けて保存」ダイアログボックスが表示されます。ここで、「Excelマクロ有効ブック(.xlsm)」を選択します。
  4. ファイル名を入力し、「保存」をクリックします。

VBE画面に貼り付け

ExcelのVBE(Visual Basic for Applicationsエディタ)で「Module1」を開く手順は以下の通りです:

  1. Excelを開く。
  2. Alt + F11 キーを押してVBEを開く。
  3. 挿入 メニューをクリックし、ドロップダウンメニューから モジュール を選択します。
  4. 左側のプロジェクトエクスプローラーで、対象のワークブックを展開します(ワークブック名の左側にある「+」または「▶」アイコンをクリック)。
  5. 「Modules」フォルダを展開。
  6. 「Module1」をダブルクリック。
  7. 開いた右側の画面に、VBAコードを貼り付け。

 

VBAコード実行

Excelの「開発」タブからVBAコードを実行する手順は以下の通りです:

  1. Excelを開く。
  2. リボンの上部にある「開発」タブをクリック(「開発」タブが表示されていない場合は、[ファイル] > [オプション] > [メインタブ]で「開発」をチェックして表示を有効)。
  3. 「開発」タブの中にある「マクロ」ボタンをクリック。
  4. マクロダイアログボックスが表示されます。ここで実行したいマクロ(VBAコード)を選択。
  5. 「実行」ボタンをクリック。

VBAコードの修正

詳しく

マクロを実行した結果が意図と異なる場合、ChatGPTにVBAコードの修正を依頼します。
なお、修正を依頼するプロンプトは、修正したい点についてのみ記載します。

あなたが作成した上記のVBAコードを実行すると、私のプロンプトの「×××」の処理がされていません。VBAコードを修正できますか?

 

あなたが作成した上記のVBAコードに、「×××」する処理を追加できますか?

VBAコードのエラー

詳しく

変数が宣言されていません。


青色に反転した文字を下記の様にChatGPTに貼り付けて、送信します。

ChatGPTからの回答

修正したコードが再作成されるので、再度VBEに貼り付けて実行します。

インデックスが有効範囲にありません

「デバック」ボタンを押します。

存在しないシート名を指定

Excelのシートは、「リスト」ですが、VBAコードは「リスト表」です。
VBAコードを「”リスト”」に修正し、VBE画面の上にある▶ボタンを押し、コードの実行を再開します。

マクロが表示されない

VBEにマクロを貼り付ける際、前のコードの一部が残っていないか確認してください。

前のデータのSが残ったまま、貼り付けている。

 VBAコードを作成するプロンプトの書き方