【ChatGPT×VBA】シート名一覧を作成する

シート名一覧を作成する

「シート名一覧」シートを作成し、各シートへハイパーリンクします。

ChatGPTで作成したVBAコード

Sub ListAllSheetNames()
    Dim ws As Worksheet
    Dim newWs As Worksheet
    Dim i As Long

    ' "シート名一覧"シートがあるかチェック
    On Error Resume Next
    Set newWs = ThisWorkbook.Worksheets("シート名一覧")
    On Error GoTo 0

    ' "シート名一覧"シートがない場合、新しく作成
    If newWs Is Nothing Then
        Set newWs = ThisWorkbook.Worksheets.Add(Before:=ThisWorkbook.Worksheets(1))
        newWs.Name = "シート名一覧"
    Else
        ' 値をクリア
        newWs.Cells.Clear
    End If

    ' シート名を転記し、リンクを作成
    i = 1
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "シート名一覧" Then
            newWs.Cells(i, 1).Value = ws.Name
            newWs.Hyperlinks.Add Anchor:=newWs.Cells(i, 1), Address:="", SubAddress:="'" & ws.Name & "'!A1", TextToDisplay:=ws.Name
            i = i + 1
        End If
    Next ws
End Sub

上のコードを作成するChatGPTのプロンプト

 
下記のVBAコードを、日本語のコメントをいれて作成してください。
処理概要：ブックの全てのシート名を、「シート名一覧」のA1セルから下方向に順次転記する。
処理１：「シート名一覧」シートが無い場合は、新たに作成し、最初のシートとして配置する。ある場合はその値をクリアする。
処理２：「シート名一覧」に作成したシート名に、シート名と一致するシートへのリンクを作成する。

ChatGPTで作成しました

無料のChatGPT（Microsoft Copilot）で作成しました。

３０年前の私は、必要なVBAコードの完成に６か月かかりました。しかしChatGPTを使えば、初心者でもわずか５分でコードを作成できます。

上記のChatGPTのシートやセルを変更して、あなたのVBAコードを作成してください。

VBAコードは、期待通りに動作し、エラーが発生しないかを必ずテストしてください。

知りたいことやエラー修正は、ChatGPT(Microsoft Copilot)がダイレクトにお答えします。