Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


9301 / 13644 ツリー ←次へ | 前へ→

【28152】Listboxでワークシート名を表示 toki 05/8/29(月) 22:26 質問[未読]
【28156】Re:Listboxでワークシート名を表示 MOON 05/8/29(月) 22:42 回答[未読]
【28159】Re:Listboxでワークシート名を表示 toki 05/8/29(月) 22:50 お礼[未読]

【28152】Listboxでワークシート名を表示
質問  toki  - 05/8/29(月) 22:26 -

引用なし
パスワード
   こんにちは。教えてください。
Listboxに、そのブックの特定のワークシート名(複数)を表示したいのですがどうすればよいでしょうか?
特定のワークシート名は、名前の後ろに"BK"のように識別を入れておきワイルドカードで対象シート名を抽出したいと思っています。*"BK"

よろしくお願いします。

【28156】Re:Listboxでワークシート名を表示
回答  MOON  - 05/8/29(月) 22:42 -

引用なし
パスワード
   ▼toki さん:
こんにちは。
こういうことで良いのかな?

Private Sub UserForm_Initialize()
Dim WS As Worksheet
For Each WS In Worksheets
If WS.Name Like "*BK" Then Me.ListBox1.AddItem WS.Name
Next
End Sub

はずしていたら、ごめんなさい。

【28159】Re:Listboxでワークシート名を表示
お礼  toki  - 05/8/29(月) 22:50 -

引用なし
パスワード
   ▼MOON さん:
こんにちはMOONさん。
ありがとうございます!ドンピシャでした。
助かりました!
またよろしくお願いします。

>▼toki さん:
>こんにちは。
>こういうことで良いのかな?
>↓
>Private Sub UserForm_Initialize()
>Dim WS As Worksheet
>For Each WS In Worksheets
>If WS.Name Like "*BK" Then Me.ListBox1.AddItem WS.Name
>Next
>End Sub
>
>はずしていたら、ごめんなさい。

9301 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free