-chatGPT-4にVBAで請求書発行システムを作って見てとお願いしたら

-chatGPT-

chatGPTへの質問
chatGPTからの回答
ChatGPT の回答通りに作ってみる
1. 請求書テンプレートワークシート作成
2. 顧客情報ワークシート作成
商品情報ワークシート作成
発行済み請求書一覧ワークシートの作成
標準モジュールにコードを貼り付ける
プログラム実行
まとめ

chatGPTへの質問

VBAで請求書発行システムを作って見て

chatGPTからの回答

VBA（Visual Basic for Applications）を使ってExcelで請求書発行システムを作る方法を説明します。以下の手順に従ってください。

まず、Excelの新規ファイルを開き、以下のワークシートを作成します。
- 請求書テンプレート
- 顧客情報
- 商品情報
- 発行済み請求書一覧
請求書テンプレートワークシートには、以下の情報を入力します。
- 請求書番号
- 請求日
- 支払い期限
- 顧客情報（名前、住所、電話番号）
- 商品情報（商品名、単価、数量、合計金額）
- 請求書合計金額
- 備考
顧客情報ワークシートには、顧客の情報を入力します。例えば、以下のような情報を入力します。
- 顧客ID
- 顧客名
- 住所
- 電話番号
商品情報ワークシートには、商品の情報を入力します。例えば、以下のような情報を入力します。
- 商品ID
- 商品名
- 単価
発行済み請求書一覧ワークシートには、発行済みの請求書の情報を記録します。例えば、以下のような情報を入力します。
- 請求書番号
- 請求日
- 支払い期限
- 顧客ID
- 商品ID
- 数量
VBAコードを書くために、Excelの「開発」タブを開きます。もし開発タブが表示されていない場合は、Excelのオプションで「カスタムリボン」から「開発」タブを表示させてください。
「開発」タブから「Visual Basic」ボタンをクリックして、VBAエディターを開きます。
VBAエディターで、「挿入」メニューから「モジュール」を選択して、新しいモジュールを追加します。
新しいモジュールに以下のようなコードを記述して、請求書を生成する関数を作成します。

Option Explicit

Sub CreateInvoice()
    Dim InvoiceNumber As Long
    Dim CustomerID As Long
    Dim ProductID As Long
    Dim Quantity As Long
    Dim InvoiceDate As Date
    Dim DueDate As Date
    Dim wsTemplate As Worksheet
    Dim wsCustomers As Worksheet
    Dim wsProducts As Worksheet
    Dim wsInvoices As Worksheet
    Dim newInvoice As Worksheet
    Dim customerRow As Range
    Dim productRow As Range
    Dim lastRow As Long

    ' 各ワークシートを設定
    Set wsTemplate = ThisWorkbook.Worksheets("請求書テンプレート")
    Set wsCustomers = ThisWorkbook.Worksheets("顧客情報")
    Set wsProducts = ThisWorkbook.Worksheets("商品情報")
    Set wsInvoices = ThisWorkbook.Worksheets("発行済み請求書一覧")

    ' 請求書番号を取得
    InvoiceNumber = Application.InputBox("請求書番号を入力してください", Type:=1)
    If InvoiceNumber = 0 Then Exit Sub

    ' 顧客IDを取得
    CustomerID = Application.InputBox("顧客IDを入力してください", Type:=1)
    If CustomerID = 0 Then Exit Sub

    ' 商品IDを取得
    ProductID = Application.InputBox("商品IDを入力してください", Type:=1)
    If ProductID = 0 Then Exit Sub

    ' 数量を取得
    Quantity = Application.InputBox("数量を入力してください", Type:=1)
    If Quantity = 0 Then Exit Sub

    ' 請求日と支払い期限を取得
    InvoiceDate = Date
    DueDate = DateAdd("d", 30, InvoiceDate)

    ' 顧客情報と商品情報を検索
    Set customerRow = wsCustomers.Cells.Find(What:=CustomerID, LookIn:=xlValues, LookAt:=xlWhole)
    Set productRow = wsProducts.Cells.Find(What:=ProductID, LookIn:=xlValues, LookAt:=xlWhole)

    ' 顧客情報と商品情報が見つからない場合、エラーメッセージを表示
    If customerRow Is Nothing Then
        MsgBox "顧客IDが見つかりませんでした。"
        Exit Sub
    End If
    If productRow Is Nothing Then
        MsgBox "商品IDが見つかりませんでした。"
        Exit Sub
    End If

    ' 新しい請求書ワークシートを作成
    wsTemplate.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
    Set newInvoice = ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
    newInvoice.Name = "請求書_" & InvoiceNumber

    ' 新しい請求書に情報を入力
    With newInvoice
        .Range("B2").Value = InvoiceNumber
        .Range("B3").Value = InvoiceDate
        .Range("B4").Value = DueDate
        .Range("B6").Value = customerRow.Cells(2).Value
        .Range("B7").Value = customerRow.Cells(3).Value
        .Range("B8").Value = customerRow.Cells(4).Value
        .Range("B10").Value = productRow.Cells(2).Value
        .Range("C10").Value = productRow.Cells(3).Value
        .Range("D10").Value = Quantity
        .Range("E10").Value = productRow.Cells(3).Value * Quantity
        .Range("E12").Value = productRow.Cells(3).Value * Quantity
    End With

    ' 発行済み請求書一覧に情報を追加
    lastRow = wsInvoices.Cells(wsInvoices.Rows.Count, 1).End(xlUp).Row + 1
    wsInvoices.Cells(lastRow, 1).Value = InvoiceNumber
    wsInvoices.Cells(lastRow, 2).Value = InvoiceDate
    wsInvoices.Cells(lastRow, 3).Value = DueDate
    wsInvoices.Cells(lastRow, 4).Value = CustomerID
    wsInvoices.Cells(lastRow, 5).Value = ProductID
    wsInvoices.Cells(lastRow, 6).Value = Quantity

    MsgBox "請求書が作成されました。"
End Sub