エンジョイ経理情報 未来を創る：AI時代の業務革新 – プログラミングとRPAの力
業務自動化の重要性と新たな可能性
.automation-content {
font-family: Arial, sans-serif;
...
財務経理効率化
エンジョイ経理情報 
エンジョイ経理情報 -ChatGPT-4に「VBAでセルの書式を数値で桁区切りを使用するに設定して」と頼んだら
-ChatGPT-4への質問
VBAでセルの書式を数値で桁区切りを使用するに設定して
ChatGPT4の回答
Range("A1:A10").NumberFormat = "#,##0.00"
エンジョイ経理情報 -ChatGPT-4に「VBAで開いているファイルのセルの範囲を別の開いているファイルのセルにコピペして」と頼んだら
-ChatGPT-
-ChatGPT-4の回答
Option Explicit
Sub CopyRangeBetweenOpenedFiles()
Dim SourceWorkbook As Workbook
...
エンジョイ経理情報 -ChatGPT-4で「VBAでファイルダイアログでファイルを開きます。セルの範囲を選択します。そして、もう一回ファイルダイアログを使って別のファイルを選択します。その別のファイルのセルを選択するとセルの範囲をコピペして」と頼んだら
-ChatGPT-
-ChatGPT-4の回答
Option Explicit
Sub CopyRangeBetweenFiles()
Dim SourceWorkbook As Workbook
Dim T...
エンジョイ経理情報 -ChatGPT-4に「VBAで仕訳シートとmanualシートを残して他のシートをすべて削除してください。」と頼んだら
-ChatGPT-
-ChatGPT-4に質問
「VBAで仕訳シートとmanualシートを残して他のシートをすべて削除してください。」
ChatGPT4の回答
Sub DeleteSheetsExceptSpeci...
エンジョイ経理情報 -ChatGPT-4に「VBAで1行目から一番最初にデータがある行まで削除してください。」と頼んだら
-ChatGPT-
-ChatGPT-4へ質問
「VBAで1行目から一番最初にデータがある行まで削除してください。」
「1行目からデータがある場合の制御も加えて」
ChatGPT4の回答
Sub Delete...
エンジョイ経理情報 -ChatGPT-4に「このブックのシートを選択するのにインプットボックスで入力した名前が部分一致した場合、そのシートを設定してください。」と頼んだら
-ChatGPT-
-ChatGPT-4の回答
Sub SelectWorksheetByPartialNameInCurrentWorkbook()
Dim TargetWorkbook As Workbook
...
エンジョイ経理情報 -ChatGPT-4に「VBAででダイアログボックスで選択したファイルを開き、シートを選択するのにインプットボックスで入力した名前が部分一致した場合、そのシートを設定してください。」と頼んだら
-ChatGPT-
-ChatGPT-4の回答
Sub SelectWorksheetByPartialName()
Dim SourceWorkbook As Workbook
Dim FileDialog ...
エンジョイ経理情報 -ChatGPT-4にVBAでダイアログボックスで選択したファイルのInvoice_details(編集用)シートのBI列のデータをこのブックの立替精算変換シートのA列に文字列が重複しないデータだけ追加してください
-ChatGPT-
-ChatGPT-4の回答
Sub ImportUniqueData()
' 必要な変数を定義する
Dim SourceWorkbook As Workbook
Dim Target...
エンジョイ経理情報 -ChatGPT-4にVBAで勘定科目（銀行口座）シートの1列目にデータがある場合、2列目のセルに消費税リストシートの1列目のデータを含む入力規則リストの作成をして
-ChatGPT-
-ChatGPT-4の回答
Sub AddTaxList()
Dim wb As Workbook
Dim wsBank, wsTax As Worksheet
Dim lastR...