Excel VBA質問箱 IV

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

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


28667 / 76738 ←次へ | 前へ→

【53365】Re:複数シートの選択について
発言  カンジ E-MAIL  - 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
>とします。
>
>以下のURLも参考にしてみてください。
>http://www.moug.net/tech/exvba/0040042.htm
>http://www.moug.net/tech/exvba/0040032.htm

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

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

【53362】複数シートの選択について カンジ 08/1/6(日) 10:13 発言
【53363】Re:複数シートの選択について ichinose 08/1/6(日) 10:27 発言
【53366】Re:複数シートの選択について カンジ 08/1/6(日) 11:58 発言
【53364】Re:複数シートの選択について かみちゃん 08/1/6(日) 10:29 発言
【53365】Re:複数シートの選択について カンジ 08/1/6(日) 11:52 発言
【53367】Re:複数シートの選択について かみちゃん 08/1/6(日) 12:06 発言
【53369】Re:複数シートの選択について カンジ 08/1/6(日) 12:30 お礼

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