| |
▼Upa さん：
こんにちは！
>Worksheets("*一覧*").select
>みたいな名前で選択する方法はあるのでしょうか
実際にやってたらこちらではエラーになりますね。
ちなみに、「一覧」と名のつくシートをすべて選択したいのか、
それともブック内には1つしかないから1つだけ選択でいいのか、
この二つが考えられるのですが、私の技量では前者はわかりかねます。
複数のシートを選択する場合
Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
になり、この中に数のわからないシートの名前をすべていれる
コードがわからないためです。
もしかしたら他に方法があるかもしれませんが。
後者でしたら、マクロマンさんからのヒントでこうなると思います。
参考までに。
Sub test0()
Dim ws As Worksheet
For Each ws In Worksheets 'すべてのシート検索
If ws.Name Like "*一覧*" Then '一覧という文字が入っていれば
ws.Select 'そのシートセレクト
End If
Next
End Sub
|
|
にぃ
- 08/11/13(木) 9:41 -
