左からN番目のシート名を表示するExcel VBA関数の作成

Excelの標準関数ではシートの位置(インデックス番号)を指定して、そのシート名を表示させることはできません。これを実現するにはユーザー定義関数を作成する必要があります。

ExcelのVisual Basic for Applications（VBA）を使用して、ワークブック内の特定のシート名を表示するユーザー定義関数を作成する方法について説明します。

シート番号を指定したら、そのシート名が表示される関数を作る方法。

【参考】アクティブなシートの名前を表示させるならば標準関数で対応できます。その式は以下のページで紹介しています。

Excelでシート名を取得する計算式の作成方法 Excelの多くの場面で、現在作業しているシートの名前を文書内で参照したいと思うことがあります。たとえば、特定のシートからのデータを基にした報告を作成する際に、そのシートの名前を自動で文書に挿...

関数のコード
関数の説明
関数の使い方
注意事項

関数のコード

Function GetSheetName(SheetIndex As Variant) As String
    Application.Volatile  ' 関数を揮発性に設定
    Dim index As Integer
    On Error Resume Next  ' エラーハンドリングを行う

    ' 引数が空白または0の場合、アクティブシートの名前を返す
    If IsEmpty(SheetIndex) Or SheetIndex = 0 Then
        GetSheetName = ActiveSheet.Name
        Exit Function
    End If
    
    ' 引数がマイナスの数値の場合、右からのシート名を取得
    If SheetIndex < 0 Then
        index = ThisWorkbook.Sheets.Count + SheetIndex + 1
    Else
        index = SheetIndex
    End If
    
    ' インデックスが有効な範囲内であればシート名を取得
    If index > 0 And index <= ThisWorkbook.Sheets.Count Then
        GetSheetName = ThisWorkbook.Sheets(index).Name
    Else
        GetSheetName = ""  ' 無効なインデックスの場合は空文字を返す
    End If
    
    On Error GoTo 0  ' エラーハンドリングを終了する
End Function