Excel VBA質問箱 IV

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

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


28666 / 76738 ←次へ | 前へ→

【53366】Re:複数シートの選択について
発言  カンジ E-MAIL  - 08/1/6(日) 11:58 -

引用なし
パスワード
   ▼ichinose さん:
>▼カンジ さん:
>おはようございます。
>
>>複数シートの選択について教えてください
>>シート数が毎回変化する時に対応できるマクロを組みたいのですが
>>最後のシートを選択する指示が分かりません
>>複数シート選択は
>>
>>Sheets(Array(Sheet3,Sheet4)).Select
>これ↑
>
>Sheets(Array("Sheet3","Sheet4")).Select
>
>こうですよね!!
>
>
>>
>>で出来ますが
>>Sheet3から最後のシート(シート数は変化する)までを全て選択する
>>場合はどうすればいいか教えていただきたいのですが。よろしくお願いします
>
>Sub sample()
>  Dim sht As Object
>  Set sht = Sheets("sheet3")
>  Do
>    sht.Select False
>    Set sht = sht.Next
>    Loop Until sht Is Nothing
>End Sub
>
>では?

ichinoseさん ありがとうございます。
("sheet3")の""を忘れておりました。

実行しましたら出来ました。ありがとうございます。
さらに、シート名指定から、左から3番目のシートから最後のシートまでの
選択に挑戦しましたが自分の力では出来ませんでした。
シート名ではなく、左から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 お礼

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