Excel VBA質問箱 IV

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

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


43495 / 76732 ←次へ | 前へ→

【38284】Re:同一名で始まるシートをすべて選択するには?
発言  MARBIN  - 06/5/30(火) 22:32 -

引用なし
パスワード
   もっと簡単な方法があったようなきがしますが、
思い出せません。

配列を使用した方法です。

Sub test()
Dim myarray() As Variant
Dim wscnt As Long
Dim i As Long
Dim j As Long
 wscnt = Worksheets.Count
  j = -1
  For i = 1 To wscnt
  If Worksheets(i).Name Like "データベース*" Then
    j = j + 1
    ReDim Preserve myarray(0 To j)
    myarray(j) = Worksheets(i).Name
  End If
  Next i
  Worksheets(myarray).Select
End Sub

0 hits

【38282】同一名で始まるシートをすべて選択するには? Cuore=Tane 06/5/30(火) 22:24 質問
【38284】Re:同一名で始まるシートをすべて選択する... MARBIN 06/5/30(火) 22:32 発言
【38300】Re:同一名で始まるシートをすべて選択する... Kein 06/5/31(水) 3:24 回答
【38359】Re:同一名で始まるシートをすべて選択する... ToshiyoriB 06/5/31(水) 21:58 質問
【38364】Re:同一名で始まるシートをすべて選択する... Kein 06/5/31(水) 22:20 回答
【38399】Re:同一名で始まるシートをすべて選択する... ToshiyoriB 06/6/1(木) 21:59 質問
【38400】Re:同一名で始まるシートをすべて選択する... Kein 06/6/1(木) 22:19 回答
【38477】Re:同一名で始まるシートをすべて選択する... Cuore=Tane 06/6/3(土) 21:28 お礼

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