一般経費実務 -ChatGPT-4に「開始日と終了日が入った売上データがあります。VBAで開始日列を昇順にしてください。」と頼んだら
-ChatGPT-4への質問開始日と終了日が入った売上データがあります。VBAで開始日列を昇順にしてください。ChatGPT4の回答Sub SortByStartDate() Dim ws As Worksheet Dim lastRow ...
一般経費実務 エンジョイ経理情報 -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-に質問 ＶＢＡでパスワード付きのファイルを解除してコピーしてファイル名を変更して加工用のファイルを作成しシートも追加する
-ChatGPT4--ChatGPT4-に質問ＶＢＡでパスワード付きのファイルを解除してコピーしてファイル名を変更して加工用のファイルを作成しこのブックにある給与仕訳テンプレートシートと給与仕訳シートを追加するようにしてください。パスワード...
エンジョイ経理情報 -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...
業務効率化 大量の外貨建データを瞬時に為替計算！-チャットGPT4-に質問してVBAを使った自動化ツール
-チャットGPT4--チャットGPT4-に質問ダイアログボックスで選択したファイルのSheet1からダイアログボックスで選択した別のファイルのBank Statement（編集用）R列のデータがUSDでF列がSheet1のC列が一致した時、...