[[20050420102103]]　『フッターの文字列を取得したい』（Ayu）　ページの最後に飛ぶ

『フッターの文字列を取得したい』（Ayu）

 こんにちは。
 エクセルのフッターの文字列のみを取得したいのですが、
 RightFooterで取得すると フォントの設定の「&9」とかが前についてしまいますよね？

 フッターは、「XXXXX-XXXXXX(文書番号) 保存期間X年（第X版)」となっているので
 文書番号だけ抜き出したいのですが･･･　右から何文字というのも、版番号が2桁や1桁
 と様々なので使えません。

 なんとか文字列だけ抜き出すことは出来るのでしょうか？教えてください

 (Ayu)

 エクセル関数のFind関数で、最初の"("や")"の文字位置を取得してはどうでしょうか。

 こんな感じです。
　
Sub Test1()
　　MyFooter = Worksheets("Sheet1").PageSetup.RightFooter
　　MyStart = Application.Find("(", MyFooter, 1) + 1
　　MyEnd = Application.Find(")", MyFooter, 1)
　　MyCnt = MyEnd - MyStart
　　MyStr = Mid(MyFooter, MyStart, MyCnt)
End Sub

 （川野鮎太郎）

コメント返信：

[ 一覧(最新更新順) ]

[[20050420102103]] 『フッターの文字列を取得したい』（Ayu） ページの最後に飛ぶ

[[20050420102103]]　『フッターの文字列を取得したい』（Ayu）　ページの最後に飛ぶ