[[20110502163641]]　『シート名について』（aaa）　ページの最後に飛ぶ

『シート名について』（aaa）

シート名をそのシートのセル上に表示する関数はありますか？

 =MID(CELL("filename",A1),SEARCH("]",CELL("filename",A1),1)+1,LEN(CELL("filename",A1))-SEARCH("]",CELL("filename",A1),1))
 保存してないとでない。

 長いけど
 シート名
 ↓
 =IF("["="[",MID(CELL("filename",A1),SEARCH("]",CELL("filename",A1))+1,LEN(CELL("filename",A1))-SEARCH("]",CELL("filename",A1),1)),MID(CELL("filename",A1),SEARCH("[",CELL("filename",A1))+1,SEARCH("]",CELL("filename",A1))-SEARCH("[",CELL("filename",A1))-1))
 =IF("["="]",MID(CELL("filename",A1),SEARCH("]",CELL("filename",A1))+1,LEN(CELL("filename",A1))-SEARCH("]",CELL("filename",A1),1)),MID(CELL("filename",A1),SEARCH("[",CELL("filename",A1))+1,SEARCH("]",CELL("filename",A1))-SEARCH("[",CELL("filename",A1))-1))
 ↑
 ブック名
 違い。
 =IF("["="["　シート名
 =IF("["="]"　ブック名
 BJ

少し式の長さを短くしたもの。

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

 ぶらっと立ち寄り

 VBAを知っていれば、ユーザー定義関数という方法もあります。

 これを標準モジュールに定義すれば(定義関数名　myshtnm　だとすると）、

 セルには、

 =myshtnm()

 の記述表示されます。参考までに

 ichinose

 (ぶらっと立ち寄り)さんの数式だと、複数のシートに入力する場合、
 まずいことになりまっせ。

 CELL("filename")  →　CELL("filename",A1) のようにしておくのが
 間違いないです。
　
（純丸）(o^-')b

 長さを縮めるんだったら

 =REPLACE(CELL("filename",A1),1,FIND("]",CELL("filename",A1)),"")
 とかでも。
 (春日野馨)

コメント返信：

[ 一覧(最新更新順) ]

[[20110502163641]] 『シート名について』（aaa） ページの最後に飛ぶ

[[20110502163641]]　『シート名について』（aaa）　ページの最後に飛ぶ