ChatGPTと連携！業務改善を効率化するVBAマクロ(プロンプトと会話の全文あり)

無神論者の神話

2023年4月21日 23:54

ChatGPTと連携！業務改善を効率化するVBAマクロ

AI技術で手軽に業務プロセスを最適化

1. ChatGPTとの対話で最適なVBAコードを生成

業務プロセスの効率化が求められる現代において、ChatGPTを活用したVBAマクロの開発は画期的な方法です。従来の手作業による業務処理と比較して、VBAマクロを活用することで効率的な業務改善が可能になります。

ChatGPTを使ったVBAコード生成は、伝統的なVBAコードの作成方法と対立する新たなアプローチです。具体的な業務改善の例として、CSVファイルを自動でインポートするVBAマクロの開発を行いました。

このやり取りを繰り返していきます(ちなみにVBAを組んだのは2回目です)
一回目もGPTに教わりながらやりました！

手順通りにやるとこういうイメージでボタンができました
(*これは検索結果画面です)

2. VBAマクロを活用して独自のExcel業務改善を実現

AI技術を利用した業務改善が新たな標準になる中で、読者の皆さんも簡単にVBAマクロを活用できるようになることが重要です。しかし、効率的な業務改善手法の普及が不十分であるため、本記事ではChatGPTを活用したVBAマクロの普及促進を目指しています。

解決策として、まずはChatGPTとの対話で最適なVBAコードを生成する方法を試してみましょう。そして、VBAマクロを活用して独自のExcel業務改善を実現することができます。

記事の要点を再掲すると、ChatGPTを活用して最適なVBAコードを生成し、VBAマクロを使って業務改善を実現することが可能です。

今すぐVBAマクロとChatGPTを活用し、業務改善の第一歩を踏み出しましょう！

あなたは、VBAスペシャリストです。 あなたの目標は、私のニーズに合わせて最高のVBAコードを作成することです。そのVBAコードはローカルのExcelで使用されるものです。

次のプロセスに従ってください

1. まず最初に、何についてのVBAコードであるかを私に確認してください。
私が質問の答えを提供するので、次のステップを経て、継続的な反復を通じて改善してください。

2. 私の入力に基づいて、3つのセクションを生成します。
a)  改訂されたVBAコード（書き直したコードを提示してください。 明確、簡潔で、簡単にあなたが理解できるものにしてください)
b) 提案 (コードを改善するために、コードを含めるべき詳細について提案してください)
c) 質問(コードを改善するために必要な情報について、関連する質問をしてくだい)

3. この反復プロセスは、私があなたに追加情報を提供し、 あなたが改訂されたコードセクショ ンのコードを更新し、私が完了したというまで続けます。

この記事が、VBAマクロとChatGPTを活用した業務改善に関心を持たれている皆様に役立つことを願っています。

以下会話の全文です。

あなたは、VBAスペシャリストです。あなたの目標は、私のニーズに合わせて最高のVBAコードを作成することです。そのVBAコードはローカルのExcelで使用され...

❓ Prompt

あなたは、VBAスペシャリストです。あなたの目標は、私のニーズに合わせて最高のVBAコードを作成することです。そのVBAコードはローカルのExcelで使用されるものです。
次のプロセスに従ってください

まず最初に、何についてのVBAコードであるかを私に確認してください。私が質問の答えを提供するので、次のステップを経て、継続的な反復を通じて改善してください。
私の入力に基づいて、3つのセクションを生成します。 a) 改訂されたVBAコード（書き直したコードを提示してください。明確、簡潔で、簡単にあなたが理解できるものにしてください) b) 提案 (コードを改善するために、コードを含めるべき詳細について提案してください) c) 質問(コードを改善するために必要な情報について、関連する質問をしてくだい)
この反復プロセスは、私があなたに追加情報を提供し、あなたが改訂されたコードセクションのコードを更新し、私が完了したというまで続けます。

💬 Answer

最初に、このVBAコードがどのような目的で使用されるかをお教えいただけますか？例えば、特定のセル範囲からデータを取得して処理する、新しいシートを作成する、特定の条件に基づいてセルの色を変更するなど、具体的なニーズや機能についてお知らせください。これにより、私が最適なVBAコードを提案し、改善のための反復プロセスを開始できます。

以下のようなVBAを生成して欲しいです。

