[[20030616083249]]　『シート名から文字列を抽出するマクロ』（ゆみ）　ページの最後に飛ぶ

『シート名から文字列を抽出するマクロ』（ゆみ）

マクロを使って、シート名から文字列を抽出するやりかたが分からず困っています。
例えば、１番目のシート名が「５月北海道支店」、２番目のシート名が「１２月東北
営業所」という風になっていて、各シートで文字列の個数が違うのですが、５、１２や
北海道、東北という文字列を上手く抽出する方法はあるでしょうか？
どなたかご教授いただけると非常に助かります。よろしくお願いいたします。

 ワークシート上の関数として使いたいのですか？本当にVBA上で使うのですか。
 マクロという言葉はあいまいなのです。
 （kazu）

簡単なVBAのプログラムを作ってみたいと考えています。よろしくお願いします。（ゆみ）

 ↓のVBAコードでシート名の月の前にある文字を見つけて表示します。
 　　9 行目のExit Sub をコメントに（先頭に ' を入れる）すると
 　　全てのシートについて表示します。
 　　（kazu）

 Sub sheetname()
 Dim shn As String, mm As String, pos1 as Integer
 For Each sh In Worksheets
     shn = sh.Name
     pos1 = InStr(shn, "月")
     If pos1 > 0 Then
         mm = Mid(shn, 1, pos1 - 1)
         MsgBox mm
         Exit Sub
     End If
 Next
 End Sub

上手く動きました。どうもありがとうございました m(__)m （ゆみ）

コメント返信：

[ 一覧(最新更新順) ]

[[20030616083249]] 『シート名から文字列を抽出するマクロ』（ゆみ） ページの最後に飛ぶ

[[20030616083249]]　『シート名から文字列を抽出するマクロ』（ゆみ）　ページの最後に飛ぶ