エンジョイ経理情報 -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...
エンジョイ経理情報 VBAでワークシートの最終列から数えて2列目にある各行の文字列内の（と）の間のデータに置き換える
Sub ReplaceWithExtractedData()
Dim secondSourceWorksheet As Worksheet
Dim lastRow As Long, lastColumn As Long...
エンジョイ経理情報 -ChatGPT4-に質問 あるデータとあるデータをまとめてピポットテーブルを使った消込を行う
-ChatGPT4-
-ChatGPT4-に質問
VBAでダイアログボックスで選択したファイルの編集用という文字列が部分一致のシートをコピーして新規ファイルに貼り付けてください。そしてそのシートをコピーして消込用というシートを...
エンジョイ経理情報 -ChatGPT4-に質問 VBAでインプットボックスに入力した数値の（月）にもとづく最終日をセルに代入して
-ChatGPT4-
-ChatGPT4-に質問
VBAでインプットボックスで入力された数値（月）に基づいて、その月の最終日を日付形式で取得し、指定したセルに代入する。セルの書式はグレゴリオ暦で日付にしてください。
Ch...
エンジョイ経理情報 -ChatGPT4-に質問 給与データを元にして給与仕訳を作成
-ChatGPT4-
-ChatGPT4-に質問
VBAで給与仕訳を作成します。コメントは日本語にしてください。パスワードは解除し、ダイアログボックスでファイルを選択して、Sheet1の右隣にコピーして給与データと名前を変更す...
一般経費実務 -ChatGPT4-に質問 ＶＢＡでパスワード付きのファイルを解除してコピーしてファイル名を変更して加工用のファイルを作成しシートも追加する
-ChatGPT4-
-ChatGPT4-に質問
ＶＢＡでパスワード付きのファイルを解除してコピーしてファイル名を変更して加工用のファイルを作成しこのブックにある給与仕訳テンプレートシートと給与仕訳シートを追加するようにしてく...