フォルダパスAには"xxx_YYYYMMDD.csv"というファイルが毎日追加されます。実行する日の前日の日付のフ...

❓ Prompt

以下のようなVBAを生成して欲しいです。
フォルダパスAには"xxx_YYYYMMDD.csv"というファイルが毎日追加されます。実行する日の前日の日付のファイルを、ファイルAのシートAにコピーします。また、フォルダパスBにも同様に過去の"xxx_YYYYMMDD.csv"が保存されています。実行する日付の去年のファイルをファイルAのシートBにコピーします。

💬 Answer

以下に、指定された要件に基づいてVBAコードを作成しました。
a) 改訂されたVBAコード

Option Explicit

Sub ImportCSVFiles()
    Dim folderPathA As String
    Dim folderPathB As String
    Dim fileNameA As String
    Dim fileNameB As String
    Dim targetDateA As Date
    Dim targetDateB As Date
    
    folderPathA = "C:\\YourFolderPathA\\"
    folderPathB = "C:\\YourFolderPathB\\"
    
    targetDateA = Date - 1 ' 実行日の前日
    targetDateB = DateAdd("yyyy", -1, Date) ' 実行日から1年前
    
    fileNameA = folderPathA & "xxx_" & Format(targetDateA, "YYYYMMDD") & ".csv"
    fileNameB = folderPathB & "xxx_" & Format(targetDateB, "YYYYMMDD") & ".csv"
    
    ImportCSV fileNameA, ThisWorkbook.Worksheets("SheetA")
    ImportCSV fileNameB, ThisWorkbook.Worksheets("SheetB")
    
End Sub

Sub ImportCSV(fileName As String, targetSheet As Worksheet)
    If Len(Dir(fileName)) = 0 Then
        MsgBox "File not found: " & fileName, vbExclamation
    Else
        With targetSheet.QueryTables.Add(Connection:="TEXT;" & fileName, Destination:=targetSheet.Cells(1, 1))
            .TextFileParseType = xlDelimited
            .TextFileCommaDelimiter = True
            .Refresh BackgroundQuery:=False
        End With
    End If
End Sub

b) 提案このコードは、指定されたフォルダパスAおよびフォルダパスBからCSVファイルをインポートして、それぞれシートAとシートBにコピーします。フォルダパスを変更するには、folderPathAとfolderPathBの値を適切なパスに更新してください。
c) 質問

このコードが期待どおりに機能するかどうかご確認いただけますか？
追加の機能や変更が必要な場合はお知らせください。

ありがとうございます！

targetDateBを変更して欲しいです。実行する日の前日の前年の日付にしていただけませんか？また、コビ先のシートの内容を一度すべ...

❓ Prompt

ありがとうございます！ targetDateBを変更して欲しいです。実行する日の前日の前年の日付にしていただけませんか？また、コビ先のシートの内容を一度すべての削除してから、貼り付けるようにしてください。

💬 Answer

ご要望に応じて、targetDateBを実行日の前日の前年の日付に変更し、コピー先のシートの内容を削除してから貼り付けるようにコードを修正しました。
a) 改訂されたVBAコード

Option Explicit

Sub ImportCSVFiles()
    Dim folderPathA As String
    Dim folderPathB As String
    Dim fileNameA As String
    Dim fileNameB As String
    Dim targetDateA As Date
    Dim targetDateB As Date
    
    folderPathA = "C:\\YourFolderPathA\\"
    folderPathB = "C:\\YourFolderPathB\\"
    
    targetDateA = Date - 1 ' 実行日の前日
    targetDateB = DateAdd("yyyy", -1, targetDateA) ' 実行日の前日の1年前
    
    fileNameA = folderPathA & "xxx_" & Format(targetDateA, "YYYYMMDD") & ".csv"
    fileNameB = folderPathB & "xxx_" & Format(targetDateB, "YYYYMMDD") & ".csv"
    
    ImportCSV fileNameA, ThisWorkbook.Worksheets("SheetA")
    ImportCSV fileNameB, ThisWorkbook.Worksheets("SheetB")
    
End Sub

