ユーザー定義関数でセルにシート名を表示する
'以下の様に標準モジュールに記述し、セルに「=Sample40()」と入力すれば、アクティブシートのシート名が表示されます。「Application.Volatile」を記述していない場合でもシート名は表示されますが、セルに入力した数式「=Sample40()」を直接編集しない限り更新されません。逆に「Application.Volatile」してもシート名を変更しただけではシート名は更新されません。
Function Sample40() As String
'ユーザー定義関数を自動再計算関数にする
Application.Volatile
'アクティブシートのシート名を反映
Sample40 = ActiveSheet.Name
End Function
'以下の様に標準モジュールに記述し、セルに「=Sample40a(A1)」と入力すれば、参照しているセルのシート名が表示されます。
Function Sample40a(セル As Range) As String
'ユーザー定義関数を自動再計算関数にする
Application.Volatile
'アクティブシートのシート名を反映
Sample40a = セル.Parent.Name
End Function