ChatGPTによる業務改善 -ChatGPT-4に「VBAで開いているファイルのセルの範囲を別の開いているファイルのセルにコピペして」と頼んだら
-ChatGPT-
-ChatGPT-4の回答
Option Explicit
Sub CopyRangeBetweenOpenedFiles()
Dim SourceWorkbook As Workbook
...
2023-04
ChatGPTによる業務改善 ChatGPTによる業務改善 -ChatGPT-4で「VBAでファイルダイアログでファイルを開きます。セルの範囲を選択します。そして、もう一回ファイルダイアログを使って別のファイルを選択します。その別のファイルのセルを選択するとセルの範囲をコピペして」と頼んだら
-ChatGPT-
-ChatGPT-4の回答
Option Explicit
Sub CopyRangeBetweenFiles()
Dim SourceWorkbook As Workbook
Dim T...
ChatGPTによる業務改善 -ChatGPT-4に「VBAで仕訳シートとmanualシートを残して他のシートをすべて削除してください。」と頼んだら
-ChatGPT-
-ChatGPT-4に質問
「VBAで仕訳シートとmanualシートを残して他のシートをすべて削除してください。」
ChatGPT4の回答
Sub DeleteSheetsExceptSpeci...
ChatGPTによる業務改善 -ChatGPT-4に「VBAで1行目から一番最初にデータがある行まで削除してください。」と頼んだら
-ChatGPT-
-ChatGPT-4へ質問
「VBAで1行目から一番最初にデータがある行まで削除してください。」
「1行目からデータがある場合の制御も加えて」
ChatGPT4の回答
Sub Delete...
ChatGPTによる業務改善 -ChatGPT-4に「このブックのシートを選択するのにインプットボックスで入力した名前が部分一致した場合、そのシートを設定してください。」と頼んだら
-ChatGPT-
-ChatGPT-4の回答
Sub SelectWorksheetByPartialNameInCurrentWorkbook()
Dim TargetWorkbook As Workbook
...
ChatGPTによる業務改善 -ChatGPT-4に「VBAででダイアログボックスで選択したファイルを開き、シートを選択するのにインプットボックスで入力した名前が部分一致した場合、そのシートを設定してください。」と頼んだら
-ChatGPT-
-ChatGPT-4の回答
Sub SelectWorksheetByPartialName()
Dim SourceWorkbook As Workbook
Dim FileDialog ...
ChatGPTによる業務改善 -ChatGPT-4にVBAでダイアログボックスで選択したファイルのInvoice_details(編集用)シートのBI列のデータをこのブックの立替精算変換シートのA列に文字列が重複しないデータだけ追加してください
-ChatGPT-
-ChatGPT-4の回答
Sub ImportUniqueData()
' 必要な変数を定義する
Dim SourceWorkbook As Workbook
Dim Target...
ChatGPTによる業務改善 -ChatGPT-4にVBAで勘定科目（銀行口座）シートの1列目にデータがある場合、2列目のセルに消費税リストシートの1列目のデータを含む入力規則リストの作成をして
-ChatGPT-
-ChatGPT-4の回答
Sub AddTaxList()
Dim wb As Workbook
Dim wsBank, wsTax As Worksheet
Dim lastR...
ChatGPTによる業務改善 VBAでワークシートの最終列から数えて2列目にある各行の文字列内の（と）の間のデータに置き換える
Sub ReplaceWithExtractedData()
Dim secondSourceWorksheet As Worksheet
Dim lastRow As Long, lastColumn As Long...
ChatGPTによる業務改善 -ChatGPT4-に質問 あるデータとあるデータをまとめてピポットテーブルを使った消込を行う
-ChatGPT4-
-ChatGPT4-に質問
VBAでダイアログボックスで選択したファイルの編集用という文字列が部分一致のシートをコピーして新規ファイルに貼り付けてください。そしてそのシートをコピーして消込用というシートを...