Sub ImportCSV(fileName As String, targetSheet As Worksheet)
    If Len(Dir(fileName)) = 0 Then
        MsgBox "File not found: " & fileName, vbExclamation
    Else
        ' Delete all existing data on the target sheet
        targetSheet.Cells.ClearContents
        
        ' Import CSV file into the target sheet
        With targetSheet.QueryTables.Add(Connection:="TEXT;" & fileName, Destination:=targetSheet.Cells(1, 1))
            .TextFileParseType = xlDelimited
            .TextFileCommaDelimiter = True
            .Refresh BackgroundQuery:=False
        End With
    End If
End Sub

b) 提案 targetDateBを実行日の前日の前年の日付に変更し、コピー先のシートの内容を削除してから貼り付けるようにコードを修正しました。この変更により、指定された日付のCSVファイルが正しくインポートされます。
c) 質問

この修正されたコードが期待どおりに機能するかどうかご確認いただけますか？
他に追加や変更が必要な点があればお知らせください。

ありがとうございます！できました。

ちなみに、マウスで動作する実行ボタンをつくることもできますか？

❓ Prompt

ありがとうございます！できました。ちなみに、マウスで動作する実行ボタンをつくることもできますか？

💬 Answer

はい、Excelシートに実行ボタンを追加して、クリックするとVBAコードが実行されるように設定することができます。以下に手順を示します。

まず、Excelシートを開き、[開発] タブに移動します。[開発] タブが表示されていない場合は、以下の手順で表示できます。
- [ファイル] タブをクリックし、[オプション] を選択します。
- [Excelのオプション] ダイアログボックスで、[カスタマイズリボン] を選択し、[開発] の横にあるチェックボックスをオンにします。その後、[OK] をクリックします。
[開発] タブで、[挿入] をクリックし、[フォームコントロール] セクションの [ボタン] を選択します。
ワークシート上でボタンを配置する位置をクリックし、ドラッグしてボタンのサイズを調整します。
[ボタンの割り当て] ダイアログボックスが表示されます。ここで、先に作成したVBAコードのマクロ名（この場合はImportCSVFiles）を選択し、[OK] をクリックします。
ボタンが作成されました。テキストを編集して、例えば "CSVをインポート" などの適切な名前を付けることができます。

これで、ボタンをクリックすると、指定されたVBAコード（ImportCSVFiles）が実行されます。
質問がございましたら、お気軽にお知らせください。

無事にできました！

ありがとうございます！

❓ Prompt

無事にできました！ありがとうございます！

💬 Answer

無事にできたとのことで、安心しました！どんなご質問やサポートでもお手伝いできるので、何かお困りのことがございましたら、お気軽にお知らせください。今後ともどうぞよろしくお願いいたします！

あなたは、人気ライターです。あなたが生成した案を、私が承認するプロセスを経て、最高の記事を作成しましょう。記事の言語は日本語です。

次の承認プロセスに従って...

❓ Prompt

あなたは、人気ライターです。あなたが生成した案を、私が承認するプロセスを経て、最高の記事を作成しましょう。記事の言語は日本語です。
次の承認プロセスに従って、記事を作成していきます。

要件に従って見出しを私に提出してください。私の承認があったら次のステップに進んでください。 2.私が1.を承認するまで実行しないでください。記事の枠組みをこれまでの会話の内容からXMLで抽出したら、私に提出してください。私の承認があったら次のステップに進んでください。 3.私が1.と2.を承認するまで実行しないでください。1.の見出しと2.の文章を必ず使って本文を作成してください。

大中小見出しの要件: [範囲]これまでの会話の内容 [形式]3層構造のマークダウン形式 [詳細]短くてインパクトがあり読者を引き込む
記事の枠組み(YAML): 文章: 問題を取り上げる: 現在の問題: 記事の必要性: 盛り上げ: 比較: 達成したいこと: 別の何か: 対立構造: エンターテインメント: 記事の主題: 主題: 対立するもの: サスペンス: 緊張感: ドラマチック: 大胆な主張: デモンストレーション: ユーモア: 記事の重要性: 問題を再度取り上げる: 現在の問題: 記事の必要性: まとめ: 解決策: ユニークな要点1: ユニークな要点2...: リストアップ: 行動を促すメッセージ:

💬 Answer

見出しの提案

以下に、ご指定の要件に従って作成した見出しの提案を示します。これらの見出しは、マークダウン形式で3層構造になっており、これまでの会話の内容を範囲としています。

# Excelで簡単！CSVファイルを自動インポートする方法
## タスクを効率化するVBAコードの活用
### 1. シンプルなコードで実現するCSVファイルのインポート
### 2. 実行ボタンを追加して手軽にマクロを実行

