Excel/VBA

Book名とシート名を表示する

Book名の表示

サフィックスを残したい場合は上記(-6)を(-1)に変えればOKです 。

=MID( 
CELL("filename",A1), 
FIND("[",CELL("filename",A1)) + 1,
FIND("]",CELL("filename",A1)) - FIND("[",CELL("filename",A1)) - 6
)
シート名の表示

これで要件は満たしているのだけれどもっと簡単な方法はないのかな。これではとても覚えることができません。
「31」はシート名の最大文字数に基づいています。ちなみに以下でも取得できるのですが、CELL関数を3つも使って長くなってしまいます。=RIGHT(CELL(“filename”,A1),LEN(CELL(“filename”,A1))-FIND(“]”,CELL(“filename”,A1)))

=MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,31)
スポンサーリンク