ここから本文です

Excelでシートの一部の選択を解除したい

poyopoyo0910さん

2011/3/2217:57:32

Excelでシートの一部の選択を解除したい

Excelで100枚のシートを収録したブックがあります。
そのうちの98枚を選択して実行したいマクロがあるのですが、

Worksheets.Select で全シートは選択できます。

そこから Worksheets(1)とWorksheets(2)の選択は解除して
残りの98枚に対してマクロを実行したいのですが・・・
この選択の解除の方法でつまづいています。

Arrayで98枚の方を選択してしまうという方法は考えましたが
シートの名前はたびたび変わるので難しいかと思います。

一方シートの左端から2枚は不動なので、全シートを選択してから
Worksheets(1)とWorksheets(2)の選択は解除するというのが良さそう
なのですが…。
あるいはWorksheets(1)とWorksheets(2)以外のシートを全て選択、
ということになるのでしょうか。

実行可能であればどのような記述内容でも構いません。
よろしくお願いします。

閲覧数:
3,385
回答数:
2
お礼:
50枚

違反報告

ベストアンサーに選ばれた回答

ja7awuさん

編集あり2011/3/2218:41:01

> 一部の選択を解除したい
あれっ! 必ず選択状態から「一部解除」という意味ですか…?
まさか そんな??
まぁ、2つを除いて選択なら、 ごく一般的な方法で、こんな感じですが・・・
Sub test()
Dim N As Long
For N = 3 To Worksheets.Count
If N = 3 Then Worksheets(N).Select _
Else Worksheets(N).Select False
Next
End Sub

あぁ、ごめんなさい。
> あるいはWorksheets(1)とWorksheets(2)以外のシートを全て選択、
> ということになるのでしょうか。
そう思います。 最後まで読んでなかったぁ…~

質問した人からのコメント

2011/3/23 23:56:17

まだまだ勉強が足りないようです。
想定どおりに動きました。ありがとうございます。

このQ&Aで解決しましたか?質問する

閉じる

ベストアンサー以外の回答

1〜1件/1件中

編集あり2011/3/2220:58:10

Dim ws As Worksheet
For Each ws In Worksheets
If ws.Index >= 3 Then
'ここに処理を入れる
End If
Next ws

のような形でいいんじゃないですか?

> あるいはWorksheets(1)とWorksheets(2)以外のシートを全て選択
いやいや基本 1シートずつ処理でしょう。

あわせて知りたい

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

[PR]お得情報

七輪焼肉安安で本格焼肉を!
安く食べられてポイントもゲットしよう
安心安全さらに安く<トクプレbyGMO>

その他のキャンペーン

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問や知恵ノートは選択されたID/ニックネームのMy知恵袋で確認できます。