シート名の一部を入力すると選択する

シート数が増えてくると、目的のシートを見つけるのが面倒になってくる。
またシート名の一部さえ覚えていれば、そのシートをアクティブにしてくれるマクロを。
e0080122_21405330.gif

Sub シート選択()
 Dim myS As Worksheet
 Dim myF As Boolean
 Dim mystr As String

 myF = True
 mystr = Application.InputBox("シート名の一部を入力して下さい")

  For Each myS In Worksheets
    If myS.Name Like "*" & mystr & "*" Then
      myS.Select (myF)
      myF = False
    End If
 Next
End Sub

また、これは1枚のシートのみならず、該当するシートをすべて選択することができるので
ある意味便利かもしれないが・・・わずらわしいとも・・・微妙だが。

例えば、シート名の中に同一の言葉を含むシートはすべて選択される(下図)
これは『』と入力した際に選択されたシートだ。
e0080122_21453892.gif

[PR]
by slayer0210 | 2006-01-11 21:47 | マクロ


<< 写真を2分割する 動く文字列 >>