生成AI デジタル革命に乗り遅れるな！ChatGPTを無視する経営者が会社を破滅に導く理由
はじめにデジタル革命は今や全ての業界に影響を及ぼし、企業の成長と競争力を左右する要因となっています。このような中、OpenAIの提供するChatGPTは、その強力な自然言語処理能力によって多くの企業の業務効率化に貢献しています。しかし、この...
生成AI
生成AI 
業務効率化ツール 【Python＋ChatGPT】PythonのSeleniumを使って立替経費クラウド操作に挑戦①
GoogleChromeを使えるようにPythonのSeleniumを設定PythonのSeleniumを使ってGoogle Chromeを操作するためには、以下の手順を実行します。1. Seleniumのインストールまず、Pythonのパ...
業務効率化ツール Python＋ChatGPT経理自働化の挑戦② Chromeバージョン: 122.0.6261.129（Official Build） （64 ビット） がこれの場合、ChromeDriver 114.0.5735.90 だとダメなのか？
バージョンを揃えるChromeDriverのバージョンは使用しているChromeのバージョンに合わせる必要があります123。Chromeのバージョンが122.0.6261.129である場合、ChromeDriverもバージョン122.*が推...
エンジョイ経理情報 -ChatGPT-4に「VBAでセルの書式を数値で桁区切りを使用するに設定して」と頼んだら
-ChatGPT-4への質問VBAでセルの書式を数値で桁区切りを使用するに設定してChatGPT4の回答Range("A1:A10").NumberFormat = "#,##0.00"
エンジョイ経理情報 -ChatGPT-4に「VBAで開いているファイルのセルの範囲を別の開いているファイルのセルにコピペして」と頼んだら
-ChatGPT--ChatGPT-4の回答Option ExplicitSub CopyRangeBetweenOpenedFiles() Dim SourceWorkbook As Workbook Dim TargetWorkbook...
エンジョイ経理情報 -ChatGPT-4で「VBAでファイルダイアログでファイルを開きます。セルの範囲を選択します。そして、もう一回ファイルダイアログを使って別のファイルを選択します。その別のファイルのセルを選択するとセルの範囲をコピペして」と頼んだら
-ChatGPT--ChatGPT-4の回答Option ExplicitSub CopyRangeBetweenFiles() Dim SourceWorkbook As Workbook Dim TargetWorkbook As Wo...
エンジョイ経理情報 -ChatGPT-4に「VBAで仕訳シートとmanualシートを残して他のシートをすべて削除してください。」と頼んだら
-ChatGPT--ChatGPT-4に質問「VBAで仕訳シートとmanualシートを残して他のシートをすべて削除してください。」ChatGPT4の回答Sub DeleteSheetsExceptSpecific() Dim ws As W...
エンジョイ経理情報 -ChatGPT-4に「VBAで1行目から一番最初にデータがある行まで削除してください。」と頼んだら
-ChatGPT--ChatGPT-4へ質問「VBAで1行目から一番最初にデータがある行まで削除してください。」「1行目からデータがある場合の制御も加えて」ChatGPT4の回答Sub DeleteRowsAboveFirstData() ...
エンジョイ経理情報 -ChatGPT-4に「このブックのシートを選択するのにインプットボックスで入力した名前が部分一致した場合、そのシートを設定してください。」と頼んだら
-ChatGPT--ChatGPT-4の回答Sub SelectWorksheetByPartialNameInCurrentWorkbook() Dim TargetWorkbook As Workbook Dim SheetNamePa...
エンジョイ経理情報 -ChatGPT-4に「VBAででダイアログボックスで選択したファイルを開き、シートを選択するのにインプットボックスで入力した名前が部分一致した場合、そのシートを設定してください。」と頼んだら
-ChatGPT--ChatGPT-4の回答Sub SelectWorksheetByPartialName() Dim SourceWorkbook As Workbook Dim FileDialog As FileDialog Dim...
エンジョイ経理情報 -ChatGPT-4にVBAでダイアログボックスで選択したファイルのInvoice_details(編集用)シートのBI列のデータをこのブックの立替精算変換シートのA列に文字列が重複しないデータだけ追加してください
-ChatGPT--ChatGPT-4の回答Sub ImportUniqueData() ' 必要な変数を定義する Dim SourceWorkbook As Workbook Dim TargetWorkbook As Workbook ...
エンジョイ経理情報 -ChatGPT-4にVBAで勘定科目（銀行口座）シートの1列目にデータがある場合、2列目のセルに消費税リストシートの1列目のデータを含む入力規則リストの作成をして
-ChatGPT--ChatGPT-4の回答Sub AddTaxList() Dim wb As Workbook Dim wsBank, wsTax As Worksheet Dim lastRowBank, lastRowTax, i,...
エンジョイ経理情報 VBAでワークシートの最終列から数えて2列目にある各行の文字列内の（と）の間のデータに置き換える
Sub ReplaceWithExtractedData() Dim secondSourceWorksheet As Worksheet Dim lastRow As Long, lastColumn As Long Dim curren...
エンジョイ経理情報 -ChatGPT4-に質問 あるデータとあるデータをまとめてピポットテーブルを使った消込を行う
-ChatGPT4--ChatGPT4-に質問VBAでダイアログボックスで選択したファイルの編集用という文字列が部分一致のシートをコピーして新規ファイルに貼り付けてください。そしてそのシートをコピーして消込用というシートを作成します。もう一...
エンジョイ経理情報 -ChatGPT4-に質問 VBAでインプットボックスに入力した数値の（月）にもとづく最終日をセルに代入して
-ChatGPT4--ChatGPT4-に質問VBAでインプットボックスで入力された数値（月）に基づいて、その月の最終日を日付形式で取得し、指定したセルに代入する。セルの書式はグレゴリオ暦で日付にしてください。ChatGPT4の回答Sub ...
エンジョイ経理情報 -ChatGPT4-に質問 給与データを元にして給与仕訳を作成
-ChatGPT4--ChatGPT4-に質問VBAで給与仕訳を作成します。コメントは日本語にしてください。パスワードは解除し、ダイアログボックスでファイルを選択して、Sheet1の右隣にコピーして給与データと名前を変更する。給与データの最...
エンジョイ経理情報 -ChatGPT4-に質問 VBAで〇〇のデータが勘定科目変換マスタの条件と一致した場合、勘定科目と消費税を代入
-ChatGPT4--ChatGPT4-に質問新しいVBAモジュールを作成してください。実行ファイルに立替精算勘定科目変換シートと一般経費勘定科目変換シートがあります。ダイアログボックスで選択したInvoice_details(編集用)シー...
エンジョイ経理情報 ChatGPT4に質問 VBAで複雑な条件式でデータを抽出して他の列のセルに代入
ChatGPT4に質問VBAでダイアログボックスで選択したファイルのInvoice_details(編集用)シートのP列にソートを降順でかけて、P列のデータを支払日の列に代入、AT列を金額の列に代入、貸方消費税に対象外を代入、F列と（D列）...
エンジョイ経理情報 -ChatGPT4-に質問 VBAでシートの〇列にある連続する行のデータに●●という文字がある場合は、その行を削除してください。
-ChatGPT4--ChatGPT4-に質問VBAでダイアログボックスで選択したファイルのInvoice_details(編集用)シートのBB列にある連続する行のデータにVATという文字がある場合は、その行を削除してください。ChatGP...
エンジョイ経理情報 -ChatGPT4-に質問 VBAでInvoiceという文字を含むシートをコピーしてInvoice_ details(編集用)というシート名に変更
-ChatGPT4--ChatGPT4-へ質問VBAでInvoiceという文字を含むシートをコピーしてInvoice_ details(編集用)というシート名に変更してください。ChatGPT4の回答Sub CopyInvoiceSheet...