Home » エクセルマクロ・Excel VBAの使い方 » ユーザー定義関数 » ワークシート名をセルに表示するユーザー定義関数

ワークシート名をセルに表示するユーザー定義関数

対象：Excel97, Excel2000, Excel2002, Excel2003

同様の問題は、ワークシート関数を使ってシート名をセルに表示させる場合にもやっぱり発生します。

CELL関数・FIND関数・LEN関数・RIGHT関数を組み合わせてワークシート名を取得する方法をご紹介しましたが、やっていることはCELL関数を使って「絶対パス名＋[ファイル名]＋シート名」を取得して、その中から「]」の位置をみつけてワークシート名を切り出していたわけです。

ファイル名やフォルダ名に「]」が含まれていれば、ブック名の取得同様、シート名も正しく取得することはできません。

［スポンサードリンク］

パスに「]」が存在していてもワークシート名を正しく取得するには、VBA（Visual Basic for Applications）でユーザー定義関数を作成しましょう。

▼ワークシート名を取得するユーザー定義関数
Function ThisSheetName() As String

　Application.Volatile

　ThisSheetName = Application.Caller.Parent.Name

End Function

上記のコードをVBE（Visual Basic Editor）を起動して標準モジュールに貼り付け後、ワークシート上のセルに
「=ThisSheetName()」
と入力すれば、そのワークシートのシート名が表示されます。

ワークシート名を取得するユーザー定義関数を紹介しているWebページもいくつかみつかりますが、
「ActiveSheet.Name」
といったコードにしていることが多いようです。

ActiveSheetのNameプロパティを使った場合、アクティブなシートの名前が表示されるわけですから、別のシート名が表示されるということも起きてしまいます。

ですから私は、上記のように
「Application.Caller.Parent.Name」
とする方がいいんじゃないかと考えています。

関連語句

自作関数, シート名をリンクする方法

［スポンサードリンク］

Home » エクセルマクロ・Excel VBAの使い方 » ユーザー定義関数 » ワークシート名をセルに表示するユーザー定義関数

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を書きました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本も出しました↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

「ユーザー定義関数」の記事一覧