-ChatGPT4-
-ChatGPT4-へ質問
VBAでInvoiceという文字を含むシートをコピーしてInvoice_ details(編集用)というシート名に変更してください。
ChatGPT4の回答
Sub CopyInvoiceSheet()
Dim ws As Worksheet
Dim newWs As Worksheet
' シートを検索し、Invoiceという文字を含むシートを見つける
For Each ws In ThisWorkbook.Worksheets
If InStr(ws.Name, "Invoice") > 0 Then
' シートをコピーして新しいシートを作成
ws.Copy After:=ws
Set newWs = ActiveSheet
' 新しいシート名をInvoice_details(編集用)に変更
newWs.Name = "Invoice_details(編集用)"
Exit For
End If
Next ws
' シートが見つからない場合、エラーメッセージを表示
If newWs Is Nothing Then
MsgBox "Invoiceという文字を含むシートが見つかりませんでした。", vbCritical, "エラー"
Else
MsgBox "シートのコピーが完了し、新しいシート名はInvoice_details(編集用)です。", vbInformation, "完了"
End If
End Sub

