Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9303 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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
>
>はずしていたら、ごめんなさい。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9303 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free