Ｅｘｃｅｌのタイトルの引用

質問

Excelでファイルにつけたタイトルを、セルの一部に反映することは可能でしょうか？
たとえば

タイトル；2008.11.19
特定のセルに：11/19　と入力

このようことは可能でしょうか？
可能でしたら、マクロでも、関数でも何でもかまいませんので教えていただけないでしょうか？
よろしくお願いいたします。

回答No.2

imogasi · ベストアンサー

ファイルのプロパティのタイトルでなく、ブック名ではダメですか。
ダメの場合は下記を無視してください。＃１のご回答のとおりです。
参考　A1セルにブック名をセット。
Sub test02()
MsgBox ThisWorkbook.Name
Cells(1, "A") = ThisWorkbook.Name
End Sub
ブック名で良いとして、関数での質問・回答も時々あり
http://www.cam.hi-ho.ne.jp/manbo/exala/exckoma.htm#007
参照

お礼

おかげさまで問題は解決しました！的確なご回答ありがとうございました。

回答No.1

noname#70958

ご質問の「タイトル」というのは、
ファイルのプロパティにあるタイトルのことですよね？

組み込みのワークシート関数ではおそらく無理です。

ユーザー定義関数を使うなら、

Function Title()
　Application.Volatile
　Title = ThisWorkbook.BuiltinDocumentProperties("title")
End Function

こんな感じにして、任意のセルを
　=title()
とすれば、"2008.11.19" が返ります。

後は文字列操作で
　=DATEVALUE(SUBSTITUTE(title(),".","/"))
とシリアル値にして、
セルの表示形式を
　m/d
とすれば、11/19　になります。

あるいは、

Function Title2()
　Application.Volatile
　Title2 = ThisWorkbook.BuiltinDocumentProperties("title")
　Title2 = Replace(Title2, ".", "/")
　Title2 = DateValue(Title2)
End Function

こんな感じにすれば、
　=title2()
で直接日付のシリアル値が返ります。

ご参考まで。

お礼

おかげさまで問題は解決しました！ご回答ありがとうございました。