Excel VBA質問箱 IV

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

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


52233 / 76738 ←次へ | 前へ→

【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 質問
【29346】Re:特定のシート以外を全て非表示にしたい かみちゃん 05/10/2(日) 0:31 回答
【29347】Re:特定のシート以外を全て非表示にしたい NK 05/10/2(日) 0:38 質問
【29348】Re:特定のシート以外を全て非表示にしたい かみちゃん 05/10/2(日) 0:52 回答
【29350】Re:特定のシート以外を全て非表示にしたい NK 05/10/2(日) 1:03 お礼

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