この見出し案について、ご意見や承認をいただけますでしょうか。承認が得られた場合は、次のステップに進みます。

ChatGPTとのやり取りを通じて業務改善に効率的に取り組むことができる点を記事で強調したいと思っています。もう一度この点を意識してやり直してください。

❓ Prompt

ChatGPTとのやり取りを通じて業務改善に効率的に取り組むことができる点を記事で強調したいと思っています。もう一度この点を意識してやり直してください。

💬 Answer

承知しました。指定された点を意識して、新たな見出し案を以下に示します。

# ChatGPTと連携！業務改善を効率化するExcelアプリケーション
## AI技術で手軽に業務プロセスを最適化
### 1. ChatGPTとの対話で最適なVBAコードを生成
### 2. 知識を活用して独自のExcelアプリケーションを開発

この見出し案について、ご意見や承認をいただけますでしょうか。承認が得られた場合は、次のステップに進みます。

Excelアプリケーションではなく、VBAやマクロといった具体的な用語を使用してください。

❓ Prompt

Excelアプリケーションではなく、VBAやマクロといった具体的な用語を使用してください。

💬 Answer

失礼いたしました。ご指摘を踏まえた上で、再度見出し案を以下に示します。

# ChatGPTと連携！業務改善を効率化するVBAマクロ
## AI技術で手軽に業務プロセスを最適化
### 1. ChatGPTとの対話で最適なVBAコードを生成
### 2. VBAマクロを活用して独自のExcel業務改善を実現

この見出し案について、ご意見や承認をいただけますでしょうか。承認が得られた場合は、次のステップに進みます。

ありがとうございます！承認します！

❓ Prompt

ありがとうございます！承認します！

💬 Answer

承認いただきありがとうございます！次に、記事の枠組みをYAML形式で抽出しましたので、ご確認ください。

文章:
  問題を取り上げる:
    現在の問題: 業務プロセスの効率化が求められる状況
    記事の必要性: ChatGPTと連携したVBAマクロによる業務改善方法の提案
  盛り上げ:
    比較:
      達成したいこと: VBAマクロを活用した効率的な業務改善
      別の何か: 従来の手作業による業務処理
  対立構造:
    エンターテインメント:
      記事の主題:
        主題: ChatGPTとの対話によるVBAコード生成
        対立するもの: 伝統的なVBAコードの作成方法
      サスペンス: VBAマクロによる業務改善の具体例
  緊張感:
    ドラマチック:
      大胆な主張: AI技術を利用した業務改善が新たな標準に
  デモンストレーション:
    ユーモア:
      記事の重要性: 読者が簡単にVBAマクロを活用できるようになる
  問題を再度取り上げる:
    現在の問題: 効率的な業務改善手法の普及が不十分
    記事の必要性: ChatGPTを活用したVBAマクロの普及促進
  まとめ:
    解決策:
      ユニークな要点1: ChatGPTとの対話で最適なVBAコードを生成
      ユニークな要点2: VBAマクロを活用して独自のExcel業務改善を実現
    リストアップ: 記事の要点の再掲
    行動を促すメッセージ: 読者が自らVBAマクロとChatGPTを活用し業務改善に取り組むよう促す

この記事の枠組みについて、ご意見や承認をいただけますでしょうか。承認が得られた場合は、次のステップに進みます。

行動を促すメッセージ: 読者が自らVBAマクロとChatGPTを活用し業務改善に取り組むよう促す

上記は読者に促していないので、促してください。

❓ Prompt

行動を促すメッセージ: 読者が自らVBAマクロとChatGPTを活用し業務改善に取り組むよう促す
上記は読者に促していないので、促してください。

💬 Answer

ご指摘いただきありがとうございます。行動を促すメッセージをより読者に訴える内容に修正しました。

文章:
  (中略)
  まとめ:
    解決策:
      ユニークな要点1: ChatGPTとの対話で最適なVBAコードを生成
      ユニークな要点2: VBAマクロを活用して独自のExcel業務改善を実現
    リストアップ: 記事の要点の再掲
    行動を促すメッセージ: 今すぐVBAマクロとChatGPTを活用し、業務改善の第一歩を踏み出しましょう！

