Excel VBA質問箱 IV

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

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


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

52227 / 76732

←次へ　｜　前へ→


	【29346】Re:特定のシート以外を全て非表示にしたい

かみちゃん - 05/10/2(日) 0:31 -


	引用なし

	パスワード

>ある特定のシートを除き、他のシートは全て非表示にする、という処理を
>組みたいのですが
>　　For Each s In Worksheets
>　　　　With s
>　　　　　　s.Visible = False
>　　　　End With
>　　Next

ここまでのコードだと、すべて非表示になります。
すべて非表示にしてから、
　Sheets(1).Visible = True
で再表示しようとしても、できません。

そこで、「表示しておきたいシート名」以外は、すべて非表示にするという方法
で対応すればいいかと思います。
具体的には、次のようなコードでできます。
　For Each s In Worksheets
　　With s
　　　If .Name <> Sheets(1).Name Then
　　　　.Visible = False
　　　End If
　　End With
　Next
とすればいいかと思います。

0 hits

▼

【29345】特定のシート以外を全て非表示にしたい NK 05/10/2(日) 0:22