Ｐａｇｅ 245 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼任意の複数のシートを選択するには ちょび 02/10/23(水) 10:46 ┗Re:任意の複数のシートを選択するには ichinose 02/10/23(水) 12:14 ┗Re:任意の複数のシートを選択するには ちょび 02/10/23(水) 13:01 ─────────────────────────────────────── ■題名 ： 任意の複数のシートを選択するには ■名前 ： ちょび ■日付 ： 02/10/23(水) 10:46 -------------------------------------------------------------------------
| シート名が "2"〜連番でたくさんあり、 "2"以降のすべてのシートを 選択する場合どうすればよいのでしょうか 変数を指定して For i = 1 To Sheets(Array("2"&"i")).Select じゃだめだったんです。 |
| ▼ちょび さん： こんにちは。 >シート名が >"2"〜連番でたくさんあり、 >"2"以降のすべてのシートを >選択する場合どうすればよいのでしょうか >変数を指定して > >For i = 1 To Sheets(Array("2"&"i")).Select > >じゃだめだったんです。 アクティブなブックに対してのコードです。 '================================================== Sub Macro1() Dim s_nm() As String Dim idx As Long idx = 0 For Each sht In Worksheets If Val(sht.Name) > 1 Then ReDim Preserve s_nm(idx) s_nm(idx) = sht.Name idx = idx + 1 End If Next Sheets(s_nm).Select End Sub |
| ▼ichinose さん： ありがとうございました。 大成功です。 またお願いしますね。 |