[[20030104154317]]　『シート名を指定のセルに表示形式をかえて表示させ』（鉄人）　ページの最後に飛ぶ

『シート名を指定のセルに表示形式をかえて表示させる』（鉄人）

新年あけましておめでとうございます

さっそくですがお願いいたします

過去ログより

 =RIGHT(CELL("filename",A1),LEN(CELL("filename",A1))-FIND("]",CELL("filename",A1)))

←で、Ａ１セルにそのシート名を表示する方法はわかったのですが

例えば　シート名が　１．１　となっている時にＡ１に　”１月１日（？曜日）”という形で表示させることは可能でしょうか？

　　もちろんシート名に　”１月１日（？曜日）とつけていけばいいのでしょうが、シート名にしては長いし、一つ一つ入力する手間が大変です。

できれば　２．１　　２月１日（土曜日）というように曜日まで自動的に日にちから表示できるようになれば最高なのですが、、、

こんな都合のいい事ができるのでしょうか？　

お助けねがいます！

 明けましておめでとうございます。

 まず、シート名の２．１は全角で入力していますか？

 もしそうなら半角にします。

 =ASC(RIGHT(CELL("filename",A1),LEN(CELL("filename",A1))-FIND("]",CELL("filename",A1))))

 たとえばA1に↑(過去ログからの関数)が組んであるなら

 B1あたりに

 =DATE(2003,LEFT(A1,FIND(".",A1)-1),RIGHT(A1,LEN(A1)-FIND(".",A1)))

 と入力します(ここではとりあえず2003年ということにしました)。

 B1のセルの表示形式を

  m"月"d"日 ("aaaa")"

 とすれば結果的に

      A          B

 1   2.1   2月1日 (土曜日)

 となります。

 1つのセルでスッキリしたいとなると、関数では厳しいので

 VBAで組んだほうがいいですね。

 （ramrun）

↑ありがとうございまーーーす

↑数式をそのままコピぺして成功です！！　ほんとほんとうにありがとうございます！

即答いただきほんと感謝です！　ｒａｍｒｕｎさんまたお願いします（鉄人）

コメント返信：