[[20030104154317]] 『シート名を指定のセルに表示形式をかえて表示させ』(鉄人) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

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

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

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

過去ログより

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

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

例えば シート名が 1.1 となっている時にA1に ”1月1日(?曜日)”という形で表示させることは可能でしょうか?

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

できれば 2.1  2月1日(土曜日)というように曜日まで自動的に日にちから表示できるようになれば最高なのですが、、、

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

お助けねがいます!


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

 まず、シート名の2.1は全角で入力していますか?

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

 =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)

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

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

即答いただきほんと感謝です! ramrunさんまたお願いします(鉄人)


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.