Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

28736 / 76807

←次へ　｜　前へ→


	【53365】Re:複数シートの選択について

カンジ

- 08/1/6(日) 11:52 -


	引用なし

	パスワード

▼かみちゃんさん：
>こんにちは。かみちゃん　です。
>
>>Sheet3から最後のシート（シート数は変化する）までを全て選択する
>
>Sheet3をアクティブシートとするならば、以下のような感じでできます。
>
>Sub Sample()
>　Dim ws As Worksheet
>　Dim i As Integer
>　
>　Set ws = Nothing
>　For i = ActiveSheet.Index To Sheets.Count
>　　If ws Is Nothing Then
>　　　Sheets(i).Select
>　　Else
>　　　Sheets(i).Select False
>　　End If
>　　Set ws = Sheets(i)
>　Next
>End Sub
>
>Sheet3がアクティブシートでないならば、
>ActiveSheet.Index
>の部分を
>Sheets("Sheet3").Index
>とします。
>
>以下のＵＲＬも参考にしてみてください。
>ｈｔｔｐ://www.moug.net/tech/exvba/0040042.htm
>ｈｔｔｐ://www.moug.net/tech/exvba/0040032.htm

かみちゃんさん　ありがとうございました
早速実行してみました。うまく行きましたが、さらに、
最初のSheetをSheet名指定ではなく、左から３番目のSheetから
最後のシートまで選択することも工夫してみましたが自分の力では
うまく行きませんでした。

ActiveSheet.Index
のところを色々変えてみましたが（Sheets.Count3など）駄目でした。
現在作成中のものは左から２つのシートは固定で、３つめから毎回
変動するので、このシートを印刷や削除の対象にしたいために選択する
というものです。
よろしくお願いします

2 hits

▼

【53362】複数シートの選択について カンジ 08/1/6(日) 10:13