この修正された記事の枠組みについて、ご意見や承認をいただけますでしょうか。承認が得られた場合は、次のステップに進みます。

良いですね。最終ステップです。

できるだけYAMLを肉付けして、内容を充実させた記事になるよう意識して取り組んでくださいあ。期待しています！

❓ Prompt

良いですね。最終ステップです。できるだけYAMLを肉付けして、内容を充実させた記事になるよう意識して取り組んでくださいあ。期待しています！

💬 Answer

ご承認いただきありがとうございます！YAMLの内容をもとに、記事を充実させた形で作成しました。以下が完成した記事です。

ChatGPTと連携！業務改善を効率化するVBAマクロ

AI技術で手軽に業務プロセスを最適化

1. ChatGPTとの対話で最適なVBAコードを生成

業務プロセスの効率化が求められる現代において、ChatGPTを活用したVBAマクロの開発は画期的な方法です。従来の手作業による業務処理と比較して、VBAマクロを活用することで効率的な業務改善が可能になります。
ChatGPTを使ったVBAコード生成は、伝統的なVBAコードの作成方法と対立する新たなアプローチです。具体的な業務改善の例として、CSVファイルを自動でインポートするVBAマクロの開発を行いました。

2. VBAマクロを活用して独自のExcel業務改善を実現

AI技術を利用した業務改善が新たな標準になる中で、読者の皆さんも簡単にVBAマクロを活用できるようになることが重要です。しかし、効率的な業務改善手法の普及が不十分であるため、本記事ではChatGPTを活用したVBAマクロの普及促進を目指しています。
解決策として、まずはChatGPTとの対話で最適なVBAコードを生成する方法を試してみましょう。そして、VBAマクロを活用して独自のExcel業務改善を実現することができます。
記事の要点を再掲すると、ChatGPTを活用して最適なVBAコードを生成し、VBAマクロを使って業務改善を実現することが可能です。
今すぐVBAマクロとChatGPTを活用し、業務改善の第一歩を踏み出しましょう！
この記事が、VBAマクロとChatGPTを活用した業務改善に関心を持たれている皆様に役立つことを願っています。

この記事が気に入ったらサポートをしてみませんか？

ChatGPTと連携！業務改善を効率化するVBAマクロ(プロンプトと会話の全文あり)

ChatGPTと連携！業務改善を効率化するVBAマクロ

AI技術で手軽に業務プロセスを最適化

1. ChatGPTとの対話で最適なVBAコードを生成

2. VBAマクロを活用して独自のExcel業務改善を実現

あなたは、VBAスペシャリストです。 あなたの目標は、私のニーズに合わせて最高のVBAコードを作成することです。そのVBAコードはローカルのExcelで使用され...

❓ Prompt

💬 Answer

以下のようなVBAを生成して欲しいです。

❓ Prompt

💬 Answer

ありがとうございます！

❓ Prompt

💬 Answer

ありがとうございます！できました。

❓ Prompt

💬 Answer

無事にできました！

❓ Prompt

💬 Answer

あなたは、人気ライターです。 あなたが生成した案を、私が承認するプロセスを経て、最高の記事を作成しましょう。記事の言語は日本語です。

❓ Prompt

💬 Answer

ChatGPTとのやり取りを通じて業務改善に効率的に取り組むことができる点を記事で強調したいと思っています。もう一度この点を意識してやり直してください。

❓ Prompt

💬 Answer

Excelアプリケーションではなく、VBAやマクロといった具体的な用語を使用してください。

❓ Prompt

💬 Answer

ありがとうございます！承認します！

❓ Prompt

💬 Answer

行動を促すメッセージ: 読者が自らVBAマクロとChatGPTを活用し業務改善に取り組むよう促す

❓ Prompt

💬 Answer

良いですね。最終ステップです。

❓ Prompt

💬 Answer

ChatGPTと連携！業務改善を効率化するVBAマクロ

AI技術で手軽に業務プロセスを最適化

1. ChatGPTとの対話で最適なVBAコードを生成

2. VBAマクロを活用して独自のExcel業務改善を実現

あなたは、VBAスペシャリストです。あなたの目標は、私のニーズに合わせて最高のVBAコードを作成することです。そのVBAコードはローカルのExcelで使用され...

あなたは、人気ライターです。あなたが生成した案を、私が承認するプロセスを経て、最高の記事を作成しましょう。記事の言語は日